nagios/check_email/check_email - diff

Return to check_email CVS log

Up to [local] / nagios / check_email

version 1.2, 2006/09/27 19:54:27

version 1.3, 2006/10/18 16:39:18

Line 11

# 11.15.2003 Version 1.0

# $RedRiver: check_email,v 1.1 2006/08/29 22:28:49 andrew Exp $

# $RedRiver: check_email,v 1.2 2006/09/27 18:54:27 andrew Exp $

use POSIX;

use lib "/usr/local/libexec/nagios" ;

Line 108

my $smtp = Net::SMTP->new($smtp_server) || done('CRITICAL', "Couldn't connect to SMTP Server $smtp_server");

$smtp->mail($from_address) || done('CRITICAL', "Couldn't specify smtp from address $from_address on SMTP server $smtp_server");

$smtp->mail($from_address) || done('WARNING', "Couldn't specify smtp from address $from_address on SMTP server $smtp_server");

$smtp->to($to_address) || done('CRITICAL', "Couldn't specify smtp to address $to_address on SMTP server $smtp_server");

$smtp->data() || done('CRITICAL', "Couldn't begin data on SMTP server $smtp_server");

Line 186

print "a POP account. Failing at any point during if there is \n";

print "a problem. It gives a WARNING if the mail is not received \n";

print "in time, and gives a CRITICAL if it cannot connect to any \n";

print "services. Do not use an account that you want to recieve \n";

print "services. Do not use an account that you want to receive \n";

print "mail from. This program will delete ALL mail in the mailbox \n";

print "that you specify.";

print "\n";