- another orund of changes from lear.

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

diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl
index 1c438fc968a1dfe90a3e7754a4de1233e973525e..2bbe82ee2da5f4559602070af44570efebd280ef 100644 (file)
--- a/src/Modules/Debian.pl
+++ b/src/Modules/Debian.pl
@@ -218,8 +218,8 @@ sub searchContents {
     foreach (keys %urlcontents) {
        s/##DIST/$dist/g;
 
-       next unless ( -f $_);
-       push(@files,$_);
+       next unless ( -f "$debian_dir/$_" );
+       push(@files, "$debian_dir/$_" );
     }
 
     if (!scalar @files) {
@@ -352,7 +352,7 @@ sub searchAuthor {
     foreach (keys %urlpackages) {
        s/##DIST/$dist/g;
 
-       if (! -f $_) {
+       if (! -f "$debian_dir/$_" ) {
            $bad++;
            next;
        }
@@ -454,13 +454,13 @@ sub searchDesc {
     foreach (keys %urlpackages) {
        s/##DIST/$dist/g;
 
-       if (! -f $_) {
+       if (! -f "$debian_bot/$_" ) {
            $bad++;
            next;
        }
 
        $good++;
-       $files .= " ".$_;
+       $files .= " $debian_dir/$_";
     }
 
     &::DEBUG("deb(2): good = $good, bad = $bad...") if ($debug);
@@ -882,6 +882,7 @@ sub generateIndex {
        my $packages;
        foreach $packages (keys %urlpackages) {
            $packages =~ s/##DIST/$dist/;
+           $packages =  "$debian_dir/$packages";
 
            if (! -e $packages) {
                &::ERROR("gIndex: '$packages' does not exist?");