knowhow/check_pgpool.pl at master · pasquall/knowhow · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
#!/usr/bin/perl -w
# Nagios plugin to check pgpool2 status
# Author: Pravin Rane
# Email: pravin.rane@gmail.com
# Command: # pcp_node_info 10 IP  9898  username password 0
# Output: postgres-db 5432 2 nan
#           |             |   |  |
#           |             |   |  +- Load balancer weight
#           |             |   +---- Status: 1>Node is up. No connections yet. 2>Node is up. Connections are pooled. 3>Node is down.
#           |             +-------- Port Number
#           +---------------------- DB Hostname
# Config: Set login credentials in /etc/pcp.conf
use strict;
use Getopt::Long;
use vars qw($opt_V $opt_h $opt_H $opt_C $PROGNAME $opt_t $opt_n $opt_u $opt_p);
use lib "/usr/libexec/nagios/" ;
use utils qw(%ERRORS &print_revision &support &usage);
use Expect;

$PROGNAME = "check_pgpool2.pl";
my $ERRORS = "";
my $state = "unknown";
my $status = 3 ;
sub print_help ();
sub print_usage ();

$ENV{'PATH'}='';
$ENV{'BASH_ENV'}='';
$ENV{'ENV'}='';

Getopt::Long::Configure('bundling');
GetOptions
    ("V"   => \$opt_V, "version"        => \$opt_V,
     "h"   => \$opt_h, "help"           => \$opt_h,
     "H=s" => \$opt_H, "hostname=s"     => \$opt_H,
     "t=i" => \$opt_t, "timeout=i"      => \$opt_t,
     "n=i" => \$opt_n, "nodeid=i"       => \$opt_n,
     "u=s" => \$opt_u, "username=s"     => \$opt_u,
     "p=s" => \$opt_p, "password=s"     => \$opt_p);

if ($opt_V) {
                print_revision($PROGNAME,'$Revision: 1.0 $');
                exit $ERRORS{$state};
}

if ($opt_h) {print_help(); exit $ERRORS{$state};}

($opt_H) || usage("Host name/address not specified\n");
($opt_u) || usage("Username not specified\n");
($opt_p) || usage ("Password not specified\n");
my $host = $1 if ($opt_H =~ /([-.A-Za-z0-9]+)/);
($host) || usage("Invalid host: $opt_H\n");
($opt_t) || ($opt_t = 5);
($opt_n) || ($opt_n = 0);

my $expect = Expect->new;
my $command = '/usr/bin/pcp_node_info';
my @parameters = ('-h', $opt_H, '-U', $opt_u, '-n', $opt_n);
my $timeout = 200;
my $password = $opt_p;

$expect->raw_pty(1);
$expect->spawn($command, @parameters)
    or die "Cannot spawn $command: $!\n";

$expect->log_stdout( 0 );
$expect->log_file( '/tmp/expecthist' );
$expect->expect($timeout,
                [   qr/Password:/i, #/
                    sub {
                        my $self = shift;
                        $self->send("$password\n");
                        exp_continue;
                    }
                ]);

open my $fhandle, '<', '/tmp/expecthist';
chomp(my @lines = <$fhandle>);
close $fhandle;
unlink('/tmp/expecthist');

my ($DB, $PORT, $STAT, $W) = split ' ', $lines[1];

if ($STAT == 2) {
    $state = "ok";
    $status = 0 ;
}
elsif ($STAT == 3) {
    $state = "critical";
    $status = 2 ;
}
elsif ($STAT == 1) {
    $state = "warning";
    $status = 1 ;
}

print $state."|".$lines[1]."\n";
exit ($status);

sub print_usage () {
        print "Usage: $PROGNAME -H <host> [-t <timeout>] -u <username> -p <password> [-n <nodeid>]\n";
}

sub print_help () {
        print_revision($PROGNAME,'$Revision: 0.5 $');
                print "Copyright (c) 2012 Pravin Rane
Licenc : GPL - http://www.fsf.org/licenses/gpl.txt
This pugin checks pgpool2 status.

";
        print_usage();
        print "
-H, --hostname=HOST
        Name or IP address of host to check
-t --timeout=seconds default 5
        timeout value in seconds. PCP disconnects if
        pgpool-II does not respond in this many seconds.
-n --nodeid = default 0
-u --username=PCP username
-p --password=PCP password

";
        support();
}