$!-----------------------------------------------------------------------------
$! INTRUSPECT_STARTUP.COM
$!
$! For configuration options see READMORE.HTML
$! This procedure comes ready for WASD but configurable for others.
$!
$! For WASD copy to WASD_ROOT:[STARTUP] and then tailor as required.
$! For other server environments locate to suit and then tailor.
$!
$! 25-MAR-2015  MGD  initial
$!-----------------------------------------------------------------------------
$!
$! (configure using these, not the procedure proper)
$!
$ script_location = "CGI-BIN:[000000]"
$!
$ install_privileges = "(SECURITY,SYSPRV)"
$!
$!-----------------------------------------------------------------------------
$ say = "write sys$output"
$ set noon
$!
$ procedure = f$element(0,";",f$environment("procedure"))
$ write sys$output f$fao("!#*>", 78-f$length(procedure)) + " " + procedure 
$!
$ if f$trnlnm("WASD_FILE_DEV") .nes. "" then @wasd_file_dev
$!
$ script = script_location + "INTRUSPECT.EXE"
$ if f$type(install_privileges) .nes. "" .and. install_privileges .nes. ""
$ then
$    if f$file(script,"known") then INSTALL REMOVE 'script'
$    INSTALL ADD 'script' /PRIV='install_privileges'
$ endif
$!
$ write sys$output f$fao("!#*<", 78-f$length(procedure)) + " " + procedure 
$!-----------------------------------------------------------------------------