$!-----------------------------------------------------------------------------
$! MONDESI_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.
$!
$! 01-DEC-2020  MGD  OPER (and optionally SECURITY) required for OPCOM monitor
$! 20-FEB-2015  MGD  SYSPRV required for wildcard $GETJPI for job modes
$! 20-APR-2014  MGD  SHARE required for (shared) NI monitoring
$! 23-MAR-2013  MGD  initial
$!-----------------------------------------------------------------------------
$!
$! (configure using these, not the procedure proper)
$!
$ script_location = "CGI-BIN:[000000]"
$!
$ install_privileges = "(OPER,SHARE,SYSPRV)"
$!! install_privileges = "(OPER,SHARE,SYSPRV,WORLD)"
$!! install_privileges = "(ALTPRI,OPER,SHARE,SYSPRV,WORLD)"
$!! install_privileges = "(ALTPRI,OPER,SHARE,OPER,SYSPRV,WORLD)"
$!! install_privileges = "(ALTPRI,OPER,SHARE,OPER,SECURITY,SYSPRV,WORLD)"
$!
$!! mondesi_access = "*,_,_,_"
$!
$!! mondesi_disk = "DISK1:,DISK2:,etc"
$!
$!! mondesi_ni = "NIC1:,NIC2:,etc"
$!
$!! mondesi_opcom = "*"
$!
$!! mondesi_proc_alert = 15
$!
$!! mondesi_websocket = "0,""Firefox"""
$!
$!-----------------------------------------------------------------------------
$ 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
$!
$ if f$type(mondesi_access) .nes "" -
     then define /system MONDESI_ACCESS 'mondesi_access'
$ if f$type(mondesi_disk) .nes "" -
     then define /system MONDESI_DISK 'mondesi_disk'
$ if f$type(mondesi_ni) .nes "" -
     then define /system MONDESI_NI 'mondesi_ni'
$ if f$type(mondesi_opcom) .nes "" -
     then define /system MONDESI_OPCOM 'mondesi_opcom'
$ if f$type(mondesi_proc_alert) .nes "" -
     then define /system MONDESI_PROC_ALERT 'mondesi_proc_alert'
$ if f$type(mondesi_websocket) .nes "" -
     then define /system MONDESI_WEBSOCKET 'mondesi_websocket'
$!
$ script = script_location + "MONDESI.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 
$!-----------------------------------------------------------------------------