#! /usr/bin/perl
##################################################################
$iss = $ENV{'QUERY_STRING'};
$month = `date +%m`;
$day = `date +%d`;
$year = `date +%y`;
$toc = "toc";
# Now with the program
###########################################################
# Has to output a Content-type
print "Content-type: text/html\n\n ";
unless ($iss) {¤t;}
unless ($iss == 1) {$toc="$toc$iss";}
print <<"HTML";
Overboard - Home
Frame capable browser only
HTML
exit;
sub current {
&issue (3, 27, 1);
&issue (4, 3, 2);
&issue (4, 10, 3);
&issue (4, 17, 4);
&issue (4, 24, 5);
&issue (5, 1, 6);
&issue (5, 8, 7);
&issue (5, 15, 8);
&issue (5, 22, 9);
&issue (5, 29, 10);
&issue (6, 5, 11);
&issue (6, 12, 12);
&issue (6, 19, 13);
}
sub issue {
local ($m, $d, $i) = @_;
ISSUE: {
if ($year != 98 || $month > 6) {$iss = 14; last ISSUE;}
if ($month > $m) {$iss = $i; last ISSUE;}
if ($month == $m && $day >= $d) {$iss = $i; last ISSUE;}
}
}