From 84ebabeace98bee112cccd7a84c8f7370df05900 Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Thu, 6 Nov 2003 09:08:32 +0000
Subject: [PATCH] (RSS): Strip whitespace from $interwiki.

---
 wiki.pl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/wiki.pl b/wiki.pl
index 4bdad97d..7df4e1c0 100755
--- a/wiki.pl
+++ b/wiki.pl
@@ -276,7 +276,7 @@ sub InitVariables {    # Init global session variables for mod_perl!
     }
   }
   $WikiDescription = $q->p($q->a({-href=>'http://www.oddmuse.org/'}, 'Oddmuse'))
-    . $q->p('$Id: wiki.pl,v 1.242 2003/11/06 09:02:05 as Exp $');
+    . $q->p('$Id: wiki.pl,v 1.243 2003/11/06 09:08:32 as Exp $');
 }
 
 sub InitCookie {
@@ -683,8 +683,11 @@ sub RSS {
     eval { local $SIG{__DIE__}; $rss->parse($data); };
     return $q->p($q->strong("[RSS parsing failed for $uri]")) if $@;
     my ($counter, $interwiki);
-    $interwiki = $rss->{channel}->{'http://purl.org/rss/1.0/modules/wiki/'}->{interwiki}
-      if @uris > 1;
+    if (@uris > 1) {
+      $interwiki = $rss->{channel}->{'http://purl.org/rss/1.0/modules/wiki/'}->{interwiki};
+      $interwiki =~ s/^\s+//; # when RDF is used, sometimes whitespace remains,
+      $interwiki =~ s/\s+$//; # which breaks the test for an existing $interwiki below
+    }
     foreach my $i (@{$rss->{items}}) {
       my $line;
       $line .= $q->a({-href=>$i->{'link'}, -title=>$i->{'dc'}->{'date'}},