97 lines
2.7 KiB
Perl
Executable File
97 lines
2.7 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
#
|
|
# Plugin to show amount of individual outgoing smtp-replies per hour
|
|
#
|
|
# Contributed by Håkon Nessjøen <lunatic@cpan.org>
|
|
#
|
|
# Magic markers - optional - used by installation scripts and
|
|
# munin-config:
|
|
#
|
|
#%# family=manual
|
|
#%# capabilities=autoconf
|
|
|
|
use strict;
|
|
|
|
my $logpath = $ENV{'logpath'} || '/var/log/mail/';
|
|
|
|
if (exists $ARGV[0]) {
|
|
if ($ARGV[0] eq "autoconf") {
|
|
if (-f "${logpath}current") {
|
|
print "yes\n";
|
|
} else {
|
|
print STDERR "no (Cannot find ${logpath}current. Please specify env.logpath)\n";
|
|
}
|
|
exit 0;
|
|
}
|
|
}
|
|
|
|
my %responses;
|
|
|
|
# '453' => 'You have no mail (atrn)',
|
|
# '503' => 'Bad sequence of commands',
|
|
|
|
my %descriptions = (
|
|
'250' => 'Mail delivery ok',
|
|
'421' => 'Service unavail or timeout',
|
|
'441' => 'No established connection',
|
|
'442' => 'Connection Died',
|
|
'450' => 'Mbox unavail or greylist',
|
|
'451' => 'Err processing or greylist',
|
|
'452' => 'Insufficient storage space',
|
|
'454' => 'TLS not available now',
|
|
'472' => 'DNS transaction timeout',
|
|
'500' => 'Unsolicited mail',
|
|
'501' => 'Syntax error',
|
|
'511' => 'Blocked or blacklisted',
|
|
'522' => 'Mailbox full',
|
|
'550' => 'Mailbox unavailable',
|
|
'551' => 'User not local',
|
|
'552' => 'Content or storage error',
|
|
'553' => 'Mailbox name not allowed',
|
|
'554' => 'Session failed or blocked',
|
|
'557' => 'Too many duplicate msgs'
|
|
);
|
|
|
|
#open(DATA,"cat ${logpath}current $logpath\@* | perl -ne'm/Remote_host_said:_(\\d+)/ && print \$1.\"\n\";' | sort | uniq -c|");
|
|
open(DATA,"grep -E '_\\(\\#4\\.4\\.1\\)|_\\(\\#4\\.4\\.2\\)|Remote_host_said:_' ${logpath}current | sed 's/_(\\#4\\.4\\.1)/\\/Remote_host_said:_441_/; s/_(\\#4\\.4\\.2)/\\/Remote_host_said:_442_/' | perl -ne'm/Remote_host_said:_(\\d+)/ && print \$1.\"\n\";' | sort -n | uniq -c|");
|
|
while (<DATA>) {
|
|
if (m/\s*(\d+)\s+(\d+)/) {
|
|
$responses{$2} = $1;
|
|
}
|
|
}
|
|
close(DATA);
|
|
|
|
|
|
if (exists $ARGV[0]) {
|
|
if ($ARGV[0] eq 'config') {
|
|
print "graph_title Qmail outgoing SMTP replies\n";
|
|
print "graph_args --base 1000 -l 0 \n";
|
|
print "graph_vlabel replies/hour\n";
|
|
print "graph_category mail\n";
|
|
print "graph_total Total\n" if (keys (%descriptions) > 1);
|
|
print "graph_info This graph shows qmail-send transaction response codes.\n";
|
|
print "graph_order res" . join(" res", sort by_code keys %descriptions) . "\n";
|
|
foreach (sort by_code keys %descriptions) {
|
|
my $name = 'res' . $_;
|
|
print "$name.label ";
|
|
print $_." ".$descriptions{$_}."\n";
|
|
print "$name.min 0\n";
|
|
print "$name.draw LINE1\n";
|
|
}
|
|
exit;
|
|
}
|
|
}
|
|
|
|
foreach (sort by_code keys %descriptions) {
|
|
#print "res$_.value ".int($responses{$_})."\n";
|
|
if (exists $responses{$_}) {
|
|
print "res$_.value $responses{$_}\n";
|
|
}else{
|
|
print "res$_.value 0\n";
|
|
}
|
|
}
|
|
|
|
sub by_code {
|
|
return $a cmp $b;
|
|
}
|