This isn’t perfect (seems to fail on some feeds), but mostly works for me:<\/p>\n
This isn’t perfect (seems to fail on some feeds), but mostly works for me: #!\/usr\/bin\/perl -w # cdf2rss – converts CBC KlipFarm CDF to crude RSS # created by scruss on 02004\/11\/12 # RCS\/CVS: $Id: cdf2rss,v 1.3 2004\/11\/13 03:59:21 scruss Exp $ # takes one argument, a stream name. Currently known streams are: # # […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[7,10],"tags":[1096,187,605],"class_list":["post-1825","post","type-post","status-publish","format-standard","hentry","category-computers-suck","category-o-canada","tag-cbc","tag-perl","tag-rss"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/pQNZZ-tr","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/posts\/1825","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/comments?post=1825"}],"version-history":[{"count":0,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/posts\/1825\/revisions"}],"wp:attachment":[{"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/media?parent=1825"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/categories?post=1825"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/tags?post=1825"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\n#!\/usr\/bin\/perl -w
\n# cdf2rss - converts CBC KlipFarm CDF to crude RSS
\n# created by scruss on 02004\/11\/12
\n# RCS\/CVS: $Id: cdf2rss,v 1.3 2004\/11\/13 03:59:21 scruss Exp $
\n# takes one argument, a stream name. Currently known streams are:
\n#
\n# Arts Business Calgary Canada
\n# Edmonton Montreal Ottawa
\n# Science Sports Toronto
\n# Vancouver Winnipeg World
\n#
\n# returns a crude RSS 1.0 stream fashioned from the CBC CDF output.
\nuse strict;
\nuse integer;
\nuse XML::Simple;
\nuse XML::RSS;
\nuse LWP::Simple;
\nuse constant CDFURL => 'http:\/\/www.cbc.ca\/cdf\/servlet\/getCDF';
\nmy $cdf = get( join( '?lineup=', CDFURL, $ENV{'QUERY_STRING'} ) );
\nmy $xs = new XML::Simple;
\nmy $ref = $xs->XMLin($cdf);
\nmy $rss = new XML::RSS( version => '1.0' );
\n$rss->channel(
\n title => join( ' ', 'CBC', $ref->{category} ),
\n description => join( ' ', 'CBC', $ref->{category} ),
\n link => $ref->{href}
\n);
\nforeach my $cdf_item ( @{ $ref->{item} } ) {
\n my $tmp_abstract = $cdf_item->{abstract};
\n $tmp_abstract =~ s\/\s+\/ \/g;
\n $tmp_abstract =~ s\/^ \/\/;
\n $tmp_abstract =~ s\/ $\/\/;
\n $rss->add_item(
\n title => $cdf_item->{title},
\n link => $cdf_item->{href},
\n description => $tmp_abstract
\n );
\n}
\nprint \"Content-type: application\/xml+rss\n\n\", $rss->as_string;
\nexit;
\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"