Select Code to Download

Select or download this

$tempfileone = "/var/www/cgi-bin/logs/ipsectest/iptestscript$userips[$
+ipcontrol].txt";
$urlone = "http://notgivingthesite/cgi-bin/block-lookup\?$userips[$ipc
+ontrol]";
$mechone = WWW::Mechanize->new();
print Dumper $mechone->get( $urlone, ':content_file' => $tempfileone )
+;

Select or download this

$VAR1 = bless( {
                 '_content' => '500 Can\'t connect to notgivingthesite
+:80 (Bad hostname \'notgivingthesite\')
...
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );
$VAR1 = undef;

Select or download this

$ips = inet_aton("$userips[$ipcontrol]");
$forward = gethostbyaddr($ips, AF_INET);
...
    $testcondition = 1;
    }
$|=0;

Select or download this

 <STRONG><font color="red">could not get socket
</STRONG></font><BR>