Updated gen-card-via-proxy.pl

This commit is contained in:
magenoxx 2011-01-25 20:41:57 +03:00
parent e1f65eae90
commit babb967041

View file

@ -278,7 +278,7 @@ die "card not found" unless $finded;
my $mech = WWW::Mechanize->new( autocheck => 1 ); my $mech = WWW::Mechanize->new( autocheck => 1 );
my $parser = HTML::TreeBuilder->new(); my $parser = HTML::TreeBuilder->new();
$ENV{'HTTP_PROXY'} = 'http://login:password@proxyserver'; $ENV{'HTTP_PROXY'} = 'http://login:password@proxyserver:port';
$mech->env_proxy(); $mech->env_proxy();
$mech->get("http://gatherer.wizards.com/Pages/Card/Details.aspx?multiverseid=" . $multiverses[0] ); $mech->get("http://gatherer.wizards.com/Pages/Card/Details.aspx?multiverseid=" . $multiverses[0] );