"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/App/ClusterSSH/Helper.pm" between
clusterssh-4.15.tar.gz and clusterssh-4.16.tar.gz

About: ClusterSSH is a tool for making the same change on multiple servers at the same time.

Helper.pm  (clusterssh-4.15):Helper.pm  (clusterssh-4.16)
skipping to change at line 74 skipping to change at line 74
? "echo Sleeping for $autoclose seconds; sleep $autoclose" ? "echo Sleeping for $autoclose seconds; sleep $autoclose"
: "echo Press RETURN to continue; read IGNORE" : "echo Press RETURN to continue; read IGNORE"
; # : "sleep $autoclose"; ; # : "sleep $autoclose";
my $script = <<" HERE"; my $script = <<" HERE";
my \$pipe=shift; my \$pipe=shift;
my \$svr=shift; my \$svr=shift;
my \$user=shift; my \$user=shift;
my \$port=shift; my \$port=shift;
my \$mstr=shift; my \$mstr=shift;
my \$command="$command_pre $comms $comms_args"; my \$command="$command_pre $comms $comms_args ";
open(PIPE, ">", \$pipe) or die("Failed to open pipe: \$!\\n"); open(PIPE, ">", \$pipe) or die("Failed to open pipe: \$!\\n");
print PIPE "\$\$:\$ENV{WINDOWID}" print PIPE "\$\$:\$ENV{WINDOWID}"
or die("Failed to write to pipe: $!\\n"); or die("Failed to write to pipe: $!\\n");
close(PIPE) or die("Failed to close pipe: $!\\n"); close(PIPE) or die("Failed to close pipe: $!\\n");
if(\$svr =~ m/==\$/) if(\$svr =~ m/==\$/)
{ {
\$svr =~ s/==\$//; \$svr =~ s/==\$//;
warn("\\nWARNING: failed to resolve IP address for \$svr.\\n\\n" warn("\\nWARNING: failed to resolve IP address for \$svr.\\n\\n"
); );
sleep 5; sleep 5;
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)