packages: nagios-plugin-check_mailman_qfiles/check_mailman_qfiles.pl - upda...

[glen]

Author: glen                         Date: Mon Jul 27 00:18:59 2009 GMT
Module: packages                      Tag: HEAD
---- Log message:
- updated so that it matches my mailman installation

---- Files affected:
packages/nagios-plugin-check_mailman_qfiles:
   check_mailman_qfiles.pl (1.1 -> 1.2) 

---- Diffs:

================================================================
Index: packages/nagios-plugin-check_mailman_qfiles/check_mailman_qfiles.pl
diff -u packages/nagios-plugin-check_mailman_qfiles/check_mailman_qfiles.pl:1.1 packages/nagios-plugin-check_mailman_qfiles/check_mailman_qfiles.pl:1.2
--- packages/nagios-plugin-check_mailman_qfiles/check_mailman_qfiles.pl:1.1	Mon Jul 27 01:44:16 2009
+++ packages/nagios-plugin-check_mailman_qfiles/check_mailman_qfiles.pl	Mon Jul 27 02:18:54 2009
@@ -12,7 +12,7 @@
 use File::Find::Rule;
 use Getopt::Long;
 
-my $qfiles_base = '/var/lib/mailman/qfiles';
+my $qfiles_base = '/var/lib/mailman';
 my %opts = (
 	warning => 5,   # 5 minutes
 	critical => 20, # 20 minutes
@@ -29,7 +29,7 @@
 my %problems;
 my $problem_status;
 
-foreach my $qdir (qw(archive bounces commands in news out retry)) {
+foreach my $qdir (qw(data)) {
 	# Get all the 'pickle' files in the queue directory
 	my @files = File::Find::Rule->file->name('*.pck')->in("$qfiles_base/$qdir");
 	next unless @files;
@@ -59,7 +59,7 @@
 	exit 0;
 }
 
-print join('; ', map { "$_ has $problems{$_}[1]" } sort keys %problems)."\n";;
+print $problem_status, ': ', join('; ', map { "$_ has $problems{$_}[1]" } sort keys %problems)."\n";;
 
 exit ($problem_status eq 'CRITICAL' ? 2 : 1);
 
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/nagios-plugin-check_mailman_qfiles/check_mailman_qfiles.pl?r1=1.1&r2=1.2&f=u