summaryrefslogtreecommitdiffstats
path: root/contrib/check_pop3.pl
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/check_pop3.pl')
-rw-r--r--contrib/check_pop3.pl148
1 files changed, 0 insertions, 148 deletions
diff --git a/contrib/check_pop3.pl b/contrib/check_pop3.pl
deleted file mode 100644
index 37f2ce03..00000000
--- a/contrib/check_pop3.pl
+++ /dev/null
@@ -1,148 +0,0 @@
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# 2003/12/30 CZ Proper CRLF in communication w/server
27# Fixed infinite loop
28# Error checking on welcome banner, USER, PASS commands
29# Better error condition handling
30
31# ------------------------------------------------------------------------------
32
33# -----------------------------------------------------------------[ Require ]--
34require 5.004;
35
36# --------------------------------------------------------------------[ Uses ]--
37use Socket;
38use strict;
39
40# --------------------------------------------------------------[ Enviroment ]--
41$ENV{PATH} = "/bin";
42$ENV{BASH_ENV} = "";
43$|=1;
44# ------------------------------------------------------------------[ Global ]--
45my $TIMEOUT = 60;
46
47# -------------------------------------------------------------------[ usage ]--
48sub usage
49{
50 print "Minimum arguments not supplied!\n";
51 print "\n";
52 print "Perl Check POP3 plugin for Nagios\n";
53 print "Copyright (c) 2000 Richard Mayhew\n";
54 print "\n";
55 print "Usage: check_pop3.pl <host> <username> <password> [port]\n";
56 print "\n";
57 print "<port> = Port that the pop3 daemon is running on <host>. Defaults to 110.\n";
58 exit -1;
59
60}
61
62# --------------------------------------------------------------[ bindRemote ]--
63sub bindRemote
64{
65 my ($in_remotehost, $in_remoteport, $in_hostname) = @_;
66 my $proto;
67 my $sockaddr;
68 my $this;
69 my $thisaddr;
70 my $that;
71 my ($name, $aliases,$type,$len,$thataddr) = gethostbyname($in_remotehost);
72
73 if (!socket(ClientSocket,AF_INET, SOCK_STREAM, $proto)) { die $!; }
74 $sockaddr = 'S n a4 x8';
75 $this = pack($sockaddr, AF_INET, 0, $thisaddr);
76 $that = pack($sockaddr, AF_INET, $in_remoteport, $thataddr);
77 if (!bind(ClientSocket, $this)) { print "Connection Refused\n"; exit 2; }
78 if (!connect(ClientSocket, $that)) { print "Connection Refused\n"; exit 2; }
79 select(ClientSocket); $| = 1; select(STDOUT);
80 return \*ClientSocket;
81}
82
83# ====================================================================[ MAIN ]==
84MAIN:
85{
86 my $hostname;
87 my $remotehost = shift || &usage;
88 my $username = shift || &usage;
89 my $password = shift || &usage;
90 my $remoteport = shift || 110;
91
92 # Just in case of problems, let's not hang Nagios
93 $SIG{'ALRM'} = sub {
94 print "Something is Taking a Long Time, Increase Your TIMEOUT (Currently Set At $TIMEOUT Seconds)\n";
95 exit -1;
96 };
97
98 alarm($TIMEOUT);
99
100 chop($hostname = `hostname`);
101 my ($name, $alias, $proto) = getprotobyname('tcp');
102 my $ClientSocket = &bindRemote($remotehost,$remoteport,$hostname);
103
104
105 &err("no welcome banner\n") unless $_ = <ClientSocket>;
106 &err("bad welcome banner: " . $_) unless $_ =~ /^\+OK/;
107
108 print ClientSocket "USER $username\r\n";
109
110 &err("no response to USER command\n") unless $_ = <ClientSocket>;
111 &err("bad response to USER: " . $_) unless $_ =~ /^\+OK/;
112
113 print ClientSocket "PASS $password\r\n";
114
115 &err("no response to PASS command\n") unless $_ = <ClientSocket>;
116 &err("bad response to PASS: " . $_) unless $_ =~ /^\+OK/;
117
118 print ClientSocket "LIST\r\n";
119
120 my $bad = 1;
121 my $msgs = 0;
122 while (<ClientSocket>) {
123 &err(($1||' UNKNOWN')."\n") if (m/\-ERR(.*)/);
124 $bad = 0 if /^\+OK/;
125 $msgs = $1 if /^(\d+)\s+/;
126 last if /^\./;
127 }
128 &message("$msgs\n") unless $bad;
129 &err("missing +OK to LIST command\n");
130}
131
132sub message
133{
134 my $msg = shift;
135 alarm(0);
136 print ClientSocket "QUIT\r\n";
137 print "POP3 OK - Total Messages On Server: $msg";
138 exit 0;
139}
140
141sub err
142{
143 my $msg = shift;
144 alarm(0);
145 print ClientSocket "QUIT\r\n";
146 print "POP3 Error: $msg";
147 exit 2;
148}