/[mon-modules]/sap.monitor
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /sap.monitor

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by dpavlin, Wed Jul 17 10:18:14 2002 UTC revision 1.7 by dpavlin, Mon Jul 22 12:26:06 2002 UTC
# Line 38  foreach (@config) { Line 38  foreach (@config) {
38          chomp;          chomp;
39          s/#.+$//g;      # nuke comments          s/#.+$//g;      # nuke comments
40          s/^\s+$//g;     # remove empty lines          s/^\s+$//g;     # remove empty lines
41          my ($ashost,$sysnr) = split(/\t+/,$_,2);          my ($ashost,$sysnr,undef) = split(/\s+/,$_,3);
42          if ($ashost && $ashost ne "" && $sysnr && $sysnr ne "" &&          if ($ashost && $ashost ne "" && $sysnr && $sysnr ne "" &&
43                  (($opts{h} && $ashost =~ m/$opts{h}/) || not $opts{h}) &&                  (($opts{h} && $ashost =~ m/$opts{h}/) || not $opts{h}) &&
44                  (($opts{s} && $sysnr  =~ m/$opts{s}/) || not $opts{s}) &&                  (($opts{s} && $sysnr  =~ m/$opts{s}/) || not $opts{s}) &&
# Line 47  foreach (@config) { Line 47  foreach (@config) {
47                  my $ret = 1;                  my $ret = 1;
48                  my $loop = 0;                  my $loop = 0;
49                  my $output;                  my $output;
50                    my $sys_id;
51                  for(my $i=0; $i<$repeat; $i++) {                  for(my $i=0; $i<$repeat; $i++) {
52                          $output = `$SAPINFO trace=0 ashost=$ashost sysnr=$sysnr`;                          $output = `$SAPINFO trace=0 ashost=$ashost sysnr=$sysnr`;
53                          $ret &= $?;                          undef $sys_id;
54                            if ($output =~ m/System\s+ID\s+(\w+)/i) {
55                                    $sys_id = $1;
56                                    last;
57                            }
58  #                       print "$loop: $ashost $sysnr $ret\n";  #                       print "$loop: $ashost $sysnr $ret\n";
                         last if ($ret == 0);  
59                          $loop++;                          $loop++;
60                          sleep 5;                          sleep 5;
61                  }                  }
62                  $output =~ m/System ID\s+(\w+)/;                  if (! $sys_id) {
                 my $sys_id = $1 || "";  
                 if ($ret != 0) {  
63                          push @failed, "$ashost ($sysnr)";                          push @failed, "$ashost ($sysnr)";
64                          $fail_msg .= $output;                          $fail_msg .= $output;
65                  } else {                  } else {
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.26