Index: nlw/lib/Socialtext/FetchRSSPlugin.pm =================================================================== --- nlw/lib/Socialtext/FetchRSSPlugin.pm (revision 5117) +++ nlw/lib/Socialtext/FetchRSSPlugin.pm (working copy) @@ -68,6 +68,20 @@ if (defined($content) and length($content)) { my $feed = XML::Feed->parse(\$content) or die XML::Feed->errstr, "\n"; + + # fixup URLS to absolute ones + our $hostname = $1 if ( $url =~ m!(\w+://[^/]+)/! ); + sub expand_link { + my $l = shift; + return $l if ( $l =~ m!\w+://! ); + return $hostname . $l; + } + + $feed->link( expand_link( $feed->link ) ); + foreach my $entry ( $feed->entries ) { + $entry->link( expand_link( $entry->link ) ); + } + return $feed; } }