/[scire]/branches/new-fu/client/scireclient.pl
Gentoo

Diff of /branches/new-fu/client/scireclient.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 276 Revision 277
8use IPC::Open2; 8use IPC::Open2;
9use Getopt::Long; 9use Getopt::Long;
10use Data::Dumper; 10use Data::Dumper;
11use File::Path; 11use File::Path;
12#use Net::SSH::Perl::Key; 12#use Net::SSH::Perl::Key;
13use POSIX ":sys_wait_h";
14 13
15my $SCIRE_CONFIG_FILE = '../etc/scire.conf'; #will be /etc/scire.conf when released. 14my $SCIRE_CONFIG_FILE = '../etc/scire.conf'; #will be /etc/scire.conf when released.
16my %conf; 15my %conf;
17my ($SERVER_STDOUT, $SERVER_STDIN); 16my ($SERVER_STDOUT, $SERVER_STDIN);
18my $connection_pid; 17my $connection_pid;
241 my $msg = shift; 240 my $msg = shift;
242 if($conf{debug}) { 241 if($conf{debug}) {
243 print STDERR $msg; 242 print STDERR $msg;
244 } 243 }
245} 244}
246
247END {
248 while(waitpid($connection_pid, WNOHANG)) {
249 kill($connection_pid);
250 }
251}

Legend:
Removed from v.276  
changed lines
  Added in v.277

  ViewVC Help
Powered by ViewVC 1.1.20