Changeset 347

Timestamp:

05/06/04 18:15:35 (5 years ago)

Author:

earle

Message:

New RSS feed-embedding macro.

Location:

trunk

Files:

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

trunk/Build.PL

@@ -215 +215 @@
     license => "perl",
     requires => {
-        'Algorithm::Diff' => '0.13', # for sdiff 
-        'CGI' => '2.42', # unescape not in early versions, Dom says use this
-        'CGI::Carp' => 0,
-        'CGI::Cookie' => 0,
-        'CGI::Wiki' => '0.49',
-        'CGI::Wiki::Formatter::UseMod' => '0.09',
-        'CGI::Wiki::Plugin::Categoriser' => 0,
-        'CGI::Wiki::Plugin::Diff' => 0,
-        'CGI::Wiki::Plugin::GeoCache' => 0,
-        'CGI::Wiki::Plugin::Locator::UK' => '0.06',
+        'Algorithm::Diff'                 => '0.13', # for sdiff 
+        'CGI'                             => '2.42', # unescape not in early versions, Dom says use this
+        'CGI::Carp'                       => 0,
+        'CGI::Cookie'                     => 0,
+        'CGI::Wiki'                       => '0.49',
+        'CGI::Wiki::Formatter::UseMod'    => '0.09',
+        'CGI::Wiki::Plugin::Categoriser'  => 0,
+        'CGI::Wiki::Plugin::Diff'         => 0,
+        'CGI::Wiki::Plugin::GeoCache'     => 0,
+        'CGI::Wiki::Plugin::Locator::UK'  => '0.06',
         'CGI::Wiki::Plugin::RSS::ModWiki' => '0.02',
-        'Config::Tiny' => 0,
-        'Data::Dumper' => 0,
-        $drivers{$dbtype} => 0,
-        'File::Spec::Functions' => 0,
-        'Geography::NationalGrid' => 0,
-        'Parse::RecDescent' => 0,
-        'Search::InvertedIndex' => 0,
-        'Template' => 0,
-        'Test::MockObject' => '0.07', # earlier doesn't use 'mock'
-        'Time::Piece' => 0,
-        'URI::Escape' => 0,
+        'CGI::Wiki::Plugin::RSS::Reader'  => 0,
+        'Config::Tiny'                    => 0,
+        'Data::Dumper'                    => 0,
+        $drivers{$dbtype}                 => 0,
+        'File::Spec::Functions'           => 0,
+        'Geography::NationalGrid'         => 0,
+        'LWP::Simple'                     => 0,
+        'Parse::RecDescent'               => 0,
+        'Search::InvertedIndex'           => 0,
+        'Template'                        => 0,
+        'Test::MockObject'                => '0.07', # earlier doesn't use 'mock'
+        'Time::Piece'                     => 0,
+        'URI::Escape'                     => 0,
+        'XML::RSS'                        => 0,
         },
     build_requires => {

trunk/Changes

@@ -1 +1 @@
 0.31    
+        Created a new macro to allow the embedding of RSS feeds into
+          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]
        
         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
 Config::Tiny
 Data::Dumper
@@ -24 +25 @@
 File::Spec::Functions
 Geography::NationalGrid
+LWP::Simple
 Module::Build (version 0.18 or later)
 Parse::RecDescent
@@ -31 +33 @@
 Time::Piece
 URI::Escape
+XML::RSS

trunk/lib/OpenGuides/Utils.pm

@@ -5 +5 @@
 $VERSION = '0.06';
 
+use lib '/home/earle/lib';
 use Carp qw( croak );
 use CGI::Wiki;
 use CGI::Wiki::Formatter::UseMod;
+use CGI::Wiki::Plugin::RSS::Reader;
 use CGI::Wiki::Search::SII;
 use Search::InvertedIndex::DB::DB_File_SplitHash;
@@ -107 +109 @@
             qq(<form action="$search_url" method="get"><input type="text" size="20" name="search"><input type="submit" name="Go" value="Search"></form>),
         qr/\@INDEX_LINK\s+\[\[(Category|Locale)\s+([^\]|]+)\|?([^\]]+)?\]\]/ =>
-            sub { my $link_title = $_[2] || "View all pages in $_[0] $_[1]"; return qq(<a href="$script_name?action=index;index_type=) . uri_escape(lc($_[0])) . qq(;index_value=) . uri_escape($_[1]) . qq(">$link_title</a>)
-                }
+            sub {
+                  my $link_title = $_[2] || "View all pages in $_[0] $_[1]";
+                  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;
+
+                                            # 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;
+
+                                            # 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;
+                                          }
     );