r8884 - /scripts/qa/versioncheck3.pl

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Mon Nov  5 20:16:54 2007
New Revision: 8884

URL: http://svn.debian.org/wsvn/?sc=1&rev=8884
Log:
use LWP::UserAgent instead of LWP::Simple because we can set a timeout; at the moment only for querying incoming/NEW

Modified:
    scripts/qa/versioncheck3.pl

Modified: scripts/qa/versioncheck3.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck3.pl?rev=8884&op=diff
==============================================================================
--- scripts/qa/versioncheck3.pl (original)
+++ scripts/qa/versioncheck3.pl Mon Nov  5 20:16:54 2007
@@ -26,6 +26,7 @@
 use Carp qw(confess);
 use Common;
 use LWP::Simple ();
+use LWP::UserAgent;
 use Compress::Zlib ();
 use HTML::TableExtract;
 use SVN::Client;
@@ -225,8 +226,11 @@
 
 sub scan_incoming {
     my $inchash = shift;
-    my $incoming = LWP::Simple::get('http://incoming.debian.org')
-        or return 0;
+    my $ua = new LWP::UserAgent;
+    $ua->timeout(10);
+    my $res = $ua->get('http://incoming.debian.org');
+    return 0 unless $res->is_success;
+    my $incoming =  $res->content();
     my $inc_io = IO::Scalar->new(\$incoming);
     while( <$inc_io> )
     {
@@ -242,7 +246,11 @@
 
 sub scan_new {
     my $newhash = shift;
-    my $new = LWP::Simple::get('http://ftp-master.debian.org/new.html');
+    my $ua = new LWP::UserAgent;
+    $ua->timeout(10);
+    my $res = $ua->get('http://ftp-master.debian.org/new.html');
+    return 0 unless $res->is_success;
+    my $new =  $res->content();
     my $te = HTML::TableExtract->new(
         headers=> [
             qw(Package Version Arch Distribution Age Maintainer Closes)