/*
 
  This exec is run on all HTTPDx accounts if SFS is up and running
   when the machine autologs. This is done from the PROFILE EXEC of
   the root of each account, via an ACC 191; queue 'HTTPD2'
   That will allow this account to request PROP to set alternate
   userid support via DIAG D4 for this to be HTTPD
 
*/
trace o
address command
/* urlw 9-9-98  added acc httpd.image as I for fastpath and preload   */
/* urlw 9-23-98 added changed c drive to access directory of compiled */
/*              code and exec rexxl to link compiled rexx runtime lib */
/* urlw 4-13-99 removed httpd.image as I                             */
/* urlw 4-14-99 added load code from segment                         */
/* urlw 10-21-99 changed access of httpd.common to new filepool  */
/* urlw 10-21-99 added access of directoy httpd.util             */
/* ahw  12-14-99 updated to use SFSPOOL, and generalize for all
        web servers HTTPDx, HTTPRx, HTTPFx */
/* ahw  08-14-00 support for DIRMHTTP */
/* ahw  04-10-08 HDPCNTRL support     */
 
d4 = substr(userid(),1,5)
code_user = 'EWEBADM'
code_dir = 'CODE'          /* Interactive EWEB server code */
code_dir = 'CODECOMP'      /* Compiler EWEB server code */
web_user = 'MARIST'
If d4 = 'HTTPF' then do
   code_user = 'EWEBFDR'
   code_dir = 'CODE'          /* Interactive EWEB server code */
end /* httpf */
If d4 = 'HTTPR' then do
   code_user = 'EWEBFDR'
end /* httpr */
vers = '1.4'
 
'CP SPOOL CONS TO SYSSPL START'
'CP SPOOL CONS TO SYSSPL START EOF'
 
Say 'HTTPD2 on 'd4'''s 191. Version' vers
'SET FILEPOOL NONE'
 
'CP MSG HARRY Eweb starting'
If d4 <> 'HTTPF' Then ,
   'CP SMSG PROPXA *'d4             /* pretend we're HTTPx */
'CP SLEEP 2 SEC'
'EXEC PURWU'
fp = sfspool()
'SET FILEPOOL' fp
 
'QUERY ACCESSED'                  /* show what we know */
cmd = 'EWEB'
If userid() = 'HTTPDT' Then cmd = cmd '81'
If userid() = 'HTTPR1T' Then cmd = cmd '81'
cgi = 0
If 'C' = substr(userid(),length(d4)+1,1) then cgi = 1
If cgi = 1 then cmd = cmd 8000
If substr(userid(),1,6) = 'HTTPDC' Then cmd = cmd '8000'
If d4 = 'HTTPR' Then cmd = cmd 'CONFIG $EWEBR'
If d4 = 'HTTPF' Then cmd = cmd 'CONFIG $EWEBF'
If d4 = 'DIRMH' Then cmd = cmd 'CONFIG $DIRM'
 
'SEGMENT LOAD EWEBEXEC'
'SEGMENT RESERVE DB2RMGR'
 
fp_adm = sfspool(code_user)
fp_web = sfspool(web_user)
fp = sfspool()
fp_d4 = sfspool(d4)
'ACCESS' fp_adm||code_user'.'code_dir 'C/C'
'ACCESS' fp_adm||code_user'.RXSOCKET D'
 
'EXEC REXXL'                /* Rexx compiler libraries */
'ACCESS 19F T'              /* Do we need this ? Yes, for SFSPOOL */
 
If 'HTTPD' = d4 | 'DIRMH' = d4 then do
  /* get a work disk for each server */
  Say 'ACCESS' fp||userid()'. X (FORCERW'
  'ACCESS' fp||userid()'. X (FORCERW'
end
 
'EXEC TELNET (*NORUN'            /* Get TCPIP DATA */
 
'QUERY ACCESSED'                  /* show what we know */
'PIPE QUERY VERSION'
'CP SET PF10' cmd
'CP TERM MORE 2 2'
'CP TERM HOLD OFF'
'CP SET RUN ON'
'CP SPOOL CONS TO SYSSPL CL T'
'CP SPOOL CONS START'
 
say 'ACCESS' fp_d4||d4'.COMMON W'
If d4 <> 'DIRMH' Then do
  'ACCESS' fp_d4||d4'.COMMON W'        /* SHARE R/W disk */
  'ACCESS' fp_d4||d4'.TEMP   G'        /* SHARE R/W disk */
  end
  else do
    'ACCESS' sfspool(userid())||userid()'.COMMON W' /* SHARE R/W */
    'ACCESS' sfspool(userid())||userid()'.TEMP F' /* SHARE R/W */
  end
 
If d4 = 'HTTPD' Then do
  'ACCESS' fp_d4'HTTPD.EWEB F/F' /* WLVINIT is kept on HTTPD.EWEB   */
  'EXEC WLVINIT'          /* Initialize the WLV interface    */
  'RELEASE F'             /* don't need it around any longer */
end
 
/* Get DB2/VM */
 
'EXEC VMLINK DB2DBA 195 <* *> (NONAMES'
'SET LANG AMENG (ADD ARI USER'
 
/* Get HDPCNTRL utilities */
'EXEC VMLINK HDPCNTRL 291 <* *> (NONAMES'
'EXEC VMLINK HDPCNTRL 192 <* *> (NONAMES'
 
'QUERY ACCESSED'                  /* show what we know */
 
'CONNECT'
if(RC=0) then do
  say 'To start:' cmd
  exit 99
end
'EXEC' cmd