Les showed some great stats, and I found Ken Schweigert's great thread in
the archives
http://www.mail-archive.com/[email protected]/msg00771.html
I have tried to set it up, with some problems, and hope that someone can
help. I probably need a little hand-holding as I am new to Perl.
I have set up a file /etc/spamdyke-statistics.pl whose contents are as
follows:
[r...@plesk2 ~]# cat /etc/spamdyke-statistics.pl
#!/usr/bin/perl -w use diagnostics; use strict;
# Usage: # cat /var/log/mail | ./this_file
my %status = (); # hash of status connections
my ($allow, $deny, $spampercentage, $sum);
$allow = 0;
while(<>){
my $line = $_;
if( m/spamdyke\[/ ){
my ($a, $b, $c, $d) = split(/:/ , $line);
my ($e, $sdstatus) = split(/ /, $d);
#print "$b\n";
next if $sdstatus eq "CHKUSER";
$status{$sdstatus}++;
}
}
foreach my $stat (sort keys %status){
if( $stat =~ m/ALLOWED/){
$allow = $status{$stat};
}
else{
$deny += $status{$stat};
}
}
$spampercentage = sprintf("%.2f", ($deny/($allow+$deny)*100) );
foreach my $key (sort { $status{$b} <=> $status{$a} || $a cmp $b; } keys
%status ){
print "$status{$key}\t$key\n";
}
$sum = ($deny + $allow);
print "\n";
print "Allowed: $allow \n";
print "Denied : $deny \n";
print "Sum: $sum \n";
print "% Spam : $spampercentage% \n";
[r...@plesk2 ~]#
My normal maillog is at /usr/local/psa/var/log/maillog (where the spamdyke
results show with all mail activity).
So I tried a number of things to get the results from root login, and they
are failing. If someone can give me some newbie help, I would be really
grateful.
[r...@plesk2 ~]# cat /usr/local/psa/var/log/maillog |
/etc/spamdyke-statistics.pl
-bash: /etc/spamdyke-statistics.pl: Permission denied
[r...@plesk2 ~]# cat /var/log/mail | /etc/spamdyke-statistics.pl
-bash: /etc/spamdyke-statistics.pl: Permission denied
cat: /var/log/mail: Is a directory
Many thanks in advance
Kind regards,
Christoph
_______________________________________________
spamdyke-users mailing list
[email protected]
http://www.spamdyke.org/mailman/listinfo/spamdyke-users
