<{perl $self->define_empty_preformat_tag ("rssbox", \&handle_rssbox_tag, qw(rss)); sub handle_rssbox_tag { my ($tagname, $attrs, $text, $self) = @_; my $rssname = $attrs->{rss}; my $rdf = $self->get_content ($rssname); # Convert older RSS to RSS 1.0. A total kludge. I'd appreciate if someone # who knows how to do this in XSL, instead, could provide tips!! (TODO) # if ($rdf =~ m,http://my.netscape.com/publish/formats/rss-0.91.dtd,) { $rdf = $self->expand (qq{ }); $rssname .= "_converted"; $self->set_content ($rssname, $rdf); } elsif ($rdf =~ m,http://my.netscape.com/rdf/simple/0.9/,) { $rdf = $self->expand (qq{ }); $rssname .= "_converted"; $self->set_content ($rssname, $rdf); } return qq{ }; } ''; }>