Modify Remote.pl Script

###

### Process Creation Functions

###

sub StartRemotes {

my($rcmd) = @_;

print "Remote:StartRemotes($rcmd)\n" if $verbose;

while (@REMOTE_HOSTS &&

(scalar (keys (%RSH_PIDS)) < $MAX_SERVER_PROCS)) {

# start new process until we're full up

my($rhost) = shift (@REMOTE_HOSTS);

my($routput) = AIS::get_gvar('US_LOGFILE') . ".$rhost";

$routput =~ s/install/remote_install/;

$REMOTE_OUTPUT{$rhost} = $routput;

Previous slide

Next slide

Back to first slide

View graphic version