#!/usr/bin/perl -w

# check_mailq - check to see how many messages are in the smtp queue awating
#   transmittal.  
#
# Initial version support sendmail's mailq command
#  Support for mutiple sendmail queues (Carlos Canau)
#  Support for qmail (Benjamin Schmid)

# License Information:
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
# USA
#
############################################################################

use POSIX;
use strict;
use Getopt::Long;
use vars qw($opt_V $opt_h $opt_v $verbose $PROGNAME $opt_w $opt_c $opt_t
					$opt_M $mailq $status $state $msg $msg_q $msg_p $opt_W $opt_C $mailq @lines
					%srcdomains %dstdomains);
use FindBin;
use lib "$FindBin::Bin";
use lib '/usr/lib/nagios/plugins';
use utils qw(%ERRORS &print_revision &support &usage );


sub print_help ();
sub print_usage ();
sub process_arguments ();

$ENV{'PATH'}='/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin';
$ENV{'BASH_ENV'}=''; 
$ENV{'ENV'}='';
$PROGNAME = "check_mailq";
$mailq = 'sendmail';	# default
$msg_q = 0 ;
$msg_p = 0 ;
$state = $ERRORS{'UNKNOWN'};

Getopt::Long::Configure('bundling');
$status = process_arguments();
if ($status){
	print "ERROR: processing arguments\n";
	exit $ERRORS{"UNKNOWN"};
}

$SIG{'ALRM'} = sub {
	print ("ERROR: timed out waiting for $utils::PATH_TO_MAILQ \n");
	exit $ERRORS{"WARNING"};
};
alarm($opt_t);

# switch based on MTA

if ($mailq eq "sendmail") {

	## open mailq 
	if ( defined $utils::PATH_TO_MAILQ && -x $utils::PATH_TO_MAILQ ) {
		if (! open (MAILQ, "$utils::PATH_TO_MAILQ | " ) ) {
			print "ERROR: could not open $utils::PATH_TO_MAILQ \n";
			exit $ERRORS{'UNKNOWN'};
		}
	}elsif( defined $utils::PATH_TO_MAILQ){
		unless (-x $utils::PATH_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAILQ) {
			print "ERROR: $utils::PATH_TO_MAILQ is not execut_TO_MAI