1 #!/usr/local/bin/perl -w
6 use vars qw
/$opt_e $opt_c/;
8 $ENV{"PATH"} = "/usr/bin:/usr/sbin:/bin";
15 my $CFG_DEF = "/opt/nagios/etc/cgi.cfg";
16 my $QUERY = "select *, UNIX_TIMESTAMP(last_update) as ut from programstatus;";
17 my $EXPIRE_DEF = 5; ## expressed in minutes
21 use constant WARN
=> 2;
27 print STDERR
"$0 -F -e <expire time in minutes> -C <process string>\n";
34 my $EXPIRE = $opt_e || $EXPIRE_DEF;
35 my $CFG = $opt_c || $CFG_DEF;
37 ( -f
$CFG ) or die "Can't open config file '$CFG': $!\n";
39 my ($dbhost, $dbport, $dbuser, $dbpass, $dbname);
43 if (/^xsddb_host=(.+)/) { $dbhost = $1; next; };
44 if (/^xsddb_port=(.+)/) { $dbport = $1; next; };
45 if (/^xsddb_database=(.+)/) { $dbname = $1; next; };
46 if (/^xsddb_username=(.+)/) { $dbuser = $1; next; };
47 if (/^xsddb_password=(.+)/) { $dbpass = $1; next; };
51 # print "($dbhost, $dbport, $dbuser, $dbpass, $dbname)\n";
53 my $dsn = "DBI:$driver:database=$dbname;host=$dbhost;port=$dbport";
54 my $dbh = DBI
->connect($dsn, $dbuser, $dbpass, {'RaiseError' => 1});
56 my $sth = $dbh->prepare($QUERY);
57 if (!$sth) { die "Error:" . $dbh->errstr . "\n"; }
59 if (!$sth->execute) { die "Error:" . $sth->errstr . "\n"; }
63 my $names = $sth->{'NAME'};
64 my $numFields = $sth->{'NUM_OF_FIELDS'};
65 my $ref = $sth->fetchrow_arrayref;
66 for (my $i = 0; $i < $numFields; $i++) {
67 $status{"$$names[$i]"} = $$ref[$i];
70 #foreach (keys(%status)) {
71 # print "$_: $status{$_}\n";
74 my $lastupdated = time() - $status{"ut"};
75 if ( $lastupdated < ($EXPIRE*60) ) { ## convert $EXPIRE to seconds
79 open(PS
, "ps -eaf | grep $status{nagios_pid} | grep -v grep | ");
87 print "Nagios OK: located $PROCCNT processes, program status updated $lastupdated seconds ago\n";