#!/usr/bin/perl -w
########################################################
# PowerMTA Check by Larry Long - larry@djslyde.com     #
# check_pmta - Check plugin for Nagios                 #
# 4-11-2007 : Requires PowerMTA                        #
########################################################
use strict;

my(@lasth,$lasth,@vars,$var,$vars);

$var = 0;

@lasth = `"/usr/sbin/pmta show stat|grep 'Last Hour'"`;
foreach $lasth (@lasth)
   {
   @vars = split(/\s+/, $lasth);
   $var = $vars[6];
   chomp $var;
   }

if($var > 0)
   {
   print "PMTA OK - $var messages sent in the last hour\n";
   exit 0;
   }
else
   {
   print "PMTA CRITICAL - 0 messages sent in the last hour\n";
   exit 2;
   }