#!/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 = 'neruda';
my $url = q<http://interglacial.com/~sburke/pub/prose/Neruda-_Preguntas.html>;
rss_new( $url , "Neruda- Preguntas" );
rss_daily();
rss_webmaster('sburke@pobox.com');
rss_language("es-CL");
rss_self_url(      "http://interglacial.com/rss/$nombre.rss" );
rss_generator_url( "http://interglacial.com/rss/$nombre.pl" );
rss_livejournal( 'nerudap' );
rss_item_limit(5);

my @dat;
{
 open my $Dat, "<", "neruda.dat" or die $!;
 @dat = <$Dat>;
 close($Dat);
}

my $granularity = 1 * 24 * 60 * 60;
my $epoch = 1167700000;
my $daynum = int( ($^T - $epoch) / $granularity ) % @dat;
$daynum = 0 if $^T < $epoch;

chomp(my $quote = $dat[$daynum]);
my($cit, $quote) = split "\t", $quote;

my $u = "$url#n$cit";
DEBUG and print "Daynum $daynum: $u $quote\n";
$quote =~ s<\|>< &\#x2028; >g;
rss_item($u, $quote);

rss_save("$nombre.rss");
DEBUG and print "Done.\n";
exit;
__END__