62 |
my $output; |
my $output; |
63 |
my $sys_id; |
my $sys_id; |
64 |
for(my $i=0; $i<$repeat; $i++) { |
for(my $i=0; $i<$repeat; $i++) { |
65 |
$output = `$SAPINFO trace=0 ashost=$ashost sysnr=$sysnr`; |
eval { |
66 |
|
local $SIG{ALRM} = sub { die "timeout\n"; }; |
67 |
|
alarm 30; # wait for sapinfo to finish |
68 |
|
$output = `$SAPINFO trace=0 ashost=$ashost sysnr=$sysnr`; |
69 |
|
}; |
70 |
|
alarm 0; # turn alarm off |
71 |
undef $sys_id; |
undef $sys_id; |
72 |
if ($output =~ m/System\s+ID\s+(\w+)/i) { |
if ($output =~ m/System\s+ID\s+(\w+)/i) { |
73 |
$sys_id = $1; |
$sys_id = $1; |