From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Mon, 15 Oct 2001 15:03:11 +0000 (+0000)
Subject: - another orund of changes from lear.
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b39c9477e23feb2c0938d8fd565c410178582141;p=infobot.git

- 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 1c438fc..2bbe82e 100644
--- 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?");