proxy check (6)

1 Name: Anonymous : 2005-12-18 14:41 ID:Heaven [Del]

sub proxy_check($ip)
{
my($ip)=@_;

for my $port (PROXY_CHECK)
{
use HTTP::ProxyCheck
my $proxycheck = new HTTP::ProxyCheck();
my $proxy=$ip.":".$port;
my $url="http://www.google.com/";
my $type="full";
if($proxycheck->check(proxy=>"$proxy",url=>"$url",answer=>"$type"))
{
make_error(S_PROXY,$port) if($proxycheck->get_answer()=~/©[\d]{4} Google/);
}
}
}

dunno if it works or not... i wasn't able to find any working public proxies in the 10 minutes i spent looking for one...

2 Name: !WAHa.06x36 : 2005-12-18 18:00 ID:935BUZ8q [Del]

Wakaba 3.0 already has a proxy check, using the proxycheck command, but it's still a bit rough around the edges. It does, however, cache results so that it won't slow down posting unnecessarily.

3 Name: dmpk2k!hinhT6kz2E : 2005-12-19 06:35 ID:35VkVrTM [Del]

Can't hurt to put the body in for those individuals disinclined to compile the standard proxycheck. Is HTTP::ProxyCheck commonly installed?

4 Name: !WAHa.06x36 : 2005-12-19 15:58 ID:935BUZ8q [Del]

It's not in the standard install, so no.

5 Name: Anonymous : 2005-12-20 00:13 ID:Heaven [Del]

> Wakaba 3.0 already has a proxy check

but kareha doesn't...

6 Name: !WAHa.06x36 : 2005-12-20 04:26 ID:935BUZ8q [Del]

That's true, but it's also much harder to get right, since checking for caches on EVERY post is a bit too slow.

Name: Link:
Leave these fields empty (spam trap):
More options...
Verification: