From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 20 Aug 2000 13:24:53 +0000 (+0000)
Subject: check for stality in sP()
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e2167def6973625d185dc42273d523a0fc9c040e;p=infobot.git

check for stality in sP()


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

diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl
index 1430161..4317cba 100644
--- a/src/Modules/Debian.pl
+++ b/src/Modules/Debian.pl
@@ -809,6 +809,15 @@ sub searchPackage {
 
 	if (/^\*(.*)$/) {
 	    &main::DEBUG("sP: hrm => '$1'.");
+
+	    if (&main::isStale($file, $main::param{'debianRefreshInterval'})) {
+		&main::DEBUG("STALE $file! regen.");
+		&generateIndex(($dist));
+		@files = searchPackage("$query $dist");
+		&main::DEBUG("EVIL HACK HACK HACK.");
+		last;
+	    }
+
 	    $file = $1;
 	    next;
 	}
@@ -848,12 +857,9 @@ sub getDistroFromStr {
     my $dist	= $defaultdist;
 
     if ($str =~ s/\s+($dists)$//i) {
-	&main::status("Debian(gDFS): found dist argument!");
 	$dist = &getDistro(lc $1);
 	$str =~ s/\\+$//;
     }
-    &main::DEBUG("gDFS: str => '$str', dist => '$dist'.");
-
     $str =~ s/\\([\$\^])/$1/g;
 
     return($dist,$str);