diff options
author | Othmar Gsenger <otti@wirdorange.org> | 2013-01-22 23:04:15 +0000 |
---|---|---|
committer | Othmar Gsenger <otti@wirdorange.org> | 2013-01-22 23:04:15 +0000 |
commit | b09779bf02b247ecb05c23cc7621fa5fd8ad86dc (patch) | |
tree | 11f234f742ff6105a48609c3a3f97581f500ca57 | |
parent | added brakes for newer perl version (diff) |
removed languge request to speed up nzbindex
-rwxr-xr-x | local/nzbindex.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/local/nzbindex.pm b/local/nzbindex.pm index 70256fa..7df0336 100755 --- a/local/nzbindex.pm +++ b/local/nzbindex.pm @@ -23,10 +23,10 @@ sub http_fetch my ($request)=@_; my $ua = LWP::UserAgent->new; $ua->timeout(10); - my $cookie_jar = HTTP::Cookies->new({}); - $ua->cookie_jar($cookie_jar); - my $response = $ua->get("http://www.nzbindex.nl/?lang=2"); - $response = $ua->get('http://www.nzbindex.nl/rss/?'.$request); + # my $cookie_jar = HTTP::Cookies->new({}); + # $ua->cookie_jar($cookie_jar); + # my $response = $ua->get("http://www.nzbindex.nl/?lang=2"); + my $response = $ua->get('http://www.nzbindex.nl/rss/?'.$request); if ($response->is_success) { return $response->decoded_content; } |