[ This is only useful to you if you use the Greylist feature of sa-exim ]
Hi,
I've made a small optimisation to greylistclean (included below) which
will speed it up *fractionally*. If you are the type who seeks to gain
every scrap of performance out of your system... then don't believe
that this version will really make a difference :-) I'm just doing it
for the sake of completeness.
Cheers,
Mark.
--
Mark Lawrence
#!/usr/bin/perl
# ----------------------------------------------------------------------
# Copyright (C) 2005 Mark Lawrence <nomad@???>
#
# 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.
# ----------------------------------------------------------------------
# greylistclean - remove expired SA-Exim greylist entries from the filesystem.
#
# This is basically a perl implementation of the following
# commands combined with simple syslog reporting.
#
# find /var/spool/sa-exim/tuplets/ -type f -mmin +2880 -print0 \
# | xargs -0 grep "Status: Greylisted" \
# | sed "s/:Status: Greylisted//" | xargs -r rm
#
# find /var/spool/sa-exim/tuplets/ -type f -mtime +14 -print0 \
# | xargs -r0 rm
#
# find /var/spool/sa-exim/tuplets/ -type d -print0 \
# | xargs -r0 rmdir
#
# You can call this with '-d' to see what files and
# directories are being removed. Otherwise during normal
# operation there is no output.
#
# To use this in production you either:
#
# 1. Copy this file to your cron.hourly directory (if you have one)
#
# or
#
# 2. Copy this file to /usr/local/bin and create a crontab entry
# that looks something like the following (this works on Debian):
#
# 33 * * * * root /usr/local/bin/greylistclean
#
# Then the following lines should show up every hour in your syslog(8)
# files:
#
# Feb 21 13:34:07 <host> sa-exim[3946]: Removed 311 of 49141 greylist
# tuplets in 66 seconds
# Feb 21 13:34:08 <host> sa-exim[3946]: Removed 305 of 49321 greylist
# directories in 1 seconds
#
#
# Changelog
# ---------
# 2005-02-14 Original version. Mark Lawrence <nomad@???>
# 2005-02-21 Added example cron entry comment. Mark Lawrence.
# 2005-02-21 Formatting and example syslog output. Mark Lawrence.
# 2005-05-25 Small optimisation: once we have seen the Status: line don't
# bother scanning the rest of the file. Mark Lawrence.
#
# ----------------------------------------------------------------------
use strict;
use warnings;
use Sys::Syslog;
use File::Find;
use File::stat;
my $tuplet_dir = '/var/spool/sa-exim/tuplets';
my $max_grey_age = 60*60*24*2; # seconds to keep greylisted entries (2 days)
my $max_age = 60*60*24*14; # seconds to keep all entries (14 days)
my $tcount = 0; # total number of tuplets
my $rm_tcount = 0; # number of tuplets removed
my $dircount = 0; # total number of directories
my $rm_dircount = 0; # number of directories removed
my @empty_dirs = (); # list of empty directories
my $verbose = 0;
my $now = time();
if (@ARGV == 1 and $ARGV[0] eq '-d') {
$verbose = 1;
print STDERR "$0 running at $now\n"
}
#
# Open the reporting channel
#
openlog('sa-exim', 'pid,ndelay', 'mail');
#
# Process the tuplets
#
find({wanted => \&prune, postprocess => \&dircheck}, $tuplet_dir);
syslog('info', 'Removed %d of %d greylist tuplets in %d seconds', $rm_tcount,
$tcount, time() - $now);
#
# Remove empty directories found by dircheck()
#
$now = time();
foreach my $dir (@empty_dirs) {
rmdir $dir && $rm_dircount++;
$verbose && print STDERR "removing empty directory $dir\n";
}
syslog('info', 'Removed %d of %d greylist directories in %d seconds',
$rm_dircount, $dircount, time() - $now);
closelog();
exit;
#
# Called from File::Find::find() function with $_ set to filename/directory.
# Search for the line 'Status: Greylisted' in files modified more than
# $max_grey_age seconds ago and remove the files that contain it.
# Remove any entry that is older than $max_age seconds ago.
#
sub prune {
return if (-d $_); # we don't do directories
$tcount++;
my $file = $_;
my $sb = stat($file);
my $age = $now - $sb->mtime;
#
# Remove all old entries (older than $max_age)
#
if ($age > $max_age) {
$verbose && print STDERR 'removing old entry ',
"${File::Find::dir}/$file (age: ",
$now - $sb->mtime, " seconds)\n";
unlink($file);
$rm_tcount++;
return;
}
#
# Do nothing if not old enough to expire
#
return if ($age < $max_grey_age);
#
# Check if this tuplet has been 'greylisted'. Use the 3 argument
# form of 'open', because a lot of these files have funny characters
# in their names.
#
if (!open(FH, '<', $file)) {
print STDERR "Could not open ${File::Find::name}: $!\n";
return;
}
while (my $line = <FH>) {
if ($line =~ m/^Status: (.*)$/o) {
last unless($1 eq 'Greylisted');
$verbose && print STDERR 'removing greylisted ',
"${File::Find::dir}/$file (age: ",
$now - $sb->mtime, " seconds)\n";
unlink($file);
$rm_tcount++;
last;
}
}
close FH;
}
#
# Called from File::Find::find() function when all entries in a directory
# have been processed. We check if there are any files left in the directory
# and if not then add it to a list for later deletion
#
sub dircheck {
return if ($File::Find::dir eq $tuplet_dir); # don't check top dir.
$dircount++;
#
# Check if directory is empty and add to $empty_dirs hash
#
if (opendir(DIR, $File::Find::dir)) {
my $files = grep {!/^\./} readdir(DIR);
if ($files == 0) {
push(@empty_dirs, $File::Find::dir);
}
closedir(DIR);
}
}
