Google
 

Trailing-Edge - PDP-10 Archives - integ_tools_tops20_v7_30-apr-86_dumper - tools/com/remcmd.com
There are 3 other files named remcmd.com in the archive. Click here to see a list.
$ !
$ ! p1 - node spec (no trailing ::)
$ ! p2 - access control string (in a single pair of double quotes)
$ ! p3-p8 command
$ ! define logical name VERIFY as "Y" to type log file
$ !
$ verify := verify
$ open/write f sys$login:remcmd.tmp
$ write f "$ define sys$print nowhere"
$ write f "$ open/write net_out sys$net"
$ write f "$ define sys$output net_out"
$ write f "$ define sys$error net_out"
$ write f "$ ''p3' ''p4' ''p5' ''p6' ''p7' ''p8'"
$ write f "$ delete remcmd.com;0"
$ write f "$ logout"
$ close f
$ if p2 .nes. "-" then goto own_access
$ copy/nolog sys$login:remcmd.tmp 'p1'::remcmd.com
$ delete sys$login:remcmd.tmp;*
$ type 'p1'::"TASK=REMCMD"
$! if "''f$logical(verify)'" .eqs. "Y"  Then Type 'p1'::remcmd.log
$! delete 'p1'::remcmd.log;0
$! delete 'p1'::remcmd.com;0
$ exit
$!
$OWN_ACCESS:
$ copy sys$login:remcmd.tmp 'p1'"''p2'"::remcmd.com
$ delete sys$login:remcmd.tmp;*
$ type 'p1'"''p2'"::"TASK=REMCMD"
$! delete 'p1'"''p2'"::remcmd.com;0
$! if "''f$logical(verify)'" .eqs. "Y"  Then Type 'p1'"''p2'"::remcmd.log.
$! delete 'p1'"''p2'"::remcmd.log.