29 |
my $repeat = 3; |
my $repeat = 3; |
30 |
# seconds to wait between retries |
# seconds to wait between retries |
31 |
my $repeat_wait = 5; |
my $repeat_wait = 5; |
32 |
|
# sapinfo timeout |
33 |
|
my $sapinfo_timeout = 10; |
34 |
|
|
35 |
my %opts; |
my %opts; |
36 |
getopt('h:s:H:S:', \%opts); |
getopt('h:s:H:S:', \%opts); |
66 |
for(my $i=0; $i<$repeat; $i++) { |
for(my $i=0; $i<$repeat; $i++) { |
67 |
eval { |
eval { |
68 |
local $SIG{ALRM} = sub { die "timeout\n"; }; |
local $SIG{ALRM} = sub { die "timeout\n"; }; |
69 |
alarm 30; # wait for sapinfo to finish |
alarm $sapinfo_timeout; # wait for sapinfo to finish |
70 |
$output = `$SAPINFO trace=0 ashost=$ashost sysnr=$sysnr`; |
$output = `$SAPINFO trace=0 ashost=$ashost sysnr=$sysnr`; |
71 |
}; |
}; |
72 |
alarm 0; # turn alarm off |
alarm 0; # turn alarm off |