/[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

Annotation of /sap.monitor

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.11 - (hide annotations)
Mon Oct 28 08:36:48 2002 UTC (21 years, 5 months ago) by dpavlin
Branch: MAIN
Changes since 1.10: +6 -1 lines
added timeout if sapinfo command hangs

1 dpavlin 1.1 #!/usr/bin/perl -w
2 dpavlin 1.2 # File: sap.monitor
3     # Author: Dobrica Pavlinusic, dpavlin@rot13.org
4 dpavlin 1.9 # http://www.rot13.org/~dpavlin/sysadm.html
5 dpavlin 1.2 # Description: monitor sap servers using sapinfo from RFCSDK
6 dpavlin 1.3 #
7 dpavlin 1.4 # Usage: sap.monitor [-[hH] ashost only/ignore] [-[sS] sysnr only/ignore]
8 dpavlin 1.3 #
9 dpavlin 1.4 # e.g. sap.monitor -s 20 will scan only hosts with sysnr == 20
10     # sap.monitor -S 20 will scan only hosts with sysnr != 20
11 dpavlin 1.1
12 dpavlin 1.8 # configuration file in /usr/local/etc/sap-mon.conf describes which
13     # hosts (ashost) and systems (sysnr) you want to check.
14     #
15     # format of line is:
16     #
17     # ashost [tab|space] sysnr # optional comment
18     #
19     # you can spacify host as hostname (sap01) or with sap routers in-between
20     # to test routers too (/H/saprtr/H/sap01)
21    
22 dpavlin 1.1 use strict;
23 dpavlin 1.3 use Getopt::Std;
24    
25     # change paths here if you want to
26     my $CONFIG = "/usr/local/etc/sap-mon.conf";
27     my $SAPINFO = "/usr/local/bin/sapinfo";
28 dpavlin 1.6 # number of tries to repeat sapinfo if it fails first time
29     my $repeat = 3;
30 dpavlin 1.10 # seconds to wait between retries
31     my $repeat_wait = 5;
32 dpavlin 1.3
33     my %opts;
34 dpavlin 1.5 getopt('h:s:H:S:', \%opts);
35 dpavlin 1.1
36     my @config;
37 dpavlin 1.3 open(C, $CONFIG) || die "sap-mon.conf: $!";
38 dpavlin 1.1 @config = <C>;
39     close(C);
40    
41     my @failed;
42     my @ok;
43     my $fail_msg = "";
44    
45     # sap info leaves trace files, so create dir without write permission
46     # and chdir to it!
47     mkdir "/tmp/sap$$",0555 || die "can't make /tmp/sap$$: $!";
48     chdir "/tmp/sap$$" || die "can't chdir in /tmp/sap$$: $!";
49    
50     foreach (@config) {
51     chomp;
52     s/#.+$//g; # nuke comments
53     s/^\s+$//g; # remove empty lines
54 dpavlin 1.7 my ($ashost,$sysnr,undef) = split(/\s+/,$_,3);
55 dpavlin 1.3 if ($ashost && $ashost ne "" && $sysnr && $sysnr ne "" &&
56     (($opts{h} && $ashost =~ m/$opts{h}/) || not $opts{h}) &&
57 dpavlin 1.4 (($opts{s} && $sysnr =~ m/$opts{s}/) || not $opts{s}) &&
58     (($opts{H} && $ashost !~ m/$opts{H}/) || not $opts{H}) &&
59     (($opts{S} && $sysnr !~ m/$opts{S}/) || not $opts{S}) ) {
60 dpavlin 1.6 my $ret = 1;
61     my $loop = 0;
62     my $output;
63 dpavlin 1.7 my $sys_id;
64 dpavlin 1.6 for(my $i=0; $i<$repeat; $i++) {
65 dpavlin 1.11 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 dpavlin 1.7 undef $sys_id;
72     if ($output =~ m/System\s+ID\s+(\w+)/i) {
73     $sys_id = $1;
74     last;
75     }
76 dpavlin 1.6 # print "$loop: $ashost $sysnr $ret\n";
77     $loop++;
78 dpavlin 1.10 sleep $repeat_wait;
79 dpavlin 1.6 }
80 dpavlin 1.7 if (! $sys_id) {
81 dpavlin 1.1 push @failed, "$ashost ($sysnr)";
82     $fail_msg .= $output;
83     } else {
84     push @ok, "$ashost ($sys_id)";
85     }
86     }
87     }
88    
89     my $exit = 0;
90    
91     if (@failed) {
92 dpavlin 1.6 print join(", ",@failed)," FAILED\n\n";
93 dpavlin 1.1 print "$fail_msg\n";
94     $exit = 1;
95     }
96    
97 dpavlin 1.6 print "ALL OK\nCHECKED HOSTS (which are OK): ",join(", ",@ok),"\n\n";
98 dpavlin 1.1
99     rmdir "/tmp/sap$$" || die "can't rmdir in /tmp/sap$$: $!";
100    
101     exit $exit;

  ViewVC Help
Powered by ViewVC 1.1.26