r8822 - in /scripts/qa/QA: Config.pm DebianArchive.pm

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

Author: tincho-guest
Date: Sun Nov  4 11:17:18 2007
New Revision: 8822

URL: http://svn.debian.org/wsvn/?sc=1&rev=8822
Log:
MIRROR should include up to /debian

Modified:
    scripts/qa/QA/Config.pm
    scripts/qa/QA/DebianArchive.pm

Modified: scripts/qa/QA/Config.pm
URL: http://svn.debian.org/wsvn/scripts/qa/QA/Config.pm?rev=8822&op=diff
==============================================================================
--- scripts/qa/QA/Config.pm (original)
+++ scripts/qa/QA/Config.pm Sun Nov  4 11:17:18 2007
@@ -20,7 +20,7 @@
 our @ISA = "Exporter";
 
 our $SVN_REPO = "svn://svn.debian.org/svn/pkg-perl";
-our $MIRROR = "MIRROR=ftp://ftp.debian.org";
+our $MIRROR = "ftp://ftp.debian.org/debian";
 our $CPAN_MIRROR = "ftp://cpan.org/pub/CPAN";
 our $CACHEDIR = "$ENV{HOME}/.dpg/versioncheck";
 # verbosity level: error => 0, warn => 1, info => 2, debug => 3
@@ -35,33 +35,33 @@
     # alioth
     /alioth/ && do {
         $SVN_REPO = "file:///svn/pkg-perl";
-        $MIRROR = "ftp://ftp.nl.debian.org";
+        $MIRROR = "ftp://ftp.nl.debian.org/debian";
         $CPAN_MIRROR = "ftp://cpan.wanadoo.nl/pub/CPAN";
         last;
     };
 
     # Gregor
     /belanna|nerys/ && do {
-        $MIRROR = "ftp://ftp.at.debian.org";
+        $MIRROR = "ftp://ftp.at.debian.org/debian";
         $CPAN_MIRROR = "ftp://gd.tuwien.ac.at/pub/CPAN";
         last;
     };
 
     # dam
     /pc1/ && do {
-        $MIRROR = "http://proxy:9999";
+        $MIRROR = "http://proxy:9999/debian";
         $CPAN_MIRROR = "ftp://ftp.uni-sofia.bg/cpan";
         last;
     };
     /beetle/ && do {
-        $MIRROR = "http://localhost:9999";
+        $MIRROR = "http://localhost:9999/debian";
         $CPAN_MIRROR = "ftp://ftp.uni-sofia.bg/cpan";
         last;
     };
 
     # Tincho
     /abraxas/ && do {
-        $MIRROR = "file:///media/IOMega/mirror/";
+        $MIRROR = "file:///media/IOMega/mirror/debian/";
         $CPAN_MIRROR = "ftp://cpan.ip.pt/pub/cpan/";
         last;
     };

Modified: scripts/qa/QA/DebianArchive.pm
URL: http://svn.debian.org/wsvn/scripts/qa/QA/DebianArchive.pm?rev=8822&op=diff
==============================================================================
--- scripts/qa/QA/DebianArchive.pm (original)
+++ scripts/qa/QA/DebianArchive.pm Sun Nov  4 11:17:18 2007
@@ -110,7 +110,7 @@
     my($suite) = shift;
     my %vers;
     foreach my $section qw(main contrib non-free) {
-        my $url = "$MIRROR/debian/dists/$suite/$section/source/Sources.gz";
+        my $url = "$MIRROR/dists/$suite/$section/source/Sources.gz";
         info("Downloading $url");
         my $res = $ua->get($url);
         unless($res->is_success()) {