27 |
my $SAPINFO = "/usr/local/bin/sapinfo"; |
my $SAPINFO = "/usr/local/bin/sapinfo"; |
28 |
# number of tries to repeat sapinfo if it fails first time |
# number of tries to repeat sapinfo if it fails first time |
29 |
my $repeat = 3; |
my $repeat = 3; |
30 |
|
# seconds to wait between retries |
31 |
|
my $repeat_wait = 5; |
32 |
|
|
33 |
my %opts; |
my %opts; |
34 |
getopt('h:s:H:S:', \%opts); |
getopt('h:s:H:S:', \%opts); |
70 |
} |
} |
71 |
# print "$loop: $ashost $sysnr $ret\n"; |
# print "$loop: $ashost $sysnr $ret\n"; |
72 |
$loop++; |
$loop++; |
73 |
sleep 5; |
sleep $repeat_wait; |
74 |
} |
} |
75 |
if (! $sys_id) { |
if (! $sys_id) { |
76 |
push @failed, "$ashost ($sysnr)"; |
push @failed, "$ashost ($sysnr)"; |