/[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.2 by dpavlin, Wed Jul 10 08:31:21 2002 UTC revision 1.3 by dpavlin, Wed Jul 10 12:10:21 2002 UTC
# Line 2  Line 2 
2  # File:         sap.monitor  # File:         sap.monitor
3  # Author:       Dobrica Pavlinusic, dpavlin@rot13.org  # Author:       Dobrica Pavlinusic, dpavlin@rot13.org
4  # Description:  monitor sap servers using sapinfo from RFCSDK  # Description:  monitor sap servers using sapinfo from RFCSDK
5    #
6    # Usage: sap.monitor [-h ashost filter] [-s sysnr filter]
7    #
8    
9  use strict;  use strict;
10    use Getopt::Std;
11    
12    # change paths here if you want to
13    my $CONFIG = "/usr/local/etc/sap-mon.conf";
14    my $SAPINFO = "/usr/local/bin/sapinfo";
15    
16    my %opts;
17    getopt('h:s:', \%opts);
18    
19  my @config;  my @config;
20  open(C,"/usr/local/etc/sap-mon.conf") || die "sap-mon.conf: $!";  open(C, $CONFIG) || die "sap-mon.conf: $!";
21  @config = <C>;  @config = <C>;
22  close(C);  close(C);
23    
# Line 24  foreach (@config) { Line 35  foreach (@config) {
35          s/#.+$//g;      # nuke comments          s/#.+$//g;      # nuke comments
36          s/^\s+$//g;     # remove empty lines          s/^\s+$//g;     # remove empty lines
37          my ($ashost,$sysnr) = split(/\t+/,$_,2);          my ($ashost,$sysnr) = split(/\t+/,$_,2);
38          if ($ashost && $ashost ne "" && $sysnr && $sysnr ne "") {          if ($ashost && $ashost ne "" && $sysnr && $sysnr ne "" &&
39                  my $output = `/usr/local/bin/sapinfo trace=0 ashost=$ashost sysnr=$sysnr`;                  (($opts{h} && $ashost =~ m/$opts{h}/) || not $opts{h}) &&
40                    (($opts{s} && $sysnr  =~ m/$opts{s}/) || not $opts{s}) ) {
41                    my $output = `$SAPINFO trace=0 ashost=$ashost sysnr=$sysnr`;
42                  $output =~ m/System ID\s+(\w+)/;                  $output =~ m/System ID\s+(\w+)/;
43                  my $sys_id = $1 || "";                  my $sys_id = $1 || "";
44                  if ($? != 0) {                  if ($? != 0) {
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26