[med-svn] r8123 - in trunk/community/infrastructure/scripts/qa: . DebianQA

[David Paleino]

Author: dapal
Date: 2011-10-11 11:06:42 +0000 (Tue, 11 Oct 2011)
New Revision: 8123

Modified:
   trunk/community/infrastructure/scripts/qa/DebianQA/Svn.pm
   trunk/community/infrastructure/scripts/qa/DebianQA/Watch.pm
   trunk/community/infrastructure/scripts/qa/debian-med.conf
Log:
Make PET work again


Modified: trunk/community/infrastructure/scripts/qa/DebianQA/Svn.pm
===================================================================
--- trunk/community/infrastructure/scripts/qa/DebianQA/Svn.pm	2011-10-11 08:15:49 UTC (rev 8122)
+++ trunk/community/infrastructure/scripts/qa/DebianQA/Svn.pm	2011-10-11 11:06:42 UTC (rev 8123)
@@ -400,7 +400,9 @@
             $svn_error->clear();
             return 0;
         } else {
-            SVN::Error::croak_on_error($svn_error);
+            # dapal FIXME - probably broken :)
+            #SVN::Error::croak_on_error($svn_error);
+            return 0;
         }
     }
     return 1;

Modified: trunk/community/infrastructure/scripts/qa/DebianQA/Watch.pm
===================================================================
--- trunk/community/infrastructure/scripts/qa/DebianQA/Watch.pm	2011-10-11 08:15:49 UTC (rev 8122)
+++ trunk/community/infrastructure/scripts/qa/DebianQA/Watch.pm	2011-10-11 11:06:42 UTC (rev 8123)
@@ -287,7 +287,8 @@
     debug("Looking for $dir + $filter into CPAN $type cache");
     #return ("NotFound") unless(exists($cpan->{$dir}));
     # Allow this to gracefully degrade to a normal uscan check
-    return () unless(exists($cpan->{$dir}));
+    # dapal FIXME
+    #return () unless(exists($cpan->{$dir}));
 
     my @res;
     foreach(keys %{$cpan->{$dir}}) {
@@ -327,32 +328,35 @@
         }
     }
 
-    my $url = $CFG{watch}{cpan_mirror} . "/modules/02packages.details.txt.gz";
+    # dapal FIXME - can't find that file gzipped anymore, disabled uncompression
+    #my $url = $CFG{watch}{cpan_mirror} . "/modules/02packages.details.txt.gz";
+    my $url = "http://www.cpan.org/modules/02packages.details.txt";
+    my $data;
     info("Rebuilding CPAN dists cache from $url");
-    open(TMP, "+>", undef) or die $!;
+    open($data, "+>", undef) or die $!;
     my $res = $ua->get($url, ":content_cb" => sub {
-            print TMP $_[0] or die $!;
+            print $data $_[0] or die $!;
         });
     unless($res->is_success()) {
         warn "Can't download $url: " . $res->message();
         return 0;
     }
-    seek(TMP, 0, SEEK_SET) or die "Can't seek: $!\n";
-    my $gz = Compress::Zlib::gzopen(\*TMP, "rb")
-        or die "Can't open compressed file: $!\n";
+    seek($data, 0, SEEK_SET) or die "Can't seek: $!\n";
+    #my $gz = Compress::Zlib::gzopen(\*TMP, "rb")
+    #    or die "Can't open compressed file: $!\n";
 
-    my $data;
-    open($data, "+>", undef) or die $!;
-    my $buffer = " " x 4096;
-    my $bytes;
-    while(($bytes = $gz->gzread($buffer)) > 0) {
-        print $data $buffer;
-    }
-    die $gz->gzerror if($bytes < 0);
-    close TMP;
-    #my $z = new IO::Uncompress::Gunzip(\$data);
+    #my $data;
+    #open($data, "+>", undef) or die $!;
+    #my $buffer = " " x 4096;
+    #my $bytes;
+    #while(($bytes = $gz->gzread($buffer)) > 0) {
+    #    print $data $buffer;
+    #}
+    #die $gz->gzerror if($bytes < 0);
+    #close TMP;
+    ##my $z = new IO::Uncompress::Gunzip(\$data);
 
-    seek($data, 0, SEEK_SET) or die "Can't seek: $!\n";
+    #seek($data, 0, SEEK_SET) or die "Can't seek: $!\n";
 
     # Skip header
     while(<$data>) {

Modified: trunk/community/infrastructure/scripts/qa/debian-med.conf
===================================================================
--- trunk/community/infrastructure/scripts/qa/debian-med.conf	2011-10-11 08:15:49 UTC (rev 8122)
+++ trunk/community/infrastructure/scripts/qa/debian-med.conf	2011-10-11 11:06:42 UTC (rev 8123)
@@ -11,7 +11,7 @@
 group_url = http://debian-med.alioth.debian.org/
 ; sprintf format for the package wsvn location, takes one parameter, the
 ; package directory.
-wsvn_url = http://svn.debian.org/wsvn/debian-med/trunk/packages/%s/trunk/?rev=0&sc=0
+wsvn_url = http://anonscm.debian.org/viewvc/debian-med/trunk/packages/%s/trunk/?rev=0&sc=0
 
 [svn]
 repository = svn://svn.debian.org/svn/debian-med/trunk
@@ -46,7 +46,7 @@
 
 ; Parameters before any section header go into the [common] section
 [common]
-cache_dir = ~/.debianqa
+cache_dir = /home/groups/debian-med/.debianqa
 ; verbosity level: error => 0, warn => 1, info => 2 debug => 3
 verbose = 2
 ; Prepend syslog-style format?