$!-----------------------------------------------------------------------------
$! DCLINABOX_STARTUP.COM
$!
$! Copy to WASD_ROOT:[STARTUP] and tailor to suit - see READMORE.HTML
$!
$! 25-JAN-2021  MGD  ACCPORNAM requires CMKRNL
$! 18-MAR-2015  MGD  tweak INSTALL 
$! 01-OCT-2012  MGD  initial
$!-----------------------------------------------------------------------------
$ say = "write sys$output"
$ set noon
$!
$ if f$trnlnm("WASD_FILE_DEV") .nes. "" then @wasd_file_dev
$!
$ procedure = f$element(0,";",f$environment("procedure"))
$ write sys$output f$fao("!#*>", 78-f$length(procedure)) + " " + procedure 
$!
$! (modify file name to obfuscate script)
$ script = "CGI-BIN:[000000]DCLINABOX.EXE"
$!
$ logname = f$parse(script,,,"name")
$!
$! (uncomment and modify as necessary to enable DCLinabox)
$!! define /system 'logname'_ENABLE "*"
$!
$! (uncomment to disable idle session termination)
$!! define /system 'logname'_IDLE "-1"
$!
$! (uncomment and modify to enable single sign-on)
$!! define /system 'logname'_SSO "REALM_NAME=username"
$!
$! (uncomment to provide a login alert)
$!! define /system 'logname'_ALERT "*** EXAMPLE ALERT ***"," ","Go for it ..."
$!
$ privileges = "(WORLD)"
$ if f$trnlnm("''logname'_SSO") .nes. "" -
     then privileges = privileges - ")" + ",DETACH,SYSPRV)"
$ if f$trnlnm("''logname'_ACCPORNAM") .nes. "" -
     then privileges = privileges - ")" + ",CMKRNL)"
$!
$ if f$file(script,"known") then INSTALL REMOVE 'script'
$ if f$trnlnm("''logname'_ENABLE") .nes. ""
$ then
$    INSTALL ADD /AUTH='privileges' 'script'
$ endif
$!
$ write sys$output f$fao("!#*<", 78-f$length(procedure)) + " " + procedure 
$!-----------------------------------------------------------------------------