#!/usr/bin/perl
# Time-stamp: "2024-11-14 05:15:26 MST"
# See http://www.interglacial.com/rss/ for info on RSS feeds

use strict;
use constant DEBUG => $ENV{'MAILTO'} ? 0 : 3;
#sub XML::RSS::SimpleGen::DEBUG () {6};
use XML::RSS::SimpleGen 12;

my $nombre = 'rotten_library';
my $url = q<http://www.rotten.com/library/whatsnew/>;
rss_new(   "http://www.rotten.com/library/" , "New items at the Rotten Library" );
rss_weekly();
rss_webmaster('sburke@pobox.com');
rss_self_url(      "http://interglacial.com/rss/$nombre.rss" );
rss_generator_url( "http://interglacial.com/rss/$nombre.pl" );
rss_livejournal( 'rotten_library' );
rss_item_limit(20);

get_url($url);
rss_item( "http://deadpool.rotten.com/rss.html", "More Rotten RSS feeds" );
my $count = 0;
while(
  m{
    <li>\s*<a\s+href="(/library/[^"<>]+)">(.*?)</a>   # "
  }xg
) {
  my($u,$t) = ( "http://www.rotten.com$1", $2 );
  rss_item($u, $t);
  ++$count;
  DEBUG and print "$u => $t\n";
}
$count or die "$0: No items found at $url?!\n{{\n$_\n}}\n\nAborting";
rss_save("$nombre.rss");
DEBUG and print "Done.\n";
exit;
__END__