--- sap.monitor 2002/07/17 10:18:14 1.6 +++ sap.monitor 2002/07/22 12:26:06 1.7 @@ -38,7 +38,7 @@ chomp; s/#.+$//g; # nuke comments s/^\s+$//g; # remove empty lines - my ($ashost,$sysnr) = split(/\t+/,$_,2); + my ($ashost,$sysnr,undef) = split(/\s+/,$_,3); if ($ashost && $ashost ne "" && $sysnr && $sysnr ne "" && (($opts{h} && $ashost =~ m/$opts{h}/) || not $opts{h}) && (($opts{s} && $sysnr =~ m/$opts{s}/) || not $opts{s}) && @@ -47,17 +47,19 @@ my $ret = 1; my $loop = 0; my $output; + my $sys_id; for(my $i=0; $i<$repeat; $i++) { $output = `$SAPINFO trace=0 ashost=$ashost sysnr=$sysnr`; - $ret &= $?; + undef $sys_id; + if ($output =~ m/System\s+ID\s+(\w+)/i) { + $sys_id = $1; + last; + } # print "$loop: $ashost $sysnr $ret\n"; - last if ($ret == 0); $loop++; sleep 5; } - $output =~ m/System ID\s+(\w+)/; - my $sys_id = $1 || ""; - if ($ret != 0) { + if (! $sys_id) { push @failed, "$ashost ($sysnr)"; $fail_msg .= $output; } else {