 |
freecell
|
jezzball
|
chat
|
solitaire
|
zinos
|
|
| ||||
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 = < 
|
|
|
Maintained by Dennis Cronin
Privacy Policy