#!/usr/bin/perl
use File::Copy;
require "blendcommon.cgi";
PrintHeader();
$|=1;
@monthname =
("january","february","march","april","may","june",
"july","august","september","october","november", "december");
($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$year += 1900;
$fullname = $dirwwwroot."/".$year.$monthname[$mon]."/heart.html";
print<<__EOQ__;
New Submissions
Welcome to the Blender of Love "Latest Works" page!
Here you can see the latest pieces that have been sent into
the Blender
...fresh, raw, uncensored--all of that!
(Poems listed in reverse chronological order.)
__EOQ__
if (! (-e $fullname)){ #link for last month
#since month is already zero based we don't have to subtract for number
if($mon == 0){
$mon = 12;
$year--;
}
if(length($mon) == 1) { $mon = "0".$mon;}
print <<__EOQ__;
Since it looks like the new Blender Digest isn't here yet, you
can browse
last month's entries instead.
__EOQ__
}