/[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.9 by dpavlin, Fri Jul 26 10:43:47 2002 UTC revision 1.11 by dpavlin, Mon Oct 28 08:36:48 2002 UTC
# Line 27  my $CONFIG = "/usr/local/etc/sap-mon.con Line 27  my $CONFIG = "/usr/local/etc/sap-mon.con
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);
# Line 60  foreach (@config) { Line 62  foreach (@config) {
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;
# Line 68  foreach (@config) { Line 75  foreach (@config) {
75                          }                          }
76  #                       print "$loop: $ashost $sysnr $ret\n";  #                       print "$loop: $ashost $sysnr $ret\n";
77                          $loop++;                          $loop++;
78                          sleep 5;                          sleep $repeat_wait;
79                  }                  }
80                  if (! $sys_id) {                  if (! $sys_id) {
81                          push @failed, "$ashost ($sysnr)";                          push @failed, "$ashost ($sysnr)";
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.26