Now:
Hello, I must be going. And so I have, until the 13th of September.
In the meantime, here's a rerun of a Very Special Today.
#!/usr/bin/perl
print "Content-type: text/html\n\r\n\r";
unshift(@INC,"/usr/local/lib/perl5");
require "ctime.pl";
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $newday = sprintf("%2d%02d%02d", $year, $mon+1, $mday);
srand();
my @days = split(/\n/,`ls -1 /usr/local/apache/htdocs/potatoe.com/today/*/*/*/index.htmlf`);
my $rdays = @days;
#print "rdays = $rdays\n";
my $rday = (rand time) % $rdays;
#print "rday = $rday\n";
my $day = @days[$rday];
#print "day = $day\n";
my ($dayindex) = ($day =~ /^(.*)f$/);
my ($dayname) = ($day =~ /today\/(.*)\/index.*/);
my $title = `grep -i page_title $dayindex`;
my ($rtitle) = ($title =~ /value="(.*?)"/);
print <
$rtitle ($dayname)
EOQ
open(IN,$day) or die "cant open [$day]\n";
while () { print $_; }
close(IN);
#print "Location: /today/$day\n\r\n\r";
