$rss->add_module(prefix=>'my', uri=>'http://purl.org/my/rss/module/'
+);

  $rss->add_item (title=>$title, link=>$link, my=>{ rating=>$rating })
+;
[download]

    # 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";
            }
        }
      }
[download]

BTW, you do realize that XML::RSS uses XML::Parser, which depends upon expat, which is not pure perl?

That snippet is in the as_rss_1_0 subroutine. I guess I could easily hack the module to work correctly, I was wondering if it was something someone else had conquered already and prevent tampering with the module as it sits in CPAN.

I misspoke earlier, as my requirements get longer to explain: I need modules that are PP or do not require the compilation of modules not already on my hosting platform. They will not add anymore perl modules in the common area so I am missing such essentials as DateTime and XML::LibXML.


Don
WHITEPAGES.COM | INC
Everything I've learned in life can be summed up in a small perl script!

Just a thought: Could you tear out the relevant code from XML::RSS and just paste it in your script? Ugly I know, but it sounds like you are in one of those "Yes we know a simple act can facilitate an increase in your productivity, but what we need to know is are you willing to do it against all odds and still meet labor standards?"

In fact that is what is in my code, however it only works for the RSS1 feeds, as documented. Feeds like itunes and yahoo, require RSS2 feeds. Thus, my problem.

Don
Everything I've learned in life can be summed up in a small perl script!

Sorry, no helpful advice here. Just an example where a desperate programmer can end up:

Torn directly from a programm, where I use XML::RSS, but want to include an extension tag and process that in an attached XSL (client-side).

            open (my $F, '>', $file) || die $file;
            my $feedstr = $rss->as_string();
            $feedstr =~ s#(<channel>)(\s*)#$1$2<my:file>$fname</my:fil
+e>$2#;
            die "Improper rss version in generation!?" unless
            $feedstr =~ s#<(rss version="2\.0")[^>]*>#<$1 xmlns:my="ht
+tp://$HOME/">#;
            $feedstr =~ s#\n#\n<?xml-stylesheet title="XSL_formatting"
+ type="text/xsl" href="rss.xsl"?>\n#;
            print $F $feedstr;
            close $F;
[download]

Conicidently I was just researching how to do itunes podcasts/rss feeds using perl, so I was pleased to see this node.

Based on the suggestions in this node, I have modified XML::RSS, I can send you my working copy if you want...

Currently creating @ a non accessably admin system
Outputting @ http://downloads.lsrfm.com/podcastrss/podcasts.xml

Update: BTW it is Pure perl so wont need complilation, tho you might need the prerequisies, Carp, XML::Parser, HTML::Entities

Indeed, I had to hack something up myself, I was trying not to modify the XML::RSS anymore than I needed to. I wanted to Sub-class it, but the method I wanted to override is not called as a method. It looks like Ask is slowly OOing the module, but hadn't gotten to that method call.

Some people have submitted patches but no one seems to have submitted patches + tests. I would like to see what you did, and combined with what others have done and my own hacks, maybe we can come up with some patches w/ tests that are acceptable.

Don
me@donshanks.com
Everything I've learned in life can be summed up in a small perl script!