r8882 - /scripts/qa/versioncheck3.pl

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

Author: gregoa-guest
Date: Mon Nov  5 19:58:39 2007
New Revision: 8882

URL: http://svn.debian.org/wsvn/?sc=1&rev=8882
Log:
don't die if incoming.debian.org is unreachable but simply use the chached data

Modified:
    scripts/qa/versioncheck3.pl

Modified: scripts/qa/versioncheck3.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck3.pl?rev=8882&op=diff
==============================================================================
--- scripts/qa/versioncheck3.pl (original)
+++ scripts/qa/versioncheck3.pl Mon Nov  5 19:58:39 2007
@@ -226,7 +226,7 @@
 sub scan_incoming {
     my $inchash = shift;
     my $incoming = LWP::Simple::get('http://incoming.debian.org')
-        or die "Unable to retreive http://incoming.debian.org";
+        or return 0;
     my $inc_io = IO::Scalar->new(\$incoming);
     while( <$inc_io> )
     {
@@ -242,7 +242,7 @@
 
 sub scan_new {
     my $newhash = shift;
-    my  $new = LWP::Simple::get('http://ftp-master.debian.org/new.html');
+    my $new = LWP::Simple::get('http://ftp-master.debian.org/new.html');
     my $te = HTML::TableExtract->new(
         headers=> [
             qw(Package Version Arch Distribution Age Maintainer Closes)