All pastes #929211 Raw Edit

Unnamed

public text v1 · immutable
·published 2008-03-05 16:50 UTC
rendered paste body
###############################################################################
# start main

use Fcntl qw(:DEFAULT :flock);
my $input = $ARGV[0];
$flockfile = '/tmp/exim_deny.lock';

if (($input =~ /(^\d+\.\d+\.\d+\.\d+$)/) and ($input ne "127.0.0.1")) {
        &addtodb($input);
} else {
        &cleandb;
}