#!/usr/bin/perl
#HTTP Proxy-List Tester 0.2 by girex
use LWP::UserAgent;

sub getip 
{
  my $content = shift;

  if($content =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/) 
  {
  	  return $1;
  }

  return undef;
}

my $proxy_list = shift or die qq(

------------------------------

HTTP Proxy-List Tester 0.2 by girex

------------------------------

usage: perl $0 <proxy-list> <timeout> (optional)

);

my $timeout = shift or 10;

my $lwp = new LWP::UserAgent;
my $host = "http://www.myip.dk/";
$lwp->timeout($timeout);

my $res = $lwp->get($host);
my $ip = getip($res->content) or die "unable to retrieve your IP from myip.dk\n";

print STDOUT "\nHere your ip: ${ip}\n\n";


open(LIST, "<", $proxy_list) or die "cannot read file ${proxy_list}\n";

while(chomp($line = <LIST>))
{
    my $proxy = $1 if $line =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:?\d{0,5})/;

    print STDOUT "${proxy} \t";
  
    $lwp->proxy('http', "http://${proxy}/");
    my $res = $lwp->get($host);

    if($res->is_success)
    {
        $proxy_ip = getip($res->content);

        ($proxy_ip eq $ip) ? print "trasparent proxy\n": 
			     print "anonymous proxy\n"; 
      
    }  
    else  
    { 
      print "connection failed\n"; 
    }
}

close(LIST);