my $html = <
EOF
HTML $html;
#my $cpc = $Tag->coolpickcode();
my $cpc = $Scratch->{cpc};
my $cptime;
my $ONE_DAY = 24 * 3600;
my @fullDays = ('Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday');
my $now = $Tag->fetchtime();
my $coolSec = 0;
my $year;
if( $cpc )
{
$coolSec = 1;
$year = substr( $cpc, 0, 4 );
my $month = substr( $cpc, 4, 2 );
my $day = substr( $cpc, 6, 2 );
$cptime = $Tag->maketime( 0, 0, 12, $day, $month, $year - 1900 );
}
else
{
$cptime = $now;
$cpc = $Tag->coolpickcode( $cptime );
$year = substr( $cpc, 0, 4 );
}
my $dow = $Tag->dayofweek( $cptime );
my $i;
for( $i = 0; $i < 7; $i++ )
{
my $delta = $dow - $i;
my $curDate = $cptime - ($delta * $ONE_DAY);
if( $curDate > $now )
{
$curDate -= 7 * $ONE_DAY;
}
my $code = $Tag->coolpickcode( $curDate );
if( $i == $dow )
{
if( $coolSec )
{
HTML $fullDays[$i] . ' ';
}
else
{
HTML "" . $fullDays[$i] . ' ';
}
}
else
{
HTML "" . $fullDays[$i] . ' ';
}
}
$html = <
EOF
HTML $html;
my $y;
for( $y = $year; $y >= 1999; $y-- )
{
HTML "$y ";
}
$html = <
EOF
HTML $html;
|
Provided by Joke A Day
P//EN">
The page cannot be found
...HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252">
The page cannot be found
|
|
The page you are looking for might have been removed, had its name changed, or is temporarily unavailable. |
Please try the following:
- If you typed the page address in the Address bar, make sure that it is spelled correctly.
- Open the
home page, and then look for links to the information you want.
- Click the Back button to try another link.
HTTP 404 - File not found
Internet Information Services
Technical Information (for support personnel)
|
|
Add Joke A Day to your web page
|
|