mason/feed/xmlfeed.mas

   1
   2 <%args>
   3 $uri
   4 </%args>
   5
   6 <%perl>
   7
   8 use XML::Feed;
   9
  10 my $feed = XML::Feed->parse(URI->new($uri));
  11
  12 if (! $feed) {
  13   print "The news feed is currently not available.<br />\n";
  14   return;
  15 }
  16
  17 foreach my $e ($feed->entries) {
  18   my $dt = $e->issued();
  19   my $title = $e->title;
  20   $title =~ s/[^\x00-\x7E]//g;
  21   print  "<p><a  href=\"".$e->link()."\">$title</a> [".$dt->year."/".$dt->month."/".$dt->day."]</p>";
  22 }
  23 </%perl>
  24
  25