###############################################################################
# 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;
}