On Tue, Aug 17, 2010 at 5:36 PM, someone <[email protected]> wrote: > 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 >
How did you originally install it? Have you attempted a re-install using CPAN to manage dependencies? I suspect the root issue is some missing bit that doesn't exist on your system that SC is dependent upon. Drew- _______________________________________________ PLUG mailing list [email protected] http://lists.pdxlinux.org/mailman/listinfo/plug
