← Back to branch summary

~ubuntu-branches/ubuntu/precise/nagios-plugins/precise-proposed

« back to all changes in this revision

Viewing changes to contrib/check_nagios.pl

  • Committer: Bazaar Package Importer
  • Author(s): Guido Trotter
  • Date: 2004-06-15 15:37:48 UTC
  • Revision ID: james.westby@ubuntu.com-20040615153748-pq7702qdzghqfcns
Tags: upstream-1.3.1.0
Import upstream version 1.3.1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
contrib/check_nagios.pl
 
1
#!/usr/bin/perl
 
2
# denao - denao@uol.com.br - Systems Engineering
 
3
# Universo Online - http://www.uol.com.br 
 
4
use DBI;
 
5
use Time::Local;
 
6
 
 
7
my $t_lambuja = 5;           # (expire_minutes)
 
8
my $databasename = "";       # The name of nagios database (i.e.: nagios)
 
9
my $table = "programstatus";
 
10
my $where = "localhost";     # The machine where the database
 
11
my $port = "3306";
 
12
my $base = "DBI:mysql:$databasename:$where:$port";
 
13
my $user = "";               # the user to connect to the database 
 
14
                             # (needs permission to "select at programstatus table only"
 
15
my $password = "";           # the password (if any)
 
16
my %results;
 
17
my @fields = qw( last_update );
 
18
my $dbh = DBI->connect($base,$user,$password);
 
19
my $fields = join(', ', @fields);
 
20
my $query = "SELECT $fields FROM $table";
 
21
 
 
22
my $sth = $dbh->prepare($query);
 
23
$sth->execute();
 
24
 
 
25
@results{@fields} = ();
 
26
$sth->bind_columns(map { \$results{$_} } @fields);
 
27
 
 
28
$sth->fetch();
 
29
$sth->finish();
 
30
$dbh->disconnect();
 
31
 
 
32
check_update();
 
33
 
 
34
sub check_update {
 
35
($yea,$mon,$day,$hou,$min,$sec)=($results{last_update}=~/(\d+)\-(\d+)\-(\d+)\s(\d+)\:(\d+)\:(\d+)/);
 
36
($sec_now, $min_now, $hou_now, $day_now, $mon_now, $yea_now) = (localtime(time))[0,1,2,3,4,5];
 
37
$mon_now+=1; $yea_now+=1900;
 
38
$unixdate=timelocal($sec,$min,$hou,$day,$mon,$yea);
 
39
$unixdate_now=timelocal($sec_now,$min_now,$hou_now,$day_now,$mon_now,$yea_now);
 
40
   if (scalar($unixdate_now - $unixdate) > scalar($t_lambuja * 60)) {
 
41
       print "Nagios problem: nagios is down, for at least " . scalar($t_lambuja) . " minutes.\n";
 
42
       exit(1);
 
43
   } else {
 
44
       print "Nagios ok: status data updated " . scalar($unixdate_now - $unixdate) . " seconds ago\n";
 
45
       exit(0);
 
46
   }
 
47
}
 
48