From: CSBVAX::MRGATE!RELAY-INFO-VAX@CRVAX.SRI.COM@SMTP 11-AUG-1988 22:56 To: ARISIA::EVERHART Subj: informative messages - a potentially useful little routine Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Thu, 11 AUG 88 19:22:57 PDT Received: from RELAY.CS.NET by KL.SRI.COM with TCP; Thu, 11 Aug 88 14:39:33 PDT Received: from neat.ai.toronto.edu by RELAY.CS.NET id ad05436; 11 Aug 88 17:13 EDT Received: from gpu.utcs.toronto.edu by neat.ai.toronto.edu with SMTP id 362; Thu, 11 Aug 88 15:19:14 EDT Received: from UTORPHYS by gpu.utcs.toronto.edu via RSCS with NOTE id AA15563; Thu, 11 Aug 88 15:23:13 EDT Message-Id: <8808111923.AA15563@gpu.utcs.toronto.edu> Date: Thu, 11 Aug 88 16:22:00 EDT From: "Ruth Milner, Systems Manager x2746" Subject: informative messages - a potentially useful little routine To: info-vax@KL.SRI.COM X-Vms-To: IN%"info-vax@kl.sri.com" Here is a little routine to do something extremely useful, the brainchild of our systems programmer, James MacEwan. The idea is that when a LAT system on an Ethernet shuts down, it will modify its LAT announcement message to the reason for shutdown (except if it is the default "Standalone", which is usually meaningless and often untrue, at least at our site :-) ). That way when users on terminal servers do "show nodes" or "show services", they will see *why* a node is "status unknown" instead of just that it is. It's short and sweet, just put it in your syshutdwn.com, modify shutdown.com to pass the reason for shutdown to it, and answer y to execute it during an orderly shutdown. Ruth Milner Systems Manager University of Toronto Physics -------------------------------------------------------------------------- $! SYS$MANAGER:SYSHUTDWN.COM $! $! sys$system:shutdown.com has been modified to pass the reason for the $! shutdown to this routine as p1. $! the modified line is ---> $if w then @sys$manager:syshutdwn "''p2'" $! p1 is used to modify the announcement that appears on a $! LOCAL> SHOW NODES ALL command on a decserver. JKRM 28 June 1988. $! $! p1 can be a user entered reason or "Standalone". $! $ if p1 .eqs. "Standalone" then goto noannounce !don't change announcement. $ p1 = f$extract(0,46,p1) $! p1 cannot be greater than 64 bytes and looks messy at greater than 46. $ latcp := $sys$system:latcp $ latcp set service /nolog/ident="''p1'" $ latcp set node /ident="''p1'" $noannounce: $ exit