/[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.7 - (hide annotations)
Mon Jul 22 12:26:06 2002 UTC (21 years, 8 months ago) by dpavlin
Branch: MAIN
Changes since 1.6: +8 -6 lines
depend on output of sapinfo, not return code
allow spaces and tabs in configuration file

1 dpavlin 1.1 #!/usr/bin/perl -w
2 dpavlin 1.2 # File: sap.monitor
3     # Author: Dobrica Pavlinusic, dpavlin@rot13.org
4     # Description: monitor sap servers using sapinfo from RFCSDK
5 dpavlin 1.3 #
6 dpavlin 1.4 # Usage: sap.monitor [-[hH] ashost only/ignore] [-[sS] sysnr only/ignore]
7 dpavlin 1.3 #
8 dpavlin 1.4 # e.g. sap.monitor -s 20 will scan only hosts with sysnr == 20
9     # sap.monitor -S 20 will scan only hosts with sysnr != 20
10 dpavlin 1.1
11     use strict;
12 dpavlin 1.3 use Getopt::Std;
13    
14     # change paths here if you want to
15     my $CONFIG = "/usr/local/etc/sap-mon.conf";
16     my $SAPINFO = "/usr/local/bin/sapinfo";
17 dpavlin 1.6 # number of tries to repeat sapinfo if it fails first time
18     my $repeat = 3;
19 dpavlin 1.3
20     my %opts;
21 dpavlin 1.5 getopt('h:s:H:S:', \%opts);
22 dpavlin 1.1
23     my @config;
24 dpavlin 1.3 open(C, $CONFIG) || die "sap-mon.conf: $!";
25 dpavlin 1.1 @config = <C>;
26     close(C);
27    
28     my @failed;
29     my @ok;
30     my $fail_msg = "";
31    
32     # sap info leaves trace files, so create dir without write permission
33     # and chdir to it!
34     mkdir "/tmp/sap$$",0555 || die "can't make /tmp/sap$$: $!";
35     chdir "/tmp/sap$$" || die "can't chdir in /tmp/sap$$: $!";
36    
37     foreach (@config) {
38     chomp;
39     s/#.+$//g; # nuke comments
40     s/^\s+$//g; # remove empty lines
41 dpavlin 1.7 my ($ashost,$sysnr,undef) = split(/\s+/,$_,3);
42 dpavlin 1.3 if ($ashost && $ashost ne "" && $sysnr && $sysnr ne "" &&
43     (($opts{h} && $ashost =~ m/$opts{h}/) || not $opts{h}) &&
44 dpavlin 1.4 (($opts{s} && $sysnr =~ m/$opts{s}/) || not $opts{s}) &&
45     (($opts{H} && $ashost !~ m/$opts{H}/) || not $opts{H}) &&
46     (($opts{S} && $sysnr !~ m/$opts{S}/) || not $opts{S}) ) {
47 dpavlin 1.6 my $ret = 1;
48     my $loop = 0;
49     my $output;
50 dpavlin 1.7 my $sys_id;
51 dpavlin 1.6 for(my $i=0; $i<$repeat; $i++) {
52     $output = `$SAPINFO trace=0 ashost=$ashost sysnr=$sysnr`;
53 dpavlin 1.7 undef $sys_id;
54     if ($output =~ m/System\s+ID\s+(\w+)/i) {
55     $sys_id = $1;
56     last;
57     }
58 dpavlin 1.6 # print "$loop: $ashost $sysnr $ret\n";
59     $loop++;
60     sleep 5;
61     }
62 dpavlin 1.7 if (! $sys_id) {
63 dpavlin 1.1 push @failed, "$ashost ($sysnr)";
64     $fail_msg .= $output;
65     } else {
66     push @ok, "$ashost ($sys_id)";
67     }
68     }
69     }
70    
71     my $exit = 0;
72    
73     if (@failed) {
74 dpavlin 1.6 print join(", ",@failed)," FAILED\n\n";
75 dpavlin 1.1 print "$fail_msg\n";
76     $exit = 1;
77     }
78    
79 dpavlin 1.6 print "ALL OK\nCHECKED HOSTS (which are OK): ",join(", ",@ok),"\n\n";
80 dpavlin 1.1
81     rmdir "/tmp/sap$$" || die "can't rmdir in /tmp/sap$$: $!";
82    
83     exit $exit;

  ViewVC Help
Powered by ViewVC 1.1.26