[PLUG] SpamCannibal trouble...

Michael C. Robinson plug_1 at robinson-west.com
Mon Aug 16 05:44:19 UTC 2010


> Someone,
> 
> Did you issue a $db->finish; before closing the data base?
> 
> Ken
> CAD 2 CAM
> 
...
my %default = (
        dbhome  => $CONFIG->{SPMCNBL_ENVIRONMENT},
        dbfile  => [$CONFIG->{SPMCNBL_DB_TARPIT},
$CONFIG->{SPMCNBL_DB_ARCHIVE}],
        txtfile => [$CONFIG->{SPMCNBL_DB_CONTRIB},
$CONFIG->{SPMCNBL_DB_EVIDENCE}],
        umask   => $CONFIG->{SPAMCANNIBAL_UMASK},
);

if (@ARGV && $ARGV[0] =~ /^\-R$/) {             # set run recovery if -R
switch
  $default{recover} = 1;
}

# make the DB files
my $dbp = new IPTables::IPv4::DBTarpit::Tools(%default);
$dbp->finish;
$dbp->closedb;
...

If I have included enough of the perl script, the problem is here.  If
not, let me know.  I added $dbp->finish, but that doesn't seem to work.




More information about the PLUG mailing list