Changeset 348

Timestamp:

05/07/04 18:01:35 (5 years ago)

Author:

earle

Message:

require CGI::Wiki::Plugin::RSS::Reader 1.2, also simply RSS macro name

Location:

trunk

Files:

• Build.PL (modified) (1 diff)
• Changes (modified) (1 diff)
• PREREQUISITES (modified) (1 diff)
• lib/OpenGuides/Utils.pm (modified) (1 diff)

trunk/Build.PL

@@ -226 +226 @@
         'CGI::Wiki::Plugin::Locator::UK'  => '0.06',
         'CGI::Wiki::Plugin::RSS::ModWiki' => '0.02',
-        'CGI::Wiki::Plugin::RSS::Reader'  => 0,
+        'CGI::Wiki::Plugin::RSS::Reader'  => '1.2',  # earlier versions don't support RSS 2.0
         'Config::Tiny'                    => 0,
         'Data::Dumper'                    => 0,

trunk/Changes

@@ -3 +3 @@
           pages, using CGI::Wiki::Plugin::RSS::Reader. This allows you
           to do this to produce a list of up to ten hyperlinks:
-            @RSS_FEED [http://example.com/example.rss]
+            @RSS [http://example.com/example.rss]
        
         Numerous template tweaks to comply with the W3C's Web Content 

trunk/PREREQUISITES

@@ -13 +13 @@
 CGI::Wiki::Plugin::Locator::UK (version 0.06 or later)
 CGI::Wiki::Plugin::RSS::ModWiki (version 0.02 or later)
-CGI::Wiki::Plugin::RSS::Reader
+CGI::Wiki::Plugin::RSS::Reader (version 1.2 or later)
 Config::Tiny
 Data::Dumper

trunk/lib/OpenGuides/Utils.pm

@@ -113 +113 @@
                   return qq(<a href="$script_name?action=index;index_type=) . uri_escape(lc($_[0])) . qq(;index_value=) . uri_escape($_[1]) . qq(">$link_title</a>);
                 },
-        qr/\@RSS_FEED\s+\[(.*?)\]/ => sub { 
-                                            # Get the URL. It's already been formatted into a 
-                                            # hyperlink so we need to reverse that.
-                                            my $url_raw = $_[0];
-                                            $url_raw =~ />(.*?)</;
-                                            my $url = $1;
+        qr/\@RSS\s+\[(.*?)\]/ => sub { 
+                                      # Get the URL. It's already been formatted into a 
+                                      # hyperlink so we need to reverse that.
+                                      my $url_raw = $_[0];
+                                      $url_raw =~ />(.*?)</;
+                                      my $url = $1;
 
-                                            # Retrieve the RSS from the given URL.
-                                            my $rss = CGI::Wiki::Plugin::RSS::Reader->new(url => $url);
-                                            my @items = $rss->retrieve;
+                                      # Retrieve the RSS from the given URL.
+                                      my $rss = CGI::Wiki::Plugin::RSS::Reader->new(url => $url);
+                                      my @items = $rss->retrieve;
 
-                                            # Ten items only at this till.
-                                            $#items = 10 if $#items > 10;
+                                      # Ten items only at this till.
+                                      $#items = 10 if $#items > 10;
 
-                                            # Make an HTML list with them.
-                                            my $list = "<ul>\n";
-                                            foreach (@items)
-                                            {
-                                              $list .= qq{\t<li><a href="} . $_->{link} . qq{">} . $_->{title} . "</a></li>\n";
-                                            }
-                                            $list .= "</ul>\n";
-
-                                            return $list;
-                                          }
+                                      # Make an HTML list with them.
+                                      my $list  = "<ul>\n";
+                                      foreach (@items)
+                                      {
+                                        my $link  = $_->{link};
+                                        my $title = $_->{title};
+                                        $list .= qq{\t<li><a href="$link">$title</a></li>\n};
+                                      }
+                                      $list .= "</ul>\n";
+                                    }
     );