$! 07-AUG-2002 MGD /node on show users $! 24-AUG-2001 MGD exchange TYPE SYS$INPUTs for WRITE SYS$OUTPUTs $! 13-AUG-2000 MGD /full on show memory $! 08-JAN-2000 MGD needed a diversion from ODS-5 modifications $! 01-SEP-1997 MGD quick hack $! $ say = "write sys$output" $! $!(BY DEFAULT THIS SCRIPT IS DISABLED BECAUSE OF ITS SECURITY IMPLICATIONS) $!(the FREEWARE_DEMO.COM procedure uses it by defining a job-level logical) $! $!(to permanently enable this script change the following 0 to a 1) $ enable_show = 0 $! $ if .not. f$trnlnm("WASD_ENABLE_SHOW") .and. .not. enable_show $ then $ say "Content-Type: text/html" $ say "Script-Control: X-buffer-records" $ say "" $ say "Sorry!  The SHOW script is disabled." $ say "

" $ say "" $ say "" $ say "
To enable ...DEFINE/SYSTEM WASD_ENABLE_SHOW 1
or modify ...WASD_ROOT:[CGI-BIN]SHOW.COM
" $ exit $ endif $! $ refresh = "" $ if f$type(www_form_refresh) .nes. "" then refresh = www_form_refresh $ if f$type(www_form_show) .nes. "" then goto doShow $ if f$type(www_form_monitor) .nes. "" then goto doMonitor $ refresh = www_query_string $! $ do = www_script_name + "?" $ if refresh .nes. "" then do = do + "refresh=''refresh'&" $ say "Content-Type: text/html" $ say "Script-Control: X-buffer-records" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "
On system ''f$getsyi("nodename")'
 
" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "
SHOW:  CLUSTER
CPU
DISKS
MEMORY
MEMORY/CACHE
MEMORY/POOL
QUEUES
SYSTEM
TIME
USERS
USERS/CLUSTER
" $ say "		" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "" $ say "
MONITOR:  DECNET
DISK
DLOCK
FCP
FILE CACHE
IO
LOCK
MODES
MSCP
PAGE
SCS
STATES
SYSTEM
" $ say "
" $ say "

To refresh periodically add "?n" (in seconds) to" $ say "this menu page,
or "&refresh=n" to a display page." $ exit $! $ doShow: $! $ say "Content-Type: text/html" $ say "Script-Control: X-buffer-records" $ say "" $ if refresh .nes. "" - then say "" $ say "

" $! $ showList = "|cluster|cpu|disks|memory/full|memory/cache/full" +- "|memory/pool/full|queue|system|time|users/node|users/cluster|" $ showThis = "|" + www_form_show + "|" $ if f$locate(showThis,showList) .ge. f$length(showList) $ then $ say "Unknown SHOW" $ exit $ endif $ if www_form_show .eqs. "disks" $ then $ show dev d $ exit $ endif $ show 'www_form_show' $ exit $! $ doMonitor: $! $ say "Content-Type: text/html" $ say "Script-Control: X-buffer-records" $ say "" $ if refresh .nes. "" - then say "<META HTTP-EQUIV=""Refresh"" CONTENT=""''refresh'"">" $ say "<PLAINTEXT>" $! $ monitorList = "|decnet|disk|dlock|fcp|file|io|lock|modes|mscp" +- "|page|scs|states|system|" $ monitorThis = "|" + www_form_monitor + "|" $ if f$locate(monitorThis,monitorList) .ge. f$length(monitorList) $ then $ say "Unknown MONITOR" $ exit $ endif $ monitor 'www_form_monitor' /int=1 /end="+0 00:00:03" $ exit