From c56fda897ec8d7eb68466d19e73f07925cf9ebbc Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Fri, 26 Nov 2004 16:13:22 +0000
Subject: [PATCH] (DespamPages): Only check files mentioned in rc.log.

---
 modules/despam.pl | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/modules/despam.pl b/modules/despam.pl
index 1b6a1f43..5f308361 100644
--- a/modules/despam.pl
+++ b/modules/despam.pl
@@ -16,7 +16,7 @@
 #    59 Temple Place, Suite 330
 #    Boston, MA 02111-1307 USA
 
-$ModulesDescription .= '<p>$Id: despam.pl,v 1.2 2004/10/28 01:31:05 as Exp $</p>';
+$ModulesDescription .= '<p>$Id: despam.pl,v 1.3 2004/11/26 16:13:22 as Exp $</p>';
 
 $Action{despam} = \&DoDespam;
 
@@ -58,7 +58,14 @@ sub DespamBannedContent {
 }
 
 sub DespamPages {
-  return AllPagesList(); # only check recently changed pages?
+  # assume that regular maintenance is happening and just read rc.log
+  my $data = ReadFileOrDie($RcFile);
+  my %files = (); # use a hash map to make it unique
+  foreach my $line (split(/\n/, $data)) {
+    my ($ts, $id) = split(/$FS/, $line);
+    $files{$id} = 1;
+  }
+  return keys %files;
 }
 
 sub DespamPage {