amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-03 18:03:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Change debug output slightly to be more meaningful

Browse source
This commit is contained in:
duncan_ferguson 2004-11-29 16:18:13 +00:00
parent 3323b404a8
commit 95e55c1ec7
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
clusterssh/cchp
View file

@ -130,7 +130,7 @@ if($options{x})
print "ARGV=:",join(" ",@ARGV),":\n" if ($options{d}); print "ARGV=:",join(" ",@ARGV),":\n" if ($options{d});
exec(@ARGV) || die("Could not exec within x: $!"); exec(@ARGV) || die("Could not exec within x: $!");
} else { } else {
print "Forked to:$pid from $$" if($options{d}); print "Forked to:$pid from $$\n" if($options{d});
# this is the parent # this is the parent
my $PIPELINE; my $PIPELINE;
@ -154,9 +154,10 @@ if($options{x})
{ {
print "Caught KILLOFF\n" if(ord($char) == $KILLOFF && $options{d}); print "Caught KILLOFF\n" if(ord($char) == $KILLOFF && $options{d});
last OUTTER if(ord($char) == $KILLOFF); last OUTTER if(ord($char) == $KILLOFF);
#print STDIN "This is an echo line\n";
unless(ioctl(STDIN,$TIOCSTI,$char)) unless(ioctl(STDIN,$TIOCSTI,$char))
{ {
print "failed to write to client\n"; print "failed to write to client ($!)\n";
last OUTTER; last OUTTER;
} }
} }
@ -200,6 +201,9 @@ sub exit_prog()
} }
############################################################################ ############################################################################
# $Log$ # $Log$
# Revision 1.11 2004/11/29 16:18:13 duncan_ferguson
# Change debug output slightly to be more meaningful
#
# Revision 1.10 2004/09/07 12:18:08 duncan_ferguson # Revision 1.10 2004/09/07 12:18:08 duncan_ferguson
# Add -k functionality to keep child windows open for x seconds # Add -k functionality to keep child windows open for x seconds
# #