debugging added.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@355 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl
index 1b9e6ed819f3cbd21527140fa634812298955b0d..39d7dea5cc0ca9596d5bad8f158ce393be2d2b3f 100644 (file)
--- a/src/Modules/Debian.pl
+++ b/src/Modules/Debian.pl
@@ -20,20 +20,12 @@ my %dists   = (
        "testing"       => "woody",     # new since 20001219.
        "stable"        => "potato",
        "incoming"      => "incoming",
-### the following don't work. too much effort to get 3 types of distros
-### to work harmoniously :-)
-       "slink"         => "archive-2.1",
-       "hamm"          => "archive-2.0",
-       "rex"           => "archive-1.?",
-       "bo"            => "archive-1.?",
 );
 
 my %urlcontents = (
        "debian/Contents-##DIST-i386.gz" =>
                "ftp://ftp.us.debian.org".
                "/debian/dists/##DIST/Contents-i386.gz",
-### APPEARS TO BE FIXED?
-# => strip control chars just to be safe.
        "debian/Contents-##DIST-i386-non-US.gz" =>
                "ftp://non-us.debian.org".
                "/debian-non-US/dists/##DIST/non-US/Contents-i386.gz",
@@ -948,7 +940,7 @@ sub searchPackage {
        }
 
        if ($error) {
-           &::ERROR("could not generate index!!!");
+           &::ERROR("could not generate index ($file)!!!");
            return;
        }
 
@@ -1002,6 +994,7 @@ sub getDistro {
     }
 
     if (exists $dists{$dist}) {
+       &::DEBUG("gD: returning dists{$dist} ($dists{$dist})");
        return $dists{$dist};
     } else {
        if (!grep /^\Q$dist\E$/i, %dists) {
@@ -1009,6 +1002,7 @@ sub getDistro {
            return;
        }
 
+       &::DEBUG("gD: returning $dist (no change or conversion)");
        return $dist;
     }
 }