← Back to branch summary

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

« back to all changes in this revision

Viewing changes to contrib/check_pop3.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_pop3.pl
 
1
#!/usr/bin/perl
 
2
# ------------------------------------------------------------------------------
 
3
# File Name:            check_pop3.pl
 
4
# Author:               Richard Mayhew - South Africa
 
5
# Date:                 2000/01/21
 
6
# Version:              1.0
 
7
# Description:          This script will check to see if an POP3 is running
 
8
#                       and whether authentication can take place.
 
9
# Email:                netsaint@splash.co.za
 
10
# ------------------------------------------------------------------------------
 
11
# Copyright 1999 (c) Richard Mayhew
 
12
# Credits go to Ethan Galstad for coding Nagios
 
13
# If any changes are made to this script, please mail me a copy of the
 
14
# changes :)
 
15
# License GPL
 
16
# ------------------------------------------------------------------------------
 
17
# Date          Author          Reason
 
18
# ----          ------          ------
 
19
# 1999/09/20    RM              Creation
 
20
# 1999/09/20    TP              Changed script to use strict, more secure by
 
21
#                               specifying $ENV variables. The bind command is
 
22
#                               still insecure through.  Did most of my work
 
23
#                               with perl -wT and 'use strict'
 
24
# 2000/01/20    RM              Corrected POP3 Exit State.
 
25
# 2000/01/21    RM              Fix Exit Codes Again!!
 
26
# ------------------------------------------------------------------------------
 
27
 
 
28
# -----------------------------------------------------------------[ Require ]--
 
29
require 5.004;
 
30
 
 
31
# --------------------------------------------------------------------[ Uses ]--
 
32
use Socket;
 
33
use strict;
 
34
 
 
35
# --------------------------------------------------------------[ Enviroment ]--
 
36
$ENV{PATH} = "/bin";
 
37
$ENV{BASH_ENV} = "";
 
38
$|=1;
 
39
# ------------------------------------------------------------------[ Global ]--
 
40
my $TIMEOUT = 60;
 
41
        
 
42
# -------------------------------------------------------------------[ usage ]--
 
43
sub usage
 
44
{
 
45
        print "Minimum arguments not supplied!\n";
 
46
        print "\n";
 
47
        print "Perl Check POP3 plugin for Nagios\n";
 
48
        print "Copyright (c) 2000 Richard Mayhew\n";
 
49
        print "\n";
 
50
        print "Usage: check_pop3.pl <host> <username> <password> [port]\n";
 
51
        print "\n";
 
52
        print "<port> = Port that the pop3 daemon is running on <host>. Defaults to 110.\n";
 
53
        exit -1;
 
54
 
 
55
}
 
56
 
 
57
# --------------------------------------------------------------[ bindRemote ]--
 
58
sub bindRemote
 
59
{
 
60
        my ($in_remotehost, $in_remoteport, $in_hostname) = @_;
 
61
        my $proto;
 
62
        my $sockaddr;
 
63
        my $this;
 
64
        my $thisaddr;
 
65
        my $that;
 
66
        my ($name, $aliases,$type,$len,$thataddr) = gethostbyname($in_remotehost);
 
67
 
 
68
        if (!socket(ClientSocket,AF_INET, SOCK_STREAM, $proto)) { die $!; }
 
69
        $sockaddr = 'S n a4 x8';
 
70
        $this = pack($sockaddr, AF_INET, 0, $thisaddr);
 
71
        $that = pack($sockaddr, AF_INET, $in_remoteport, $thataddr);
 
72
        if (!bind(ClientSocket, $this)) { print "Connection Refused"; exit 2; }
 
73
        if (!connect(ClientSocket, $that)) { print "Connection Refused"; exit 2; }
 
74
        select(ClientSocket); $| = 1; select(STDOUT);
 
75
        return \*ClientSocket;
 
76
}
 
77
 
 
78
# ====================================================================[ MAIN ]==
 
79
MAIN:
 
80
{
 
81
        my $hostname;
 
82
        my $remotehost = shift || &usage;
 
83
        my $username = shift || &usage;
 
84
        my $password = shift || &usage;
 
85
        my $remoteport = shift || 110;
 
86
 
 
87
        # Just in case of problems, let's not hang Nagios
 
88
        $SIG{'ALRM'} = sub {
 
89
                print "Something is Taking a Long Time, Increase Your TIMEOUT (Currently Set At $TIMEOUT Seconds)\n";
 
90
                exit -1;
 
91
        };
 
92
        
 
93
        alarm($TIMEOUT);
 
94
 
 
95
        chop($hostname = `hostname`);
 
96
        my ($name, $alias, $proto) = getprotobyname('tcp');
 
97
        my $ClientSocket = &bindRemote($remotehost,$remoteport,$hostname);
 
98
        
 
99
 
 
100
print ClientSocket "user $username\n";
 
101
 
 
102
#Debug Server
 
103
#print "user $username\n";
 
104
 
 
105
#Sleep or 3 secs, incase server is slow.
 
106
sleep 3;
 
107
 
 
108
print ClientSocket "pass $password\n";
 
109
 
 
110
#Debug Server
 
111
#print "pass $password\n";
 
112
 
 
113
while (<ClientSocket>) {
 
114
 
 
115
print ClientSocket "pass $password\n";
 
116
 
 
117
#Debug Server
 
118
#print $_;
 
119
 
 
120
err($_) if (m/\-ERR\s+(.*)\s+.*/);
 
121
message($_) if (m/\+OK Mailbox open,\s+(.*\d)\s+messages.*/);
 
122
}
 
123
}
 
124
 
 
125
sub message 
 
126
{
 
127
        my $answer = "UNKNOWN";
 
128
        $answer = "Pop3 OK - Total Messages On Server :- $1";   
 
129
        alarm(0);
 
130
        print ClientSocket "quit\n";
 
131
        print "$answer";
 
132
        exit 0;
 
133
}
 
134
 
 
135
sub err
 
136
{
 
137
        my $answer = "UNKNOWN";
 
138
        $answer = "Pop3 Error :- $1";
 
139
        alarm(0);
 
140
        print ClientSocket "quit\n";
 
141
        print "$answer";
 
142
        exit 2;
 
143
}
 
144