Tadashi Okoshi
slash****@users*****
2005年 6月 17日 (金) 00:57:05 JST
Index: affelio/extlib/XML/RSS.pm diff -u /dev/null affelio/extlib/XML/RSS.pm:1.1 --- /dev/null Fri Jun 17 00:57:05 2005 +++ affelio/extlib/XML/RSS.pm Fri Jun 17 00:57:05 2005 @@ -0,0 +1,2223 @@ +# $Id: RSS.pm,v 1.1 2005/06/16 15:57:05 slash5234 Exp $ +package XML::RSS; + +use strict; +use Carp; +use XML::Parser; +use vars qw($VERSION $AUTOLOAD @ISA $modules $AUTO_ADD); + +$VERSION = '1.05'; + ＠ ISA = qw(XML::Parser); + +$AUTO_ADD = 0; + +my %v0_9_ok_fields = ( + channel => { + title => '', + description => '', + link => '', + }, + image => { + title => '', + url => '', + link => '' + }, + textinput => { + title => '', + description => '', + name => '', + link => '' + }, + items => [], + num_items => 0, + version => '', + encoding => '' +); + +my %v0_9_1_ok_fields = ( + channel => { + title => '', + copyright => '', + description => '', + docs => '', + language => '', + lastBuildDate => '', + 'link' => '', + managingEditor => '', + pubDate => '', + rating => '', + webMaster => '' + }, + image => { + title => '', + url => '', + 'link' => '', + width => '', + height => '', + description => '' + }, + skipDays => { + day => '' + }, + skipHours => { + hour => '' + }, + textinput => { + title => '', + description => '', + name => '', + 'link' => '' + }, + items => [], + num_items => 0, + version => '', + encoding => '', + category => '' +); + +my %v1_0_ok_fields = ( + channel => { + title => '', + description => '', + link => '', + }, + image => { + title => '', + url => '', + link => '' + }, + textinput => { + title => '', + description => '', + name => '', + link => '' + }, + skipDays => { + day => '' + }, + skipHours => { + hour => '' + }, + items => [], + num_items => 0, + version => '', + encoding => '', + output => '', +); + +my %v2_0_ok_fields = ( + channel => { + title => '', + 'link' => '', + description => '', + language => '', + copyright => '', + managingEditor => '', + webMaster => '', + pubDate => '', + lastBuildDate => '', + category => '', + generator => '', + docs => '', + cloud => '', + ttl => '', + image => '', + textinput => '', + skipHours => '', + skipDays => '', + }, + image => { + title => '', + url => '', + 'link' => '', + width => '', + height => '', + description => '' + }, + skipDays => { + day => '' + }, + skipHours => { + hour => '' + }, + textinput => { + title => '', + description => '', + name => '', + 'link' => '' + }, + items => [], + num_items => 0, + version => '', + encoding => '', + category => '', + cloud => '', + ttl => '' +); + +my %languages = ( + 'af' => 'Afrikaans', + 'sq' => 'Albanian', + 'eu' => 'Basque', + 'be' => 'Belarusian', + 'bg' => 'Bulgarian', + 'ca' => 'Catalan', + 'zh-cn' => 'Chinese (Simplified)', + 'zh-tw' => 'Chinese (Traditional)', + 'hr' => 'Croatian', + 'cs' => 'Czech', + 'da' => 'Danish', + 'nl' => 'Dutch', + 'nl-be' => 'Dutch (Belgium)', + 'nl-nl' => 'Dutch (Netherlands)', + 'en' => 'English', + 'en-au' => 'English (Australia)', + 'en-bz' => 'English (Belize)', + 'en-ca' => 'English (Canada)', + 'en-ie' => 'English (Ireland)', + 'en-jm' => 'English (Jamaica)', + 'en-nz' => 'English (New Zealand)', + 'en-ph' => 'English (Phillipines)', + 'en-za' => 'English (South Africa)', + 'en-tt' => 'English (Trinidad)', + 'en-gb' => 'English (United Kingdom)', + 'en-us' => 'English (United States)', + 'en-zw' => 'English (Zimbabwe)', + 'fo' => 'Faeroese', + 'fi' => 'Finnish', + 'fr' => 'French', + 'fr-be' => 'French (Belgium)', + 'fr-ca' => 'French (Canada)', + 'fr-fr' => 'French (France)', + 'fr-lu' => 'French (Luxembourg)', + 'fr-mc' => 'French (Monaco)', + 'fr-ch' => 'French (Switzerland)', + 'gl' => 'Galician', + 'gd' => 'Gaelic', + 'de' => 'German', + 'de-at' => 'German (Austria)', + 'de-de' => 'German (Germany)', + 'de-li' => 'German (Liechtenstein)', + 'de-lu' => 'German (Luxembourg)', + 'el' => 'Greek', + 'hu' => 'Hungarian', + 'is' => 'Icelandic', + 'in' => 'Indonesian', + 'ga' => 'Irish', + 'it' => 'Italian', + 'it-it' => 'Italian (Italy)', + 'it-ch' => 'Italian (Switzerland)', + 'ja' => 'Japanese', + 'ko' => 'Korean', + 'mk' => 'Macedonian', + 'no' => 'Norwegian', + 'pl' => 'Polish', + 'pt' => 'Portuguese', + 'pt-br' => 'Portuguese (Brazil)', + 'pt-pt' => 'Portuguese (Portugal)', + 'ro' => 'Romanian', + 'ro-mo' => 'Romanian (Moldova)', + 'ro-ro' => 'Romanian (Romania)', + 'ru' => 'Russian', + 'ru-mo' => 'Russian (Moldova)', + 'ru-ru' => 'Russian (Russia)', + 'sr' => 'Serbian', + 'sk' => 'Slovak', + 'sl' => 'Slovenian', + 'es' => 'Spanish', + 'es-ar' => 'Spanish (Argentina)', + 'es-bo' => 'Spanish (Bolivia)', + 'es-cl' => 'Spanish (Chile)', + 'es-co' => 'Spanish (Colombia)', + 'es-cr' => 'Spanish (Costa Rica)', + 'es-do' => 'Spanish (Dominican Republic)', + 'es-ec' => 'Spanish (Ecuador)', + 'es-sv' => 'Spanish (El Salvador)', + 'es-gt' => 'Spanish (Guatemala)', + 'es-hn' => 'Spanish (Honduras)', + 'es-mx' => 'Spanish (Mexico)', + 'es-ni' => 'Spanish (Nicaragua)', + 'es-pa' => 'Spanish (Panama)', + 'es-py' => 'Spanish (Paraguay)', + 'es-pe' => 'Spanish (Peru)', + 'es-pr' => 'Spanish (Puerto Rico)', + 'es-es' => 'Spanish (Spain)', + 'es-uy' => 'Spanish (Uruguay)', + 'es-ve' => 'Spanish (Venezuela)', + 'sv' => 'Swedish', + 'sv-fi' => 'Swedish (Finland)', + 'sv-se' => 'Swedish (Sweden)', + 'tr' => 'Turkish', + 'uk' => 'Ukranian' + ); + +# define required elements for RSS 0.9 +my $_REQ_v0_9 = { + channel => { + "title" => [1,40], + "description" => [1,500], + "link" => [1,500] + }, + image => { + "title" => [1,40], + "url" => [1,500], + "link" => [1,500] + }, + item => { + "title" => [1,100], + "link" => [1,500] + }, + textinput => { + "title" => [1,40], + "description" => [1,100], + "name" => [1,500], + "link" => [1,500] + } +}; + +# define required elements for RSS 0.91 +my $_REQ_v0_9_1 = { + channel => { + "title" => [1,100], + "description" => [1,500], + "link" => [1,500], + "language" => [1,5], + "rating" => [0,500], + "copyright" => [0,100], + "pubDate" => [0,100], + "lastBuildDate" => [0,100], + "docs" => [0,500], + "managingEditor" => [0,100], + "webMaster" => [0,100], + }, + image => { + "title" => [1,100], + "url" => [1,500], + "link" => [0,500], + "width" => [0,144], + "height" => [0,400], + "description" => [0,500] + }, + item => { + "title" => [1,100], + "link" => [1,500], + "description" => [0,500] + }, + textinput => { + "title" => [1,100], + "description" => [1,500], + "name" => [1,20], + "link" => [1,500] + }, + skipHours => { + "hour" => [1,23] + }, + skipDays => { + "day" => [1,10] + } +}; + +# define required elements for RSS 2.0 +my $_REQ_v2_0 = { + channel => { + "title" => [1,100], + "description" => [1,500], + "link" => [1,500], + "language" => [0,5], + "rating" => [0,500], + "copyright" => [0,100], + "pubDate" => [0,100], + "lastBuildDate" => [0,100], + "docs" => [0,500], + "managingEditor" => [0,100], + "webMaster" => [0,100], + }, + image => { + "title" => [1,100], + "url" => [1,500], + "link" => [0,500], + "width" => [0,144], + "height" => [0,400], + "description" => [0,500] + }, + item => { + "title" => [1,100], + "link" => [1,500], + "description" => [0,500] + }, + textinput => { + "title" => [1,100], + "description" => [1,500], + "name" => [1,20], + "link" => [1,500] + }, + skipHours => { + "hour" => [1,23] + }, + skipDays => { + "day" => [1,10] + } +}; + +my $namespace_map = { + rss10 => 'http://purl.org/rss/1.0/', + rss09 => 'http://my.netscape.com/rdf/simple/0.9/', +# rss091 => 'http://purl.org/rss/1.0/modules/rss091/', + rss20 => 'http://backend.userland.com/blogChannelModule', +}; + +my $modules = { + 'http://purl.org/rss/1.0/modules/syndication/' => 'syn', + 'http://purl.org/dc/elements/1.1/' => 'dc', + 'http://purl.org/rss/1.0/modules/taxonomy/' => 'taxo', + 'http://webns.net/mvcb/' => 'admin' +}; + +my %syn_ok_fields = ( + 'updateBase' => '', + 'updateFrequency' => '', + 'updatePeriod' => '', +); + +my %dc_ok_fields = ( + 'title' => '', + 'creator' => '', + 'subject' => '', + 'description' => '', + 'publisher' => '', + 'contributor' => '', + 'date' => '', + 'type' => '', + 'format' => '', + 'identifier' => '', + 'source' => '', + 'language' => '', + 'relation' => '', + 'coverage' => '', + 'rights' => '', +); + +my %rdf_resource_fields = ( + 'http://webns.net/mvcb/' => { + 'generatorAgent' => 1, + 'errorReportsTo' => 1 + }, + 'http://purl.org/rss/1.0/modules/annotate/' => { + 'reference' => 1 + }, + 'http://my.theinfo.org/changed/1.0/rss/' => { + 'server' => 1 + } +); + +sub new { + my $class = shift; + + my $self = $class->SUPER::new( + Namespaces => 1, + NoExpand => 1, + ParseParamEnt => 0, + Handlers => { + Char => \&handle_char, + XMLDecl => \&handle_dec, + Start => \&handle_start + }); + + bless $self, $class; + + $self->_initialize(@_); + + return $self; +} + +sub _initialize { + my $self = shift; + my %hash = @_; + + # internal hash + $self->{_internal} = {}; + + # init num of items to 0 + $self->{num_items} = 0; + + # adhere to Netscape limits; no by default + $self->{'strict'} = 0; + + # initialize items + $self->{items} = []; + + # namespaces + $self->{namespaces} = {}; + $self->{rss_namespace} = ''; + + # modules + $self->{modules} = $modules; + + # encode output from as_string? + (exists($hash{encode_output})) + ? ($self->{encode_output} = $hash{encode_output}) + : ($self->{encode_output} = 1); + + #get version info + (exists($hash{version})) + ? ($self->{version} = $hash{version}) + : ($self->{version} = '1.0'); + + # set default output + (exists($hash{output})) + ? ($self->{output} = $hash{output}) + : ($self->{output} = ""); + + # encoding + (exists($hash{encoding})) + ? ($self->{encoding} = $hash{encoding}) + : ($self->{encoding} = 'UTF-8'); + + # initialize RSS data structure + # RSS version 0.9 + if ($self->{version} eq '0.9') { + # Copy the hashes instead of using them directly to avoid + # problems with multiple XML::RSS objects being used concurrently + foreach my $i (qw(channel image textinput)) { + my %template=%{$v0_9_ok_fields{$i}}; + $self->{$i} = \%template; + } + + # RSS version 0.91 + } elsif ($self->{version} eq '0.91') { + foreach my $i (qw(channel image textinput skipDays skipHours)) { + my %template=%{$v0_9_1_ok_fields{$i}}; + $self->{$i} = \%template; + } + + # RSS version 2.0 + } elsif ($self->{version} eq '2.0') { + $self->{namespaces}->{'blogChannel'} = "http://backend.userland.com/blogChannelModule"; + foreach my $i (qw(channel image textinput skipDays skipHours)) { + my %template=%{ $v2_0_ok_fields{$i} }; + $self->{$i} = \%template; + } + + # RSS version 1.0 + #} elsif ($self->{version} eq '1.0') { + } else { + foreach my $i (qw(channel image textinput)) { + #foreach my $i (keys(%v1_0_ok_fields)) { + my %template=%{$v1_0_ok_fields{$i}}; + $self->{$i} = \%template; + } + } +} + +sub add_module { + my $self = shift; + my $hash = {@_}; + + $hash->{prefix} =~ /^[a-z_][a-z0-9.-_]*$/ or + croak "a namespace prefix should look like [a-z_][a-z0-9.-_]*"; + + $hash->{uri} or + croak "a URI must be provided in a namespace declaration"; + + $self->{modules}->{$hash->{uri}} = $hash->{prefix}; +} + +sub add_item { + my $self = shift; + my $hash = {@_}; + + # strict Netscape Netcenter length checks + if ($self->{'strict'}) { + # make sure we have a title and link + croak "title and link elements are required" + unless ($hash->{title} && $hash->{'link'}); + + # check string lengths + croak "title cannot exceed 100 characters in length" + if (length($hash->{title}) > 100); + croak "link cannot exceed 500 characters in length" + if (length($hash->{'link'}) > 500); + croak "description cannot exceed 500 characters in length" + if (exists($hash->{description}) + && length($hash->{description}) > 500); + + # make sure there aren't already 15 items + croak "total items cannot exceed 15 " if (@{$self->{items}} >= 15); + } + + # add the item to the list + if (defined($hash->{mode}) && $hash->{mode} eq 'insert') { + unshift (@{$self->{items}}, $hash); + } else { + push (@{$self->{items}}, $hash); + } + + # return reference to the list of items + return $self->{items}; +} + +sub as_rss_0_9 { + my $self = shift; + my $output; + + # XML declaration + my $encoding = exists $$self{encoding} ? qq| encoding="$$self{encoding}"| : ''; + $output .= qq|<?xml version="1.0"$encoding?>\n\n|; + + # RDF root element + $output .= '<rdf:RDF'."\n".'xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"'."\n"; + $output .= 'xmlns="http://my.netscape.com/rdf/simple/0.9/">'."\n\n"; + + ################### + # Channel Element # + ################### + $output .= '<channel>'."\n"; + $output .= '<title>'. $self->encode($self->{channel}->{title}) .'</title>'."\n"; + $output .= '<link>'. $self->encode($self->{channel}->{'link'}) .'</link>'."\n"; + $output .= '<description>'. $self->encode($self->{channel}->{description}) .'</description>'."\n"; + $output .= '</channel>'."\n\n"; + + ################# + # image element # + ################# + if ($self->{image}->{url}) { + $output .= '<image>'."\n"; + + # title + $output .= '<title>'. $self->encode($self->{image}->{title}) .'</title>'."\n"; + + # url + $output .= '<url>'. $self->encode($self->{image}->{url}) .'</url>'."\n"; + + # link + $output .= '<link>'. $self->encode($self->{image}->{'link'}) .'</link>'."\n" + if $self->{image}->{link}; + + # end image element + $output .= '</image>'."\n\n"; + } + + ################ + # item element # + ################ + foreach my $item (@{$self->{items}}) { + if ($item->{title}) { + $output .= '<item>'."\n"; + $output .= '<title>'. $self->encode($item->{title}) .'</title>'."\n"; + $output .= '<link>'. $self->encode($item->{'link'}) .'</link>'."\n"; + + # end image element + $output .= '</item>'."\n\n"; + } + } + + ##################### + # textinput element # + ##################### + if ($self->{textinput}->{'link'}) { + $output .= '<textinput>'."\n"; + $output .= '<title>'. $self->encode($self->{textinput}->{title}) .'</title>'."\n"; + $output .= '<description>'. $self->encode($self->{textinput}->{description}) .'</description>'."\n"; + $output .= '<name>'. $self->encode($self->{textinput}->{name}) .'</name>'."\n"; + $output .= '<link>'. $self->encode($self->{textinput}->{'link'}) .'</link>'."\n"; + $output .= '</textinput>'."\n\n"; + } + + $output .= '</rdf:RDF>'; + + return $output; +} + +sub as_rss_0_9_1 { + my $self = shift; + my $output; + + # XML declaration + $output .= '<?xml version="1.0" encoding="'.$self->{encoding}.'"?>'."\n\n"; + + # DOCTYPE + $output .= '<!DOCTYPE rss PUBLIC "-//Netscape Communications//DTD RSS 0.91//EN"'."\n"; + $output .= ' "http://my.netscape.com/publish/formats/rss-0.91.dtd">'."\n\n"; + + # RSS root element + $output .= '<rss version="0.91">'."\n\n"; + + ################### + # Channel Element # + ################### + $output .= '<channel>'."\n"; + $output .= '<title>'. $self->encode($self->{channel}->{title}) .'</title>'."\n"; + $output .= '<link>'. $self->encode($self->{channel}->{'link'}) .'</link>'."\n"; + $output .= '<description>'. $self->encode($self->{channel}->{description}) .'</description>'."\n"; + + # language + if ($self->{channel}->{'dc'}->{'language'}) { + $output .= '<language>'. $self->encode($self->{channel}->{'dc'}->{'language'}) .'</language>'."\n"; + } elsif ($self->{channel}->{language}) { + $output .= '<language>'. $self->encode($self->{channel}->{language}).'</language>'."\n"; + } + + # PICS rating + $output .= '<rating>'. $self->encode($self->{channel}->{rating}) .'</rating>'."\n" + if $self->{channel}->{rating}; + + # copyright + if ($self->{channel}->{'dc'}->{'rights'}) { + $output .= '<copyright>'. $self->encode($self->{channel}->{'dc'}->{'rights'}) .'</copyright>'."\n"; + } elsif ($self->{channel}->{copyright}) { + $output .= '<copyright>'. $self->encode($self->{channel}->{copyright}) .'</copyright>'."\n"; + } + + # publication date + if ($self->{channel}->{pubDate}) { + $output .= '<pubDate>'. $self->encode($self->{channel}->{pubDate}) .'</pubDate>'."\n"; + } elsif ($self->{channel}->{'dc'}->{'date'}) { + $output .= '<pubDate>'. $self->encode($self->{channel}->{'dc'}->{'date'}) .'</pubDate>'."\n"; + } + + # last build date + if ($self->{channel}->{lastBuildDate}) { + $output .= '<lastBuildDate>'. $self->encode($self->{channel}->{lastBuildDate}) .'</lastBuildDate>'."\n"; + } elsif ($self->{channel}->{'dc'}->{'date'}) { + $output .= '<lastBuildDate>'. $self->encode($self->{channel}->{'dc'}->{'date'}) .'</lastBuildDate>'."\n"; + } + + # external CDF URL + $output .= '<docs>'. $self->encode($self->{channel}->{docs}) .'</docs>'."\n" + if $self->{channel}->{docs}; + + # managing editor + if ($self->{channel}->{'dc'}->{'publisher'}) { + $output .= '<managingEditor>'. $self->encode($self->{channel}->{'dc'}->{'publisher'}) .'</managingEditor>'."\n"; + } elsif ($self->{channel}->{managingEditor}) { + $output .= '<managingEditor>'. $self->encode($self->{channel}->{managingEditor}) .'</managingEditor>'."\n"; + } + + # webmaster + if ($self->{channel}->{'dc'}->{'creator'}) { + $output .= '<webMaster>'. $self->encode($self->{channel}->{'dc'}->{'creator'}) .'</webMaster>'."\n"; + } elsif ($self->{channel}->{webMaster}) { + $output .= '<webMaster>'. $self->encode($self->{channel}->{webMaster}) .'</webMaster>'."\n"; + } + + $output .= "\n"; + + ################# + # image element # + ################# + if ($self->{image}->{url}) { + $output .= '<image>'."\n"; + + # title + $output .= '<title>'. $self->encode($self->{image}->{title}) .'</title>'."\n"; + + # url + $output .= '<url>'. $self->encode($self->{image}->{url}) .'</url>'."\n"; + + # link + $output .= '<link>'. $self->encode($self->{image}->{'link'}) .'</link>'."\n" + if $self->{image}->{link}; + + # image width + $output .= '<width>'. $self->encode($self->{image}->{width}) .'</width>'."\n" + if $self->{image}->{width}; + + # image height + $output .= '<height>'. $self->encode($self->{image}->{height}) .'</height>'."\n" + if $self->{image}->{height}; + + # description + $output .= '<description>'. $self->encode($self->{image}->{description}) .'</description>'."\n" + if $self->{image}->{description}; + + # end image element + $output .= '</image>'."\n\n"; + } + + ################ + # item element # + ################ + foreach my $item (@{$self->{items}}) { + if ($item->{title}) { + $output .= '<item>'."\n"; + $output .= '<title>'. $self->encode($item->{title}) .'</title>'."\n"; + $output .= '<link>'. $self->encode($item->{'link'}) .'</link>'."\n"; + + $output .= '<description>'. $self->encode($item->{description}) .'</description>'."\n" + if $item->{description}; + + # end image element + $output .= '</item>'."\n\n"; + } + } + + ##################### + # textinput element # + ##################### + if ($self->{textinput}->{'link'}) { + $output .= '<textinput>'."\n"; + $output .= '<title>'. $self->encode($self->{textinput}->{title}) .'</title>'."\n"; + $output .= '<description>'. $self->encode($self->{textinput}->{description}) .'</description>'."\n"; + $output .= '<name>'. $self->encode($self->{textinput}->{name}) .'</name>'."\n"; + $output .= '<link>'. $self->encode($self->{textinput}->{'link'}) .'</link>'."\n"; + $output .= '</textinput>'."\n\n"; + } + + ##################### + # skipHours element # + ##################### + if ($self->{skipHours}->{hour}) { + $output .= '<skipHours>'."\n"; + $output .= '<hour>'. $self->encode($self->{skipHours}->{hour}) .'</hour>'."\n"; + $output .= '</skipHours>'."\n\n"; + } + + #################### + # skipDays element # + #################### + if ($self->{skipDays}->{day}) { + $output .= '<skipDays>'."\n"; + $output .= '<day>'. $self->encode($self->{skipDays}->{day}) .'</day>'."\n"; + $output .= '</skipDays>'."\n\n"; + } + + # end channel element + $output .= '</channel>'."\n"; + $output .= '</rss>'; + + return $output; +} + +sub as_rss_1_0 { + my $self = shift; + my $output; + + # XML declaration + $output .= '<?xml version="1.0" encoding="'.$self->{encoding}.'"?>'."\n\n"; + + # RDF namespaces declaration + $output .="<rdf:RDF"."\n"; + $output .=' xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"'."\n"; + $output .=' xmlns="http://purl.org/rss/1.0/"'."\n"; + + # print all imported namespaces + while (my($k, $v) = each %{$self->{modules}}) { + $output.=" xmlns:$v=\"$k\"\n"; + } + + $output .=">"."\n\n"; + + ################### + # Channel Element # + ################### + unless ( defined($self->{channel}->{'about'}) ) { + $output .= '<channel rdf:about="'. $self->encode($self->{channel}->{'link'}) .'">'."\n"; + } else { + $output .= '<channel rdf:about="'. $self->encode($self->{channel}->{'about'}) .'">'."\n"; + } + # title + $output .= '<title>'. $self->encode($self->{channel}->{title}) .'</title>'."\n"; + + # link + $output .= '<link>'. $self->encode($self->{channel}->{'link'}) .'</link>'."\n"; + + # description + $output .= '<description>'. $self->encode($self->{channel}->{description}) .'</description>'."\n"; + + # additional elements for RSS 0.91 + # language + if ($self->{channel}->{'dc'}->{'language'}) { + $output .= '<dc:language>'. $self->encode($self->{channel}->{'dc'}->{'language'}) .'</dc:language>'."\n"; + } elsif ($self->{channel}->{language}) { + $output .= '<dc:language>'. $self->encode($self->{channel}->{language}) .'</dc:language>'."\n"; + } + + # PICS rating - Dublin Core has not decided how to incorporate PICS ratings yet + #$$output .= '<rss091:rating>'.$self->{channel}->{rating}.'</rss091:rating>'."\n" + #$if $self->{channel}->{rating}; + + # copyright + if ($self->{channel}->{'dc'}->{'rights'}) { + $output .= '<dc:rights>'. $self->encode($self->{channel}->{'dc'}->{'rights'}) .'</dc:rights>'."\n"; + } elsif ($self->{channel}->{copyright}) { + $output .= '<dc:rights>'. $self->encode($self->{channel}->{copyright}) .'</dc:rights>'."\n"; + } + + # publication date + if ($self->{channel}->{'dc'}->{'date'}) { + $output .= '<dc:date>'. $self->encode($self->{channel}->{'dc'}->{'date'}) .'</dc:date>'."\n"; + } elsif ($self->{channel}->{pubDate}) { + $output .= '<dc:date>'. $self->encode($self->{channel}->{pubDate}) .'</dc:date>'."\n"; + } elsif ($self->{channel}->{lastBuildDate}) { + $output .= '<dc:date>'. $self->encode($self->{channel}->{lastBuildDate}) .'</dc:date>'."\n"; + } + + # external CDF URL + #$output .= '<rss091:docs>'.$self->{channel}->{docs}.'</rss091:docs>'."\n" + #if $self->{channel}->{docs}; + + # managing editor + if ($self->{channel}->{'dc'}->{'publisher'}) { + $output .= '<dc:publisher>'. $self->encode($self->{channel}->{'dc'}->{'publisher'}) .'</dc:publisher>'."\n"; + } elsif ($self->{channel}->{managingEditor}) { + $output .= '<dc:publisher>'. $self->encode($self->{channel}->{managingEditor}) .'</dc:publisher>'."\n"; + } + + # webmaster + if ($self->{channel}->{'dc'}->{'creator'}) { + $output .= '<dc:creator>'. $self->encode($self->{channel}->{'dc'}->{'creator'}) .'</dc:creator>'."\n"; + } elsif ($self->{channel}->{webMaster}) { + $output .= '<dc:creator>'. $self->encode($self->{channel}->{webMaster}) .'</dc:creator>'."\n"; + } + + # Dublin Core module + foreach my $dc ( keys %dc_ok_fields ) { + next if ($dc eq 'language' + || $dc eq 'creator' + || $dc eq 'publisher' + || $dc eq 'rights' + || $dc eq 'date'); + $self->{channel}->{dc}->{$dc} and $output .= "<dc:$dc>". $self->encode($self->{channel}->{dc}->{$dc}) ."</dc:$dc>\n"; + } + + # Syndication module + foreach my $syn ( keys %syn_ok_fields ) { + $self->{channel}->{syn}->{$syn} and $output .= "<syn:$syn>". $self->encode($self->{channel}->{syn}->{$syn}) ."</syn:$syn>\n"; + } + + # Taxonomy module + if (exists($self->{'channel'}->{'taxo'}) && $self->{'channel'}->{'taxo'}) { + $output .= "<taxo:topics>\n <rdf:Bag>\n"; + foreach my $taxo (@{$self->{'channel'}->{'taxo'}}) { + $output.= " <rdf:li resource=\"" . $self->encode($taxo) . "\" />\n"; + } + $output .= " </rdf:Bag>\n</taxo:topics>\n"; + } + + # Ad-hoc modules + while ( my($url, $prefix) = each %{$self->{modules}} ) { + next if $prefix =~ /^(dc|syn|taxo)$/; + while ( my($el, $value) = each %{$self->{channel}->{$prefix}} ) { + if ( exists( $rdf_resource_fields{ $url } ) and + exists( $rdf_resource_fields{ $url }{ $el }) ) + { + $output .= qq!<$prefix:$el rdf:resource="! . + $self->encode($value) . + qq!" />\n!; + } + else { + $output .= "<$prefix:$el>". $self->encode($value) ."</$prefix:$el>\n"; + } + } + } + + # Seq items + $output .= "<items>\n <rdf:Seq>\n"; + + foreach my $item (@{$self->{items}}) { + my $about = ( defined($item->{'about'}) ) ? $item->{'about'} : $item->{'link'}; + $output .= ' <rdf:li rdf:resource="'. $self->encode($about) .'" />'."\n"; + } + + $output .= " </rdf:Seq>\n</items>\n"; + + $self->{image}->{url} and + $output .= '<image rdf:resource="'. $self->encode($self->{image}->{url}) .'" />'."\n"; + + $self->{textinput}->{'link'} and + $output .= '<textinput rdf:resource="'. $self->encode($self->{textinput}->{'link'}) .'" />'."\n"; + + # end channel element + $output .= '</channel>'."\n\n"; + + ################# + # image element # + ################# + if ($self->{image}->{url}) { + $output .= '<image rdf:about="'. $self->encode($self->{image}->{url}) .'">'."\n"; + + # title + $output .= '<title>'. $self->encode($self->{image}->{title}) .'</title>'."\n"; + + # url + $output .= '<url>'. $self->encode($self->{image}->{url}) .'</url>'."\n"; + + # link + $output .= '<link>'. $self->encode($self->{image}->{'link'}) .'</link>'."\n" + if $self->{image}->{link}; + + # image width + #$output .= '<rss091:width>'.$self->{image}->{width}.'</rss091:width>'."\n" + # if $self->{image}->{width}; + + # image height + #$output .= '<rss091:height>'.$self->{image}->{height}.'</rss091:height>'."\n" + # if $self->{image}->{height}; + + # description + #$output .= '<rss091:description>'.$self->{image}->{description}.'</rss091:description>'."\n" + # if $self->{image}->{description}; + + # Dublin Core Modules + foreach my $dc ( keys %dc_ok_fields ) { + $self->{image}->{dc}->{$dc} and + $output .= "<dc:$dc>". $self->encode($self->{image}->{dc}->{$dc}) ."</dc:$dc>\n"; + } + + # Ad-hoc modules for images + while ( my($url, $prefix) = each %{$self->{modules}} ) { + next if $prefix =~ /^(dc|syn|taxo)$/; + while ( my($el, $value) = each %{$self->{image}->{$prefix}} ) { + if ( exists( $rdf_resource_fields{ $url } ) and + exists( $rdf_resource_fields{ $url }{ $el }) ) + { + $output .= qq!<$prefix:$el rdf:resource="! . + $self->encode($value) . + qq!" />\n!; + } + else { + $output .= "<$prefix:$el>". $self->encode($value) ."</$prefix:$el>\n"; + } + } + } + # end image element + $output .= '</image>'."\n\n"; + } # end if ($self->{image}->{url}) { + + ################ + # item element # + ################ + foreach my $item (@{$self->{items}}) { + if ($item->{title}) { + my $about = ( defined($item->{'about'}) ) ? $item->{'about'} : $item->{'link'}; + $output .= '<item rdf:about="'. $self->encode($about) .'"'; + $output .= ">\n"; + $output .= '<title>'. $self->encode($item->{title}) .'</title>'."\n"; + $output .= '<link>'. $self->encode($item->{'link'}) .'</link>'."\n"; + $item->{description} and $output .= '<description>'. $self->encode($item->{description}) .'</description>'."\n"; + + # Dublin Core module + foreach my $dc ( keys %dc_ok_fields ) { + $item->{dc}->{$dc} and $output .= "<dc:$dc>". $self->encode($item->{dc}->{$dc}) ."</dc:$dc>\n"; + } + + # Taxonomy module + if (exists($item->{'taxo'}) && $item->{'taxo'}) { + $output .= "<taxo:topics>\n <rdf:Bag>\n"; + foreach my $taxo (@{$item->{'taxo'}}) { + $output.= " <rdf:li resource=\"$taxo\" />\n"; + } + $output .= " </rdf:Bag>\n</taxo:topics>\n"; + } + + # Ad-hoc modules + while ( my($url, $prefix) = each %{$self->{modules}} ) { + next if $prefix =~ /^(dc|syn|taxo)$/; + while ( my($el, $value) = each %{$item->{$prefix}} ) { + if ( exists( $rdf_resource_fields{ $url } ) and + exists( $rdf_resource_fields{ $url }{ $el }) ) + { + $output .= qq!<$prefix:$el rdf:resource="! . + $self->encode($value) . + qq!" />\n!; + } + else { + $output .= "<$prefix:$el>". $self->encode($value) ."</$prefix:$el>\n"; + } + } + } + # end item element + $output .= '</item>'."\n\n"; + } + } # end foreach my $item (@{$self->{items}}) { + + ##################### + # textinput element # + ##################### + if ($self->{textinput}->{'link'}) { + $output .= '<textinput rdf:about="'. $self->encode($self->{textinput}->{'link'}) .'">'."\n"; + $output .= '<title>'. $self->encode($self->{textinput}->{title}) .'</title>'."\n"; + $output .= '<description>'. $self->encode($self->{textinput}->{description}) .'</description>'."\n"; + $output .= '<name>'. $self->encode($self->{textinput}->{name}) .'</name>'."\n"; + $output .= '<link>'. $self->encode($self->{textinput}->{'link'}) .'</link>'."\n"; + + # Dublin Core module + foreach my $dc ( keys %dc_ok_fields ) { + $self->{textinput}->{dc}->{$dc} + and $output .= "<dc:$dc>". $self->encode($self->{textinput}->{dc}->{$dc}) ."</dc:$dc>\n"; + } + + # Ad-hoc modules + while ( my($url, $prefix) = each %{$self->{modules}} ) { + next if $prefix =~ /^(dc|syn|taxo)$/; + while ( my($el, $value) = each %{$self->{textinput}->{$prefix}} ) { + $output .= "<$prefix:$el>". $self->encode($value) ."</$prefix:$el>\n"; + } + } + + $output .= '</textinput>'."\n\n"; + } + + $output .= '</rdf:RDF>'; +} + +sub as_rss_2_0 { + my $self = shift; + my $output; + + # XML declaration + $output .= '<?xml version="1.0" encoding="'.$self->{encoding}.'"?>'."\n\n"; + + # DOCTYPE + # $output .= '<!DOCTYPE rss PUBLIC "-//Netscape Communications//DTD RSS 0.91//EN"'."\n"; + # $output .= ' "http://my.netscape.com/publish/formats/rss-0.91.dtd">'."\n\n"; + + # RSS root element + # $output .= '<rss version="0.91">'."\n\n"; + $output .= '<rss version="2.0" xmlns:blogChannel="http://backend.userland.com/blogChannelModule">' . "\n\n"; + + ################### + # Channel Element # + ################### + $output .= '<channel>'."\n"; + $output .= '<title>'.$self->encode($self->{channel}->{title}).'</title>'."\n"; + $output .= '<link>'.$self->encode($self->{channel}->{'link'}).'</link>'."\n"; + $output .= '<description>'.$self->encode($self->{channel}->{description}).'</description>'."\n"; + + # language + if ($self->{channel}->{'dc'}->{'language'}) { + $output .= '<language>'.$self->encode($self->{channel}->{'dc'}->{'language'}).'</language>'."\n"; + } elsif ($self->{channel}->{language}) { + $output .= '<language>'.$self->encode($self->{channel}->{language}).'</language>'."\n"; + } + + # PICS rating + # Not supported by RSS 2.0 + # $output .= '<rating>'.$self->{channel}->{rating}.'</rating>'."\n" + # if $self->{channel}->{rating}; + + # copyright + if ($self->{channel}->{'dc'}->{'rights'}) { + $output .= '<copyright>'.$self->encode($self->{channel}->{'dc'}->{'rights'}).'</copyright>'."\n"; + } elsif ($self->{channel}->{copyright}) { + $output .= '<copyright>'.$self->encode($self->{channel}->{copyright}).'</copyright>'."\n"; + } + + # publication date + if ($self->{channel}->{pubDate}) { + $output .= '<pubDate>'.$self->encode($self->{channel}->{pubDate}).'</pubDate>'."\n"; + } elsif ($self->{channel}->{'dc'}->{'date'}) { + $output .= '<pubDate>'.$self->encode($self->{channel}->{'dc'}->{'date'}).'</pubDate>'."\n"; + } + + # last build date + if ($self->{channel}->{'dc'}->{'date'}) { + $output .= '<lastBuildDate>'.$self->encode($self->{channel}->{'dc'}->{lastBuildDate}).'</lastBuildDate>'."\n"; + } elsif ($self->{channel}->{lastBuildDate}) { + $output .= '<lastBuildDate>'.$self->encode($self->{channel}->{lastBuildDate}).'</lastBuildDate>'."\n"; + } + + # external CDF URL + $output .= '<docs>'.$self->encode($self->{channel}->{docs}).'</docs>'."\n" + if $self->{channel}->{docs}; + + # managing editor + if ($self->{channel}->{'dc'}->{'publisher'}) { + $output .= '<managingEditor>'.$self->encode($self->{channel}->{'dc'}->{'publisher'}).'</managingEditor>'."\n"; + } elsif ($self->{channel}->{managingEditor}) { + $output .= '<managingEditor>'.$self->encode($self->{channel}->{managingEditor}).'</managingEditor>'."\n"; + } + + # webmaster + if ($self->{channel}->{'dc'}->{'creator'}) { + $output .= '<webMaster>'.$self->encode($self->{channel}->{'dc'}->{'creator'}).'</webMaster>'."\n"; + } elsif ($self->{channel}->{webMaster}) { + $output .= '<webMaster>'.$self->encode($self->{channel}->{webMaster}).'</webMaster>'."\n"; + } + + # category + if ($self->{channel}->{'dc'}->{'category'}) { + $output .= '<category>'.$self->encode($self->{channel}->{'dc'}->{'category'}).'</category>'."\n"; + } elsif ($self->{channel}->{category}) { + $output .= '<category>'.$self->encode($self->{channel}->{generator}).'</category>'."\n"; + } + + # generator + if ($self->{channel}->{'dc'}->{'generator'}) { + $output .= '<generator>'.$self->encode($self->{channel}->{'dc'}->{'generator'}).'</generator>'."\n"; + } elsif ($self->{channel}->{generator}) { + $output .= '<generator>'.$self->encode($self->{channel}->{generator}).'</generator>'."\n"; + } + + # Insert cloud support here + + # ttl + if ($self->{channel}->{'dc'}->{'ttl'}) { + $output .= '<ttl>'.$self->encode($self->{channel}->{'dc'}->{'ttl'}).'</ttl>'."\n"; + } elsif ($self->{channel}->{ttl}) { + $output .= '<ttl>'.$self->encode($self->{channel}->{ttl}).'</ttl>'."\n"; + } + + + + $output .= "\n"; + + ################# + # image element # + ################# + if ($self->{image}->{url}) { + $output .= '<image>'."\n"; + + # title + $output .= '<title>'.$self->encode($self->{image}->{title}).'</title>'."\n"; + + # url + $output .= '<url>'.$self->encode($self->{image}->{url}).'</url>'."\n"; + + # link + $output .= '<link>'.$self->encode($self->{image}->{'link'}).'</link>'."\n" + if $self->{image}->{link}; + + # image width + $output .= '<width>'.$self->encode($self->{image}->{width}).'</width>'."\n" + if $self->{image}->{width}; + + # image height + $output .= '<height>'.$self->encode($self->{image}->{height}).'</height>'."\n" + if $self->{image}->{height}; + + # description + $output .= '<description>'.$self->encode($self->{image}->{description}).'</description>'."\n" + if $self->{image}->{description}; + + # end image element + $output .= '</image>'."\n\n"; + } + + ################ + # item element # + ################ + foreach my $item (@{$self->{items}}) { + if ($item->{title}) { + $output .= '<item>'."\n"; + $output .= '<title>'.$self->encode($item->{title}).'</title>'."\n" + if $item->{title}; + $output .= '<link>'.$self->encode($item->{'link'}).'</link>'."\n" + if $item->{link}; + $output .= '<description>'.$self->encode($item->{description}).'</description>'."\n" + if $item->{description}; + + $output .= '<author>'.$self->encode($item->{author}).'</author>'."\n" + if $item->{author}; + + $output .= '<category>'.$self->encode($item->{category}).'</category>'."\n" + if $item->{category}; + + $output .= '<comments>'.$self->encode($item->{comments}).'</comments>'."\n" + if $item->{comments}; + + # The unique identifier. Use 'permaLink' for an external + # identifier, or 'guid' for a internal string. + # (I call it permaLink in the hash for purposes of clarity.) + if ($item->{permaLink}) + { + $output .= '<guid isPermaLink="true">'.$self->encode($item->{permaLink}).'</guid>'."\n"; + } + elsif ($item->{guid}) + { + $output .= '<guid isPermaLink="false">'.$self->encode($item->{guid}).'</guid>'."\n"; + } + + $output .= '<pubDate>'.$self->encode($item->{pubDate}).'</pubDate>'."\n" + if $item->{pubDate}; + + $output .= '<source url="'.$self->encode($item->{sourceUrl}).'">'.$item->{source}.'</source>'."\n" + if $item->{source} && $item->{sourceUrl}; + + if (my $e = $item->{enclosure}) + { + $output .= "<enclosure " + . join(' ', map {qq!$_="! . $self->encode($e->{$_}) . qq!"!} keys(%$e)) + . ' />' . "\n"; + } + + # end image element + $output .= '</item>'."\n\n"; + } + } + + ##################### + # textinput element # + ##################### + if ($self->{textinput}->{'link'}) { + $output .= '<textInput>'."\n"; + $output .= '<title>'.$self->encode($self->{textinput}->{title}).'</title>'."\n"; + $output .= '<description>'.$self->encode($self->{textinput}->{description}).'</description>'."\n"; + $output .= '<name>'.$self->encode($self->{textinput}->{name}).'</name>'."\n"; + $output .= '<link>'.$self->encode($self->{textinput}->{'link'}).'</link>'."\n"; + $output .= '</textInput>'."\n\n"; + } + + ##################### + # skipHours element # + ##################### + if ($self->{skipHours}->{hour}) { + $output .= '<skipHours>'."\n"; + $output .= '<hour>'.$self->encode($self->{skipHours}->{hour}).'</hour>'."\n"; + $output .= '</skipHours>'."\n\n"; + } + + #################### + # skipDays element # + #################### + if ($self->{skipDays}->{day}) { + $output .= '<skipDays>'."\n"; + $output .= '<day>'.$self->encode($self->{skipDays}->{day}).'</day>'."\n"; + $output .= '</skipDays>'."\n\n"; + } + + # end channel element + $output .= '</channel>'."\n"; + $output .= '</rss>'; + + return $output; +} + +sub as_string { + my $self = shift; + my $version = ($self->{output} =~ /\d/) ? $self->{output} : $self->{version}; + my $output; + + ########### + # RSS 0.9 # + ########### + if ($version eq '0.9') { + $output = &as_rss_0_9($self); + + ############ + # RSS 0.91 # + ############ + } elsif ($version eq '0.91') { + $output = &as_rss_0_9_1($self); + + ########### + # RSS 2.0 # + ########### + } elsif ($version eq '2.0') { + $output = &as_rss_2_0($self); + + ########### + # RSS 1.0 # + ########### + } else { + $output = &as_rss_1_0($self); + } + + return $output; +} + +sub handle_char { + # removed assumption that RSS is the default namespace - kellan, 11/5/02 + + my ($self,$cdata) = (@_); + + # image element + if ( + $self->within_element("image") || + $self->within_element($self->generate_ns_name("image",$self->{rss_namespace})) + ) { + my $ns = $self->namespace($self->current_element); + # If it's in the default namespace + if ( + (!$ns && !$self->{rss_namespace}) || + ($ns eq $self->{rss_namespace}) + ) { + $self->{'image'}->{$self->current_element} .= $cdata; + } + else { + # If it's in another namespace + $self->{'image'}->{$ns}->{$self->current_element} .= $cdata; + + # If it's in a module namespace, provide a friendlier prefix duplicate + $modules->{$ns} and $self->{'image'}->{$modules->{$ns}}->{$self->current_element} .= $cdata; + } + + # item element + } + elsif ( + $self->within_element("item") + || $self->within_element($self->generate_ns_name("item",$self->{rss_namespace})) + + ) { + return if $self->within_element($self->generate_ns_name("topics",'http://purl.org/rss/1.0/modules/taxonomy/')); + + my $ns = $self->namespace($self->current_element); + + # If it's in the default RSS 1.0 namespace + if ( + (!$ns && !$self->{rss_namespace}) || + ($ns eq $self->{rss_namespace}) + ) { + $self->{'items'}->[$self->{num_items}-1]->{$self->current_element} .= $cdata; + } else { + # If it's in another namespace + $self->{'items'}->[$self->{num_items}-1]->{$ns}->{$self->current_element} .= $cdata; + + # If it's in a module namespace, provide a friendlier prefix duplicate + $modules->{$ns} and + $self->{'items'}->[$self->{num_items}-1]->{$modules->{$ns}}->{$self->current_element} .= $cdata; + } + + # textinput element + } elsif ( + $self->within_element("textinput") + || $self->within_element($self->generate_ns_name("textinput",$self->{rss_namespace})) + ) { + my $ns = $self->namespace($self->current_element); + + # If it's in the default namespace + if ( + (!$ns && !$self->{rss_namespace}) || + ($ns eq $self->{rss_namespace}) + ) { + $self->{'textinput'}->{$self->current_element} .= $cdata; + } + else { + # If it's in another namespace + $self->{'textinput'}->{$ns}->{$self->current_element} .= $cdata; + + # If it's in a module namespace, provide a friendlier prefix duplicate + $modules->{$ns} and $self->{'textinput'}->{$modules->{$ns}}->{$self->current_element} .= $cdata; + } + + # skipHours element + } elsif ( + $self->within_element("skipHours") || + $self->within_element($self->generate_ns_name("skipHours",$self->{rss_namespace})) + ) { + $self->{'skipHours'}->{$self->current_element} .= $cdata; + + # skipDays element + } elsif ( + $self->within_element("skipDays") || + $self->within_element($self->generate_ns_name("skipDays",$self->{rss_namespace})) + ) { + $self->{'skipDays'}->{$self->current_element} .= $cdata; + + # channel element + } elsif ( + $self->within_element("channel") || + $self->within_element($self->generate_ns_name("channel",$self->{rss_namespace})) + ) { + return if $self->within_element($self->generate_ns_name("topics",'http://purl.org/rss/1.0/modules/taxonomy/')); + + my $ns = $self->namespace($self->current_element); + + # If it's in the default namespace + if ( + (!$ns && !$self->{rss_namespace}) || + ($ns eq $self->{rss_namespace}) + ) { + $self->{'channel'}->{$self->current_element} .= $cdata; + } else { + # If it's in another namespace + $self->{'channel'}->{$ns}->{$self->current_element} .= $cdata; + + # If it's in a module namespace, provide a friendlier prefix duplicate + $modules->{$ns} and $self->{'channel'}->{$modules->{$ns}}->{$self->current_element} .= $cdata; + } + } +} + +sub handle_dec { + my ($self,$version,$encoding,$standalone) = (@_); + $self->{encoding} = $encoding; + #print "ENCODING: $encoding\n"; +} + +sub handle_start { + my $self = shift; + my $el = shift; + my %attribs = @_; + + # beginning of RSS 0.91 + if ($el eq 'rss') { + if (exists($attribs{version})) { + $self->{_internal}->{version} = $attribs{version}; + } else { + croak "Malformed RSS: invalid version\n"; + } + + # beginning of RSS 1.0 or RSS 0.9 + } elsif ($el eq 'RDF') { + my @prefixes = $self->new_ns_prefixes; + foreach my $prefix (@prefixes) { + my $uri = $self->expand_ns_prefix($prefix); + $self->{namespaces}->{$prefix} = $uri; + #print "$prefix = $uri\n"; + } + + # removed assumption that RSS is the default namespace - kellan, 11/5/02 + # + foreach my $uri ( values %{ $self->{namespaces} } ) { + if ( $namespace_map->{'rss10'} eq $uri ) { + $self->{_internal}->{version} = '1.0'; + $self->{rss_namespace} = $uri; + last; + } + elsif ( $namespace_map->{'rss09'} eq $uri ) { + $self->{_internal}->{version} = '0.9'; + $self->{rss_namespace} = $uri; + last; + } + } + + # failed to match a namespace + if ( !defined($self->{_internal}->{version}) ) { + croak "Malformed RSS: invalid version\n" + } + #if ($self->expand_ns_prefix('#default') =~ /\/1.0\//) { + # $self->{_internal}->{version} = '1.0'; + #} elsif ($self->expand_ns_prefix('#default') =~ /\/0.9\//) { + # $self->{_internal}->{version} = '0.9'; + #} else { + # croak "Malformed RSS: invalid version\n"; + #} + + # beginning of item element + } elsif ($el eq 'item') { + # deal with trouble makers who use mod_content :) + my $ns = $self->namespace( $el ); + + if ( + (!$ns && !$self->{rss_namespace}) || + ($ns eq $self->{rss_namespace}) + ) { + # increment item count + $self->{num_items}++; + } + # beginning of taxo li element in item element + #'http://purl.org/rss/1.0/modules/taxonomy/' => 'taxo' + } elsif ($self->within_element($self->generate_ns_name("topics",'http://purl.org/rss/1.0/modules/taxonomy/')) + && $self->within_element($self->generate_ns_name("item",$self->{namespace_map}->{'rss10'})) + && $self->current_element eq 'Bag' + && $el eq 'li') { + #print "taxo: ", $attribs{'resource'},"\n"; + push(@{$self->{'items'}->[$self->{num_items}-1]->{'taxo'}},$attribs{'resource'}); + $self->{'modules'}->{'http://purl.org/rss/1.0/modules/taxonomy/'} = 'taxo'; + + # beginning of taxo li in channel element + } elsif ($self->within_element($self->generate_ns_name("topics",'http://purl.org/rss/1.0/modules/taxonomy/')) + && $self->within_element($self->generate_ns_name("channel",$self->{namespace_map}->{'rss10'})) + && $self->current_element eq 'Bag' + && $el eq 'li') { + push(@{$self->{'channel'}->{'taxo'}},$attribs{'resource'}); + $self->{'modules'}->{'http://purl.org/rss/1.0/modules/taxonomy/'} = 'taxo'; + } + # beginning of a channel element that stores its info in rdf:resource + elsif ( $self->namespace($el) and + exists( $rdf_resource_fields{ $self->namespace($el) } ) and + exists( $rdf_resource_fields{ $self->namespace($el) }{ $el } ) and + $self->current_element eq 'channel' ) + { + my $ns = $self->namespace( $el ); + + if ( $ns eq $self->{rss_namespace} ) { + $self->{channel}->{$el} = $attribs{resource}; + } + else { + $self->{channel}->{$ns}->{$el} = $attribs{resource}; + # add short cut + # + if ( exists( $modules->{ $ns } ) ) { + $ns = $modules->{ $ns }; + $self->{channel}->{$ns}->{$el} = $attribs{resource}; + } + } + } + # beginning of an item element that stores its info in rdf:resource + elsif ( $self->namespace($el) and + exists( $rdf_resource_fields{ $self->namespace($el) } ) and + exists( $rdf_resource_fields{ $self->namespace($el) }{ $el } ) and + $self->current_element eq 'item' ) + { + my $ns = $self->namespace( $el ); + + if ( $ns eq $self->{rss_namespace} ) { + $self->{'items'}->[$self->{num_items}-1]->{ $el } = $attribs{resource}; + } else { + $self->{'items'}->[$self->{num_items}-1]->{$ns}->{ $el } = $attribs{resource}; + + # add short cut + # + if ( exists( $modules->{ $ns } ) ) { + $ns = $modules->{ $ns }; + $self->{'items'}->[$self->{num_items}-1]->{$ns}->{ $el } = $attribs{resource}; + } + } + } +} + +sub append { + my($self, $inside, $cdata) = @_; + + my $ns = $self->namespace($self->current_element); + + # If it's in the default RSS 1.0 namespace + if ($ns eq 'http://purl.org/rss/1.0/') { + #$self->{'items'}->[$self->{num_items}-1]->{$self->current_element} .= $cdata; + $inside->{$self->current_element} .= $cdata; + } + + # If it's in another namespace + #$self->{'items'}->[$self->{num_items}-1]->{$ns}->{$self->current_element} .= $cdata; + $inside->{$ns}->{$self->current_element} .= $cdata; + + # If it's in a module namespace, provide a friendlier prefix duplicate + #$modules->{$ns} and $self->{'items'}->[$self->{num_items}-1]->{$modules->{$ns}}->{$self->current_element} .= $cdata; + $modules->{$ns} and $inside->{$modules->{$ns}}->{$self->current_element} .= $cdata; + + return $inside; +} + +sub _auto_add_modules { + my $self = shift; + + for my $ns (keys %{$self->{namespaces}}) { + # skip default namespaces + next if $ns eq "rdf" || $ns eq "#default" + || exists $self->{modules}{ $self->{namespaces}{$ns} }; + $self->add_module(prefix => $ns, uri => $self->{namespaces}{$ns}) + } + + $self; +} + +sub parse { + my $self = shift; + $self->_initialize((%$self)); + $self->SUPER::parse(shift); + $self->_auto_add_modules if $AUTO_ADD; + $self->{version} = $self->{_internal}->{version}; +} + +sub parsefile { + my $self = shift; + $self->_initialize((%$self)); + $self->SUPER::parsefile(shift); + $self->_auto_add_modules if $AUTO_ADD; + $self->{version} = $self->{_internal}->{version}; +} + +sub save { + my ($self,$file) = @_; + open(OUT,">$file") || croak "Cannot open file $file for write: $!"; + print OUT $self->as_string; + close OUT; +} + +sub strict { + my ($self,$value) = @_; + $self->{'strict'} = $value; +} + +sub AUTOLOAD { + my $self = shift; + my $type = ref($self) || croak "$self is not an object\n"; + my $name = $AUTOLOAD; + $name =~ s/.*://; + return if $name eq 'DESTROY'; + + croak "Unregistered entity: Can't access $name field in object of class $type" + unless (exists $self->{$name}); + + # return reference to RSS structure + if (@_ == 1) { + return $self->{$name}->{$_[0]} if defined $self->{$name}->{$_[0]}; + + # we're going to set values here + } elsif (@_ > 1) { + my %hash = @_; + my $_REQ; + + # make sure we have required elements and correct lengths + if ($self->{'strict'}) { + ($self->{version} eq '0.9') + ? ($_REQ = $_REQ_v0_9) + : ($_REQ = $_REQ_v0_9_1); + } + + # store data in object + foreach my $key (keys(%hash)) { + if ($self->{'strict'}) { + my $req_element = $_REQ->{$name}->{$key}; + confess "$key cannot exceed " . $req_element->[1] . " characters in length" + if defined $req_element->[1] && length($hash{$key}) > $req_element->[1]; + } + $self->{$name}->{$key} = $hash{$key}; + } + + # return value + return $self->{$name}; + + # otherwise, just return a reference to the whole thing + } else { + return $self->{$name}; + } + return 0; + + # make sure we have all required elements + #foreach my $key (keys(%{$_REQ->{$name}})) { + #my $element = $_REQ->{$name}->{$key}; + #croak "$key is required in $name" + #if ($element->[0] == 1) && (!defined($hash{$key})); + #croak "$key cannot exceed ".$element->[1]." characters in length" + #unless length($hash{$key}) <= $element->[1]; + #} +} + +# the code here is a minorly tweaked version of code from +# Matts' rssmirror.pl script +# +my %entity = ( + nbsp => " ", + iexcl => "¡", + cent => "¢", + pound => "£", + curren => "¤", + yen => "¥", + brvbar => "¦", + sect => "§", + uml => "¨", + copy => "©", + ordf => "ª", + laquo => "«", + not => "¬", + shy => "­", + reg => "®", + macr => "¯", + deg => "°", + plusmn => "±", + sup2 => "²", + sup3 => "³", + acute => "´", + micro => "µ", + para => "¶", + middot => "·", + cedil => "¸", + sup1 => "¹", + ordm => "º", + raquo => "»", + frac14 => "¼", + frac12 => "½", + frac34 => "¾", + iquest => "¿", + Agrave => "À", + Aacute => "Á", + Acirc => "Â", + Atilde => "Ã", + Auml => "Ä", + Aring => "Å", + AElig => "Æ", + Ccedil => "Ç", + Egrave => "È", + Eacute => "É", + Ecirc => "Ê", + Euml => "Ë", + Igrave => "Ì", + Iacute => "Í", + Icirc => "Î", + Iuml => "Ï", + ETH => "Ð", + Ntilde => "Ñ", + Ograve => "Ò", + Oacute => "Ó", + Ocirc => "Ô", + Otilde => "Õ", + Ouml => "Ö", + times => "×", + Oslash => "Ø", + Ugrave => "Ù", + Uacute => "Ú", + Ucirc => "Û", + Uuml => "Ü", + Yacute => "Ý", + THORN => "Þ", + szlig => "ß", + agrave => "à", + aacute => "á", + acirc => "â", + atilde => "ã", + auml => "ä", + aring => "å", + aelig => "æ", + ccedil => "ç", + egrave => "è", + eacute => "é", + ecirc => "ê", + euml => "ë", + igrave => "ì", + iacute => "í", + icirc => "î", + iuml => "ï", + eth => "ð", + ntilde => "ñ", + ograve => "ò", + oacute => "ó", + ocirc => "ô", + otilde => "õ", + ouml => "ö", + divide => "÷", + oslash => "ø", + ugrave => "ù", + uacute => "ú", + ucirc => "û", + uuml => "ü", + yacute => "ý", + thorn => "þ", + yuml => "ÿ", + ); + +my $entities = join('|', keys %entity); + +sub encode { + my ($self, $text) = @_; + return $text unless $self->{'encode_output'}; + + my $encoded_text = ''; + + while ( $text =~ s/(.*?)(\<\!\[CDATA\[.*?\]\]\>)//s ) { + $encoded_text .= encode_text($1) . $2; + } + $encoded_text .= encode_text($text); + + return $encoded_text; +} + +sub encode_text { + my $text = shift; + + $text =~ s/&(?!(#[0-9]+|#x[0-9a-fA-F]+|\w+);)/&/g; + $text =~ s/&($entities);/$entity{$1}/g; + $text =~ s/</</g; + + return $text; +} + +1; +__END__ + +=head1 NAME + +XML::RSS - creates and updates RSS files + +=head1 SYNOPSIS + + # create an RSS 1.0 file (http://purl.org/rss/1.0/) + use XML::RSS; + my $rss = new XML::RSS (version => '1.0'); + $rss->channel( + title => "freshmeat.net", + link => "http://freshmeat.net", + description => "the one-stop-shop for all your Linux software needs", + dc => { + date => '2000-08-23T07:00+00:00', + subject => "Linux Software", + creator => 'scoop****@fresh*****', + publisher => 'scoop****@fresh*****', + rights => 'Copyright 1999, Freshmeat.net', + language => 'en-us', + }, + syn => { + updatePeriod => "hourly", + updateFrequency => "1", + updateBase => "1901-01-01T00:00+00:00", + }, + taxo => [ + 'http://dmoz.org/Computers/Internet', + 'http://dmoz.org/Computers/PC' + ] + ); + + $rss->image( + title => "freshmeat.net", + url => "http://freshmeat.net/images/fm.mini.jpg", + link => "http://freshmeat.net", + dc => { + creator => "G. Raphics (graph****@fresh*****)", + }, + ); + + $rss->add_item( + title => "GTKeyboard 0.85", + link => "http://freshmeat.net/news/1999/06/21/930003829.html", + description => "GTKeyboard is a graphical keyboard that ...", + dc => { + subject => "X11/Utilities", + creator => "David Allen (s2mda****@titan*****)", + }, + taxo => [ + 'http://dmoz.org/Computers/Internet', + 'http://dmoz.org/Computers/PC' + ] + ); + + $rss->textinput( + title => "quick finder", + description => "Use the text input below to search freshmeat", + name => "query", + link => "http://core.freshmeat.net/search.php3", + ); + + # Optionally mixing in elements of a non-standard module/namespace + + $rss->add_module(prefix=>'my', uri=>'http://purl.org/my/rss/module/'); + + $rss->add_item( + title => "xIrc 2.4pre2", + link => "http://freshmeat.net/projects/xirc/", + description => "xIrc is an X11-based IRC client which ...", + my => { + rating => "A+", + category => "X11/IRC", + }, + ); + + $rss->add_item (title=>$title, link=>$link, slash=>{ topic=>$topic }); + + # create an RSS 2.0 file + use XML::RSS; + my $rss = new XML::RSS (version => '2.0'); + $rss->channel(title => 'freshmeat.net', + link => 'http://freshmeat.net', + language => 'en', + description => 'the one-stop-shop for all your Linux software needs', + rating => '(PICS-1.1 "http://www.classify.org/safesurf/" 1 r (SS~~000 1))', + copyright => 'Copyright 1999, Freshmeat.net', + pubDate => 'Thu, 23 Aug 1999 07:00:00 GMT', + lastBuildDate => 'Thu, 23 Aug 1999 16:20:26 GMT', + docs => 'http://www.blahblah.org/fm.cdf', + managingEditor => 'scoop****@fresh*****', + webMaster => 'scoop****@fresh*****' + ); + + $rss->image(title => 'freshmeat.net', + url => 'http://freshmeat.net/images/fm.mini.jpg', + link => 'http://freshmeat.net', + width => 88, + height => 31, + description => 'This is the Freshmeat image stupid' + ); + + $rss->add_item(title => "GTKeyboard 0.85", + # creates a guid field with permaLink=true + permaLink => "http://freshmeat.net/news/1999/06/21/930003829.html", + # alternately creates a guid field with permaLink=false + # guid => "gtkeyboard-0.85 + enclosure => { url=>$url, type=>"application/x-bittorrent" }, + description => 'blah blah' +); + + $rss->textinput(title => "quick finder", + description => "Use the text input below to search freshmeat", + name => "query", + link => "http://core.freshmeat.net/search.php3" + ); + + # create an RSS 0.9 file + use XML::RSS; + my $rss = new XML::RSS (version => '0.9'); + $rss->channel(title => "freshmeat.net", + link => "http://freshmeat.net", + description => "the one-stop-shop for all your Linux software needs", + ); + + $rss->image(title => "freshmeat.net", + url => "http://freshmeat.net/images/fm.mini.jpg", + link => "http://freshmeat.net" + ); + + $rss->add_item(title => "GTKeyboard 0.85", + link => "http://freshmeat.net/news/1999/06/21/930003829.html" + ); + + $rss->textinput(title => "quick finder", + description => "Use the text input below to search freshmeat", + name => "query", + link => "http://core.freshmeat.net/search.php3" + ); + + # print the RSS as a string + print $rss->as_string; + + # or save it to a file + $rss->save("fm.rdf"); + + # insert an item into an RSS file and removes the oldest item if + # there are already 15 items + my $rss = new XML::RSS; + $rss->parsefile("fm.rdf"); + pop(@{$rss->{'items'}}) if (@{$rss->{'items'}} == 15); + $rss->add_item(title => "MpegTV Player (mtv) 1.0.9.7", + link => "http://freshmeat.net/news/1999/06/21/930003958.html", + mode => 'insert' + ); + + # parse a string instead of a file + $rss->parse($string); + + # print the title and link of each RSS item + foreach my $item (@{$rss->{'items'}}) { + print "title: $item->{'title'}\n"; + print "link: $item->{'link'}\n\n"; + } + + # output the RSS 0.9 or 0.91 file as RSS 1.0 + $rss->{output} = '1.0'; + print $rss->as_string; + +=head1 DESCRIPTION + +This module provides a basic framework for creating and maintaining +RDF Site Summary (RSS) files. This distribution also contains many +examples that allow you to generate HTML from an RSS, convert between +0.9, 0.91, and 1.0 version, and other nifty things. +This might be helpful if you want to include news feeds on your Web +site from sources like Slashot and Freshmeat or if you want to syndicate +your own content. + +XML::RSS currently supports 0.9, 0.91, and 1.0 versions of RSS. +See http://my.netscape.com/publish/help/mnn20/quickstart.html +for information on RSS 0.91. See http://my.netscape.com/publish/help/ +for RSS 0.9. See http://purl.org/rss/1.0/ for RSS 1.0. + +RSS was originally developed by Netscape as the format for +Netscape Netcenter channels, however, many Web sites have since +adopted it as a simple syndication format. With the advent of RSS 1.0, +users are now able to syndication many different kinds of content +including news headlines, threaded measages, products catalogs, etc. + +=head1 METHODS + +=over 4 + +=item new XML::RSS (version=>$version, encoding=>$encoding, +output=>$output) + +Constructor for XML::RSS. It returns a reference to an XML::RSS object. +You may also pass the RSS version and the XML encoding to use. The default +B<version> is 1.0. The default B<encoding> is UTF-8. You may also specify +the B<output> format regarless of the input version. This comes in handy +when you want to convert RSS between versions. The XML::RSS modules +will convert between any of the formats. If you set <encode_output> XML::RSS +will make sure to encode any entities in generated RSS. This is now on by default. + +=item add_item (title=>$title, link=>$link, description=>$desc, mode=>$mode) + +Adds an item to the XML::RSS object. B<mode> and B<description> are optional. +The default B<mode> +is append, which adds the item to the end of the list. To insert an item, set the mode +to B<insert>. + +The items are stored in the array @{$obj->{'items'}} where +B<$obj> is a reference to an XML::RSS object. + +=item as_string; + +Returns a string containing the RSS for the XML::RSS object. This +method will also encode special characters along the way. + +=item channel (title=>$title, link=>$link, description=>$desc, +language=>$language, rating=>$rating, copyright=>$copyright, +pubDate=>$pubDate, lastBuildDate=>$lastBuild, docs=>$docs, +managingEditor=>$editor, webMaster=>$webMaster) + + +Channel information is required in RSS. The B<title> cannot +be more the 40 characters, the B<link> 500, and the B<description> +500 when outputting RSS 0.9. B<title>, B<link>, and B<description>, +are required for RSS 1.0. B<language> is required for RSS 0.91. +The other parameters are optional for RSS 0.91 and 1.0. + +To retreive the values of the channel, pass the name of the value +(title, link, or description) as the first and only argument +like so: + +$title = channel('title'); + +=item image (title=>$title, url=>$url, link=>$link, width=>$width, +height=>$height, description=>$desc) + +Adding an image is not required. B<url> is the URL of the +image, B<link> is the URL the image is linked to. B<title>, B<url>, +and B<link> parameters are required if you are going to +use an image in your RSS file. The remaining image elements are used +in RSS 0.91 or optionally imported into RSS 1.0 via the rss091 namespace. + +The method for retrieving the values for the image is the same as it +is for B<channel()>. + +=item parse ($string) + +Parses an RDF Site Summary which is passed into B<parse()> as the first parameter. + +See the add_module() method for instructions on automatically adding +modules as a string is parsed. + +=item parsefile ($file) + +Same as B<parse()> except it parses a file rather than a string. + +See the add_module() method for instructions on automatically adding +modules as a string is parsed. + +=item save ($file) + +Saves the RSS to a specified file. + +=item strict ($boolean) + +If it's set to 1, it will adhere to the lengths as specified +by Netscape Netcenter requirements. It's set to 0 by default. +Use it if the RSS file you're generating is for Netcenter. +strict will only work for RSS 0.9 and 0.91. Do not use it for +RSS 1.0. + +=item textinput (title=>$title, description=>$desc, name=>$name, link=>$link); + +This RSS element is also optional. Using it allows users to submit a Query +to a program on a Web server via an HTML form. B<name> is the HTML form name +and B<link> is the URL to the program. Content is submitted using the GET +method. + +Access to the B<textinput> values is the the same as B<channel()> and +B<image()>. + +=item add_module(prefix=>$prefix, uri=>$uri) + +Adds a module namespace declaration to the XML::RSS object, allowing you +to add modularity outside of the the standard RSS 1.0 modules. At present, +the standard modules Dublin Core (dc) and Syndication (syn) are predefined +for your convenience. The Taxonomy (taxo) module is also internally supported. + +The modules are stored in the hash %{$obj->{'modules'}} where +B<$obj> is a reference to an XML::RSS object. + +If you want to automatically add modules that the parser finds in +namespaces, set the $XML::RSS::AUTO_ADD variable to a true value. By +default the value is false. (N.B. AUTO_ADD only updates the +%{$obj->{'modules'}} hash. It does not provide the other benefits +of using add_module.) + + + +=back + +=head2 RSS 1.0 MODULES + +XML-Namespace-based modularization affords RSS 1.0 compartmentalized +extensibility. The only modules that ship "in the box" with RSS 1.0 +are Dublin Core (http://purl.org/rss/1.0/modules/dc/), Syndication +(http://purl.org/rss/1.0/modules/syndication/), and Taxonomy +(http://purl.org/rss/1.0/modules/taxonomy/). Consult the appropriate +module's documentation for further information. + +Adding items from these modules in XML::RSS is as simple as adding other +attributes such as title, link, and description. The only difference +is the compartmentalization of their key/value paris in a second-level +hash. + + $rss->add_item (title=>$title, link=>$link, dc=>{ subject=>$subject, creator=>$creator }); + +For elements of the Dublin Core module, use the key 'dc'. For elements +of the Syndication module, 'syn'. For elements of the Taxonomy module, +'taxo'. These are the prefixes used in the RSS XML document itself. +They are associated with appropriate URI-based namespaces: + + syn: http://purl.org/rss/1.0/modules/syndication/ + dc: http://purl.org/dc/elements/1.1/ + taxo: http://purl.org/rss/1.0/modules/taxonomy/ + +Dublin Core elements may occur in channel, image, item(s), and textinput +-- albeit uncomming to find them under image and textinput. Syndication +elements are limited to the channel element. Taxonomy elements can occur +in the channel or item elements. + +Access to module elements after parsing an RSS 1.0 document using +XML::RSS is via either the prefix or namespace URI for your convenience. + + print $rss->{items}->[0]->{dc}->{subject}; + + or + + print $rss->{items}->[0]->{'http://purl.org/dc/elements/1.1/'}->{subject}; + +XML::RSS also has support for "non-standard" RSS 1.0 modularization at +the channel, image, item, and textinput levels. Parsing an RSS document +grabs any elements of other namespaces which might appear. XML::RSS +also allows the inclusion of arbitrary namespaces and associated elements +when building RSS documents. + +For example, to add elements of a made-up "My" module, first declare the +namespace by associating a prefix with a URI: + + $rss->add_module(prefix=>'my', uri=>'http://purl.org/my/rss/module/'); + +Then proceed as usual: + + $rss->add_item (title=>$title, link=>$link, my=>{ rating=>$rating }); + +Non-standard namespaces are not, however, currently accessible via a simple +prefix; access them via their namespace URL like so: + + print $rss->{items}->[0]->{'http://purl.org/my/rss/module/'}->{rating}; + +XML::RSS will continue to provide built-in support for standard RSS 1.0 +modules as they appear. + +=head1 SOURCE AVAILABILITY + +This source is part of a SourceForge project which always has the +latest sources in CVS, as well as all of the previous releases. + + https://sourceforge.net/projects/perl-rss/ + http://perl-rss.sourceforge.net + +If, for some reason, I disappear from the world, one of the other +members of the project can shepherd this module appropriately. + +=head1 AUTHOR + + Original code: Jonathan Eisenzopf <eisen****@pobox*****> + Further changes: Rael Dornfest <rael****@oreil*****> + + Currently: perl-rss project (http://perl-rss.sourceforge.net) + + +=head1 COPYRIGHT + +Copyright (c) 2001 Jonathan Eisenzopf <eisen****@pobox*****> +and Rael Dornfest <rael****@oreil*****> + +XML::RSS is free software. You can redistribute it and/or +modify it under the same terms as Perl itself. + +=head1 CREDITS + + Wojciech Zwiefka <wojte****@cnt*****> + Chris Nandor <pudge****@pobox*****> + Jim Hebert <jim****@cosou*****> + Randal Schwartz <merly****@stone*****> + rjp****@brows***** + Kellan <kella****@prote*****> + Rafe Colburn <rafe****@rafe*****> + Adam Trickett <adam.****@btint*****> + Aaron Straup Cope <asc****@viney*****> + Ian Davis <iand****@inter*****> + rayg****@varch***** + +=head1 SEE ALSO + +perl(1), XML::Parser(3). + +=cut
![http://freshmeat.net/images/fm.mini.jpg",](http://freshmeat.net/images/fm.mini.jpg",){kind=link}
