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},
);
# Print out the values of %default
foreach $dataval ( keys %default )
{
print "The data value is: $dataval \n";
}
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);
# Try to understand what $dbp is supposed to be and isn't...
print "dbp: $dbp \n";
# The following fails with an undefined error.
$dbp->closedb;
I am attempting to print out values to try and debug sc_initdb.pl and I am
getting unusual errors.
bash-3.00$ ./sc_initdb.pl
Global symbol "$dataval" requires explicit package name at
./sc_initdb.pl line 61.
Global symbol "$dataval" requires explicit package name at
./sc_initdb.pl line 63.
Execution of ./sc_initdb.pl aborted due to compilation errors.
bash-3.00$
I don't see anything on page 80 of a Little Book on Perl that explains
these errors. I see a hash and don't understand why I can't dump it's
values.
----------------------------------------------------------------
This message was sent using IMP, the Internet Messaging Program.
_______________________________________________
PLUG mailing list
[email protected]
http://lists.pdxlinux.org/mailman/listinfo/plug
