Changeset 308 for wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/RSS.pm

Timestamp:

05/25/06 15:59:17 (6 years ago)

Author:

nick

Message:

Support for RSS feeds of the node all versions, and tests for it

Files:

• wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/RSS.pm (modified) (5 diffs)

wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/RSS.pm

@@ -62 +62 @@
 
   my @changes = $self->fetch_recently_changed_nodes(%args);
-  my $rss_timestamp = $self->rss_timestamp(
+  my $feed_timestamp = $self->feed_timestamp(
                               $self->fetch_newest_for_recently_changed(%args)
   );
 
-  return $self->generate_node_list_feed($rss_timestamp, @changes);
-}
+  return $self->generate_node_list_feed($feed_timestamp, @changes);
+}
+
+
+=item B<node_all_versions>
+
+Build an RSS Feed of all the different versions of a given node.
+
+=cut
+sub node_all_versions
+{
+  my ($self, %args) = @_;
+
+  my @all_versions = $self->fetch_node_all_versions(%args);
+  my $feed_timestamp = $self->feed_timestamp( $all_versions[0] );
+
+  return $self->generate_node_list_feed($feed_timestamp, @all_versions);
+}
+
 
 =item <generate_node_list_feed>
@@ -75 +92 @@
 =cut
 sub generate_node_list_feed {
-  my ($self,$rss_timestamp,@nodes) = @_;
+  my ($self,$feed_timestamp,@nodes) = @_;
 
   #"http://purl.org/rss/1.0/modules/wiki/"
@@ -124 +141 @@
 <link>}               . $self->{recent_changes_link}  . qq{</link>
 <description>}        . $self->{site_description}     . qq{</description>
-<dc:date>}            . $rss_timestamp                . qq{</dc:date>
+<dc:date>}            . $feed_timestamp                . qq{</dc:date>
 <modwiki:interwiki>}     . $self->{interwiki_identifier} . qq{</modwiki:interwiki>};
 
@@ -214 +231 @@
 }
 
-=item B<rss_timestamp>
+=item B<feed_timestamp>
 
 Generate the timestamp for the RSS, based on the newest node (if available)
 
 =cut
-sub rss_timestamp
+sub feed_timestamp
 {
     my ($self, $newest_node) = @_;
@@ -394 +411 @@
 =back
 
-=head2 C<rss_timestamp()>
-
-  print $rss->rss_timestamp();
+=head2 C<feed_timestamp()>
+
+  print $rss->feed_timestamp();
 
 Returns the timestamp of the feed in POSIX::strftime style ("Tue, 29 Feb 2000