version 1.8, 2006/03/04 06:44:11
|
version 1.9, 2006/03/04 06:51:02
|
Line 74 sub maximareply {
|
Line 74 sub maximareply {
|
|
|
$SIG{ALRM} = sub { kill 9 => $maximapid; }; |
$SIG{ALRM} = sub { kill 9 => $maximapid; }; |
alarm(5); |
alarm(5); |
no strict 'refs'; |
|
|
|
my $selector = IO::Select->new(); |
my $selector = IO::Select->new(); |
|
|
Line 82 sub maximareply {
|
Line 81 sub maximareply {
|
|
|
while (my @ready = $selector->can_read()) { |
while (my @ready = $selector->can_read()) { |
foreach my $fh (@ready) { |
foreach my $fh (@ready) { |
if (fileno($fh) == fileno($cmd_err)) { |
if (ref($fh) |
|
&& ref($cmd_err) |
|
&& fileno($fh) == fileno($cmd_err)) { |
$error.=<$cmd_err>; |
$error.=<$cmd_err>; |
} else { |
} else { |
my $line = scalar(<$cmd_out>); |
my $line = scalar(<$cmd_out>); |
Line 96 sub maximareply {
|
Line 97 sub maximareply {
|
} |
} |
alarm(0); |
alarm(0); |
$SIG{ALRM} = 'DEFAULT'; |
$SIG{ALRM} = 'DEFAULT'; |
close($cmd_out); |
if (ref($cmd_out)) { close($cmd_out); } |
close($cmd_err); |
if (ref($cmd_err)) { close($cmd_err); } |
use strict 'refs'; |
|
&status("Command processed"); |
&status("Command processed"); |
return ($reply,$error,$exitstatus); |
return ($reply,$error,$exitstatus); |
} |
} |