diff options
Diffstat (limited to 'eg')
| -rw-r--r-- | eg/g/gsh | 8 | ||||
| -rw-r--r-- | eg/scan/scanner | 8 |
2 files changed, 8 insertions, 8 deletions
@@ -1,6 +1,6 @@ #! /usr/bin/perl -# $Header: gsh,v 3.0.1.1 90/02/28 17:14:10 lwall Locked $ +# $Header: gsh,v 3.0.1.2 90/03/12 16:34:11 lwall Locked $ # Do rsh globally--see man page @@ -75,16 +75,16 @@ line: while (<>) { # for each line of ghosts if ($wanted > 0) { print "rsh $host$l$n '$cmd'\n" unless $silent; $SIG{'INT'} = 'DEFAULT'; - if (open(pipe,"rsh $host$l$n '$cmd'$dist 2>&1|")) { # start an rsh + if (open(PIPE,"rsh $host$l$n '$cmd'$dist 2>&1|")) { # start an rsh $SIG{'INT'} = 'cont'; - for ($iter=0; <pipe>; $iter++) { + for ($iter=0; <PIPE>; $iter++) { unless ($iter) { $remainder .= "$host+" if /Connection timed out|Permission denied/; } print $showhost,$_; } - close(pipe); + close(PIPE); } else { print "(Can't execute rsh: $!)\n"; $SIG{'INT'} = 'cont'; diff --git a/eg/scan/scanner b/eg/scan/scanner index 8ef7fe8f5d..70d2af80c1 100644 --- a/eg/scan/scanner +++ b/eg/scan/scanner @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: scanner,v 3.0 89/10/18 15:16:02 lwall Locked $ +# $Header: scanner,v 3.0.1.1 90/03/12 16:35:15 lwall Locked $ # This runs all the scan_* routines on all the machines in /etc/ghosts. # We run this every morning at about 6 am: @@ -68,15 +68,15 @@ scan: while ($scan = shift(@scanlist)) { $cmd = '/usr/bin/perl'; } close(scan); - if (open(pipe,"exec rsh $host '$cmd' <.x|")) { + if (open(PIPE,"exec rsh $host '$cmd' <.x|")) { sleep(5); unlink '.x'; - while (<pipe>) { + while (<PIPE>) { last if $iter++ > 1000; # must be looping next if /^[0-9.]+u [0-9.]+s/; print $showhost,$_; } - close(pipe); + close(PIPE); } else { print "(Can't execute rsh: $!)\n"; } |