???

lib/Wala.pm

@@ -465,7 +465,7 @@ sub spamcheck {
          and $self->get_username eq $self->DefaultUserName )
     {
         # Quickie spamlogging.
-        my $time = iso_date(time);
+        my $time = time;
         append_file($self->SpamLogFile,
                     "$time $pagename $ENV{'REMOTE_ADDR'} $summary\n");
 

spam_feed.pl

@@ -32,8 +32,8 @@ my @changes = $w->recent_changes(10, $w->SpamLogFile);
 
 for my $change (@changes) {
 
-    my ($timestamp, $pagename, $author, $description)
-      = $change =~ m/(\d+) (\S+) (\w+) (.*)$/;
+    my ($timestamp, $pagename, $ip, $description)
+      = $change =~ m/(\d+) (\S+) ([\w\d.]+) (.*)$/;
 
     my $change_time = Wala::iso_date($timestamp);
 
@@ -42,7 +42,7 @@ for my $change (@changes) {
         link      => "$scriptname?$pagename",
         id        => "$scriptname?$pagename",
         updated   => $change_time,
-        content   => $description,
+        content   => "$ip $description",
     );     
 
 }