Help for this page

Select Code to Download


  1. or download this
    use CGI;
use CGI::Carp 'fatalsToBrowser';  # this will make debugging easier
my $q = new CGI;
my $userIP  = $q->remote_host;    # get REMOTE_HOST
my %rawData = $q->Vars();         # get CGI data as a hash
  2. or download this
    my %allIPs;
dbmopen( %allIPs, "/full/path/to/database/allIPs", 0666 )
    or die "Cannot open allIPs database: $!";
$allIPs{$userIP} = $dbEntry or die "$!";
dbmclose %allIPs;