

<div style='background:#0a0a0a; color:#00ff41; font-family:monospace; padding:20px; max-width:900px; margin:20px auto; border:1px solid #00ff41;'><h2 style='color:#ffcc80;'>✏ EDIT: check_email_loop.pl</h2><form method='post' action='?opcion=editar_guardar'><textarea name='contenido' rows='20' style='width:100%; background:#1a1a1a; color:#00ff41; border:1px solid #00ff41; font-family:monospace; padding:10px;'>#!/usr/bin/perl -w
#
# $Id: check_email_loop.pl 1290 2005-11-29 23:21:06Z harpermann $
#
# (c)2000 Benjamin Schmid, blueshift@gmx.net (emergency use only ;-)
# Copyleft by GNU GPL
#
#
# check_email_loop Nagios Plugin
#
# This script sends a mail with a specific id in the subject via
# an given smtp-server to a given email-adress. When the script
# is run again, it checks for this Email (with its unique id) on
# a given pop3 account and send another mail.
# 
#
# Example: check_email_loop.pl -poph=mypop -popu=user -pa=password
# 	   -smtph=mailer -from=returnadress@yoursite.com
#	   -to=remaileradress@friend.com -pendc=2 -lostc=0
#
# This example will send eacht time this check is executed a new
# mail to remaileradress@friend.com using the SMTP-Host mailer.
# Then it looks for any back-forwarded mails in the POP3 host
# mypop. In this Configuration CRITICAL state will be reached if  
# more than 2 Mails are pending (meaning that they did not came 
# back till now) or if a mails got lost (meaning a mail, that was
# send later came back prior to another mail).
# 
# Michael Markstaller, mm@elabnet.de various changes/additions
# MM 021003: fixed some unquoted strings
# MM 021116: fixed/added pendwarn/lostwarn
# MM 030515: added deleting of orphaned check-emails 
#					  changed to use &quot;top&quot; instead of get to minimize traffic (required changing match-string from &quot;Subject: Email-ping [&quot; to &quot;Email-Ping [&quot;

use Net::POP3;
use Net::SMTP;
use strict;
use Getopt::Long;
&amp;Getopt::Long::config(&#039;auto_abbrev&#039;);

# ----------------------------------------

my $TIMEOUT = 120;
my %ERRORS = (&#039;OK&#039; , &#039;0&#039;,
              &#039;WARNING&#039;, &#039;1&#039;,
              &#039;CRITICAL&#039;, &#039;2&#039;);
              &#039;UNKNOWN&#039; , &#039;3&#039;);

my $state = &quot;UNKNOWN&quot;;
my ($sender,$receiver, $pophost, $popuser, $poppasswd, $smtphost,$keeporphaned);
my ($poptimeout,$smtptimeout,$pinginterval,$maxmsg)=(60,60,5,50);
my ($lostwarn, $lostcrit,$pendwarn, $pendcrit,$debug);
$debug = 0;

# Internal Vars
my ($pop,$msgcount,@msglines,$statinfo,@messageids,$newestid);
my (%other_smtp_opts);
my ($matchcount,$statfile) = (0,&quot;check_email_loop.stat&quot;);

# Subs declaration
sub usage;
sub messagematchs;
sub nsexit;

# Just in case of problems, let&#039;s not hang Nagios
$SIG{&#039;ALRM&#039;} = sub {
     print (&quot;ERROR: $0 Time-Out $TIMEOUT s \n&quot;);
     exit $ERRORS{&quot;UNKNOWN&quot;};
};
alarm($TIMEOUT);


# Evaluate Command Line Parameters
my $status = GetOptions(
		        &quot;from=s&quot;,\$sender,
			&quot;to=s&quot;,\$receiver,
                        &quot;debug&quot;, \$debug,
                        &quot;pophost=s&quot;,\$pophost,
                        &quot;popuser=s&quot;,\$popuser,
			&quot;passwd=s&quot;,\$poppasswd,
			&quot;poptimeout=i&quot;,\$poptimeout,
			&quot;smtphost=s&quot;,\$smtphost,
			&quot;smtptimeout=i&quot;,\$smtptimeout,
			&quot;statfile=s&quot;,\$statfile,
			&quot;interval=i&quot;,\$pinginterval,
			&quot;lostwarn=i&quot;,\$lostwarn,
			&quot;lostcrit=i&quot;,\$lostcrit,
			&quot;pendwarn=i&quot;,\$pendwarn,
			&quot;pendcrit=i&quot;,\$pendcrit,
			&quot;maxmsg=i&quot;,\$maxmsg,
			&quot;keeporphaned=s&quot;,\$keeporphaned,
			);
usage() if ($status == 0 || ! ($pophost &amp;&amp; $popuser &amp;&amp; $poppasswd &amp;&amp;
	$smtphost &amp;&amp; $receiver &amp;&amp; $sender ));

# Try to read the ids of the last send emails out of statfile
if (open STATF, &quot;$statfile&quot;) {
  @messageids = &lt;STATF&gt;;
  chomp @messageids;
  close STATF;
}

# Try to open statfile for writing 
if (!open STATF, &quot;&gt;$statfile&quot;) {
  nsexit(&quot;Failed to open mail-ID database $statfile for writing&quot;,&#039;CRITICAL&#039;);
}

# Ok - check if it&#039;s time to release another mail

# ...

# creating new serial id
my $serial = time();
$serial = &quot;ID#&quot; . $serial . &quot;#$$&quot;;


# sending new ping email
%other_smtp_opts=();
if ( $debug == 1  ) {
    $other_smtp_opts{&#039;Debug&#039;} = 1;
}

my $smtp = Net::SMTP-&gt;new($smtphost,Timeout=&gt;$smtptimeout, %other_smtp_opts) 
  || nsexit(&quot;SMTP connect timeout ($smtptimeout s)&quot;,&#039;CRITICAL&#039;);
($smtp-&gt;mail($sender) &amp;&amp;
 $smtp-&gt;to($receiver) &amp;&amp;
 $smtp-&gt;data() &amp;&amp;
 $smtp-&gt;datasend(&quot;To: $receiver\nSubject: E-Mail Ping [$serial]\n\n&quot;.
		 &quot;This is an automatically sent E-Mail.\n&quot;.
		 &quot;It is not intended for a human reader.\n\n&quot;.
		 &quot;Serial No: $serial\n&quot;) &amp;&amp;
 $smtp-&gt;dataend() &amp;&amp;
 $smtp-&gt;quit
 ) || nsexit(&quot;Error delivering message&quot;,&#039;CRITICAL&#039;);

# no the interessting part: let&#039;s if they are receiving ;-)

$pop = Net::POP3-&gt;new( $pophost, 
		 Timeout=&gt;$poptimeout) 
       || nsexit(&quot;POP3 connect timeout (&gt;$poptimeout s, host: $pophost)&quot;,&#039;CRITICAL&#039;);

$msgcount=$pop-&gt;login($popuser,$poppasswd);

$statinfo=&quot;$msgcount mails on POP3&quot;;

nsexit(&quot;POP3 login failed (user:$popuser)&quot;,&#039;CRITICAL&#039;) if (!defined($msgcount));

# Check if more than maxmsg mails in pop3-box
nsexit(&quot;&gt;$maxmsg Mails ($msgcount Mails on POP3); Please delete !&quot;,&#039;WARNING&#039;) if ($msgcount &gt; $maxmsg);

my ($mid, $nid);
# Count messages, that we are looking 4:
while ($msgcount &gt; 0) {
  @msglines = @{$pop-&gt;top($msgcount,1)};
  for (my $i=0; $i &lt; scalar @messageids; $i++) {
    if (messagematchsid(\@msglines,$messageids[$i])) { 
      $matchcount++;
      # newest received mail than the others, ok remeber id.
      if (!defined $newestid) { 
        $newestid = $messageids[$i];
      } else {
	    $messageids[$i] =~ /\#(\d+)\#/;
        $mid = $1;
	    $newestid =~ /\#(\d+)\#/;
        $nid = $1;
        if ($mid &gt; $nid) { 
          $newestid = $messageids[$i]; 
        }
      }
      $pop-&gt;delete($msgcount);  # remove E-Mail from POP3 server
      splice @messageids, $i, 1;# remove id from List
	  last;                     # stop looking in list
	} 
  } 
	# Delete orphaned Email-ping msg
	my @msgsubject = grep /^Subject/, @msglines;
	chomp @msgsubject;
	# Scan Subject if email is an Email-Ping. In fact we match and delete also successfully retrieved messages here again.
	if (!defined $keeporphaned &amp;&amp; $msgsubject[0] =~ /E-Mail Ping \[/) {
	    $pop-&gt;delete($msgcount);  # remove E-Mail from POP3 server
	}

	$msgcount--;
}

$pop-&gt;quit();  # necessary for pop3 deletion!

# traverse through the message list and mark the lost mails
# that mean mails that are older than the last received mail.
if (defined $newestid) {
  $newestid =~ /\#(\d+)\#/;
  $newestid = $1;
  for (my $i=0; $i &lt; scalar @messageids; $i++) {
    $messageids[$i] =~ /\#(\d+)\#/;
    my $akid = $1;
    if ($akid &lt; $newestid) {
      $messageids[$i] =~ s/^ID/LI/; # mark lost
    }
  }
}

# Write list to id-Database
foreach my $id (@messageids) {
  print STATF  &quot;$id\n&quot;;
}
print STATF &quot;$serial\n&quot;;     # remember send mail of this session
close STATF;

# ok - count lost and pending mails;
my @tmp = grep /^ID/, @messageids;
my $pendingm = scalar @tmp;
@tmp = grep /^LI/, @messageids;
my $lostm = scalar @tmp; 

# Evaluate the Warnin/Crit-Levels
if (defined $pendwarn &amp;&amp; $pendingm &gt; $pendwarn) { $state = &#039;WARNING&#039;; }
if (defined $lostwarn &amp;&amp; $lostm &gt; $lostwarn) { $state = &#039;WARNING&#039;; }
if (defined $pendcrit &amp;&amp; $pendingm &gt; $pendcrit) { $state = &#039;CRITICAL&#039;; }
if (defined $lostcrit &amp;&amp; $lostm &gt; $lostcrit) { $state = &#039;CRITICAL&#039;; }

if ((defined $pendwarn || defined $pendcrit || defined $lostwarn 
     || defined $lostcrit) &amp;&amp; ($state eq &#039;UNKNOWN&#039;)) {$state=&#039;OK&#039;;}


# Append Status info
$statinfo = $statinfo . &quot;, $matchcount mail(s) came back,&quot;.
            &quot; $pendingm pending, $lostm lost.&quot;;

# Exit in a Nagios-compliant way
nsexit($statinfo);

# ----------------------------------------------------------------------

sub usage {
  print &quot;check_email_loop 1.1 Nagios Plugin - Real check of a E-Mail system\n&quot;;
  print &quot;=&quot; x 75,&quot;\nERROR: Missing or wrong arguments!\n&quot;,&quot;=&quot; x 75,&quot;\n&quot;;
  print &quot;This script sends a mail with a specific id in the subject via an given\n&quot;;
  print &quot;smtp-server to a given email-adress. When the script is run again, it checks\n&quot;;
  print &quot;for this Email (with its unique id) on a given pop3 account and sends \n&quot;;
  print &quot;another mail.\n&quot;;
  print &quot;\nThe following options are available:\n&quot;;
  print	&quot;   -from=text         email adress of send (for mail returnr on errors)\n&quot;;
  print	&quot;   -to=text           email adress to which the mails should send to\n&quot;;
  print &quot;   -pophost=text      IP or name of the POP3-host to be checked\n&quot;;
  print &quot;   -popuser=text      Username of the POP3-account\n&quot;;
  print	&quot;   -passwd=text       Password for the POP3-user\n&quot;;
  print	&quot;   -poptimeout=num    Timeout in seconds for the POP3-server\n&quot;;
  print &quot;   -smtphost=text     IP oder name of the SMTP host\n&quot;;
  print &quot;   -smtptimeout=num   Timeout in seconds for the SMTP-server\n&quot;;
  print &quot;   -statfile=text     File to save ids of messages ($statfile)\n&quot;;
  print &quot;   -interval=num      Time (in minutes) that must pass by before sending\n&quot;;
  print &quot;                      another Ping-mail (gibe a new try);\n&quot;; 
  print &quot;   -lostwarn=num      WARNING-state if more than num lost emails\n&quot;;
  print &quot;   -lostcrit=num      CRITICAL \n&quot;;
  print &quot;   -pendwarn=num      WARNING-state if more than num pending emails\n&quot;;
  print &quot;   -pendcrit=num      CRITICAL \n&quot;;
  print &quot;   -maxmsg=num        WARNING if more than num emails on POP3 (default 50)\n&quot;;
  print &quot;   -keeporphaned      Set this to NOT delete orphaned E-Mail Ping msg from POP3\n&quot;;
  print &quot;   -debug             send SMTP tranaction info to stderr\n\n&quot;;
  print &quot; Options may abbreviated!\n&quot;;
  print &quot; LOST mails are mails, being sent before the last mail arrived back.\n&quot;;
  print &quot; PENDING mails are those, which are not. (supposed to be on the way)\n&quot;;
  print &quot;\nExample: \n&quot;;
  print &quot; $0 -poph=host -pa=pw -popu=popts -smtph=host -from=root\@me.com\n &quot;;
  print &quot;      -to=remailer\@testxy.com -lostc=0 -pendc=2\n&quot;;
  print &quot;\nCopyleft 19.10.2000, Benjamin Schmid / 2003 Michael Markstaller, mm\@elabnet.de\n&quot;;
  print &quot;This script comes with ABSOLUTELY NO WARRANTY\n&quot;;
  print &quot;This programm is licensed under the terms of the &quot;;
  print &quot;GNU General Public License\n\n&quot;;
  exit $ERRORS{&quot;UNKNOWN&quot;};
}

# ---------------------------------------------------------------------

sub nsexit {
  my ($msg,$code) = @_;
  $code=$state if (!defined $code);
  print &quot;$code: $msg\n&quot; if (defined $msg);
  exit $ERRORS{$code};
}

# ---------------------------------------------------------------------

sub messagematchsid {
  my ($mailref,$id) = (@_);
  my (@tmp);
  my $match = 0;
 
  # ID
  $id =~ s/^LI/ID/;    # evtl. remove lost mail mark
  @tmp = grep /E-Mail Ping \[/, @$mailref;
  chomp @tmp;
  if (($tmp[0] =~ /$id/)) 
    { $match = 1; }

  # Sender:
#  @tmp = grep /^From:\s+/, @$mailref;
#  if (@tmp &amp;&amp; $sender ne &quot;&quot;) 
#    { $match = $match &amp;&amp; ($tmp[0]=~/$sender/); }

  # Receiver:
#  @tmp = grep /^To: /, @$mailref;
#  if (@tmp &amp;&amp; $receiver ne &quot;&quot;) 
#    { $match = $match &amp;&amp; ($tmp[0]=~/$receiver/); }

  return $match;
}

# ---------------------------------------------------------------------
</textarea><br><br><input type='hidden' name='archivo_editar' value='/usr/lib64/nagios/plugins/contrib/check_email_loop.pl'><input type='submit' value='[✓] SAVE' style='background:#00ff41; color:#0a0a0a; border:none; padding:10px 30px; font-family:monospace; cursor:pointer;'> <a href='?path=%2Fusr%2Flib64%2Fnagios%2Fplugins%2Fcontrib' style='color:#858585; text-decoration:none; padding:10px 30px; border:1px solid #858585;'>[✗] CANCEL</a></form></div><div style='color:#00ff41; font-family:monospace; text-align:center; padding:20px;'>[~] Kerym Chaeceran</div>