";
$efont="";
$pdone=0;
$ndone=0;
$pcc=0;
$ncc=0;
$c="";
$cyear=0;
$md=0;
// begin code
$prefix="$dir$prefix";
$year=date("Y",time());
$month=date("m",time());
$day=date("d",time());
$tday="$year$month$day";
$c=(@$_GET["c"]);
if ($c==NULL) {$c="$year-$month-$day";}
$a=split("-",$c);
$cyear=$a[0];
if ($cyear<1990) {$cyear=1990;}
if ($cyear>$year) {$cyear=$year;}
$cmonth=$a[1];
$cday=$a[2];
function unf($n) {
if ($n=="01") {$n=1;}
if ($n=="02") {$n=2;}
if ($n=="03") {$n=3;}
if ($n=="04") {$n=4;}
if ($n=="05") {$n=5;}
if ($n=="06") {$n=6;}
if ($n=="07") {$n=7;}
if ($n=="08") {$n=8;}
if ($n=="09") {$n=9;}
return $n;
}
$cday=unf($cday);
$cmonth=unf($cmonth);
function mday($xm) {
if ($xm==1 || $xm==3 || $xm==5 || $xm==7 || $xm==8 || $xm==10 || $xm==12) {$md=31;}
if ($xm==4 || $xm==6 || $xm==9 || $xm==11) {$md=30;}
if ($xm==2) {
if ($cyear==1996 || $cyear==2000 || $cyear==2004 || $cyear==2008) {$md=29;} else {$md=28;}
}
return $md;
}
function comic($fy,$fm,$fd) {
if ($fm==1) {$fm="01";}
if ($fm==2) {$fm="02";}
if ($fm==3) {$fm="03";}
if ($fm==4) {$fm="04";}
if ($fm==5) {$fm="05";}
if ($fm==6) {$fm="06";}
if ($fm==7) {$fm="07";}
if ($fm==8) {$fm="08";}
if ($fm==9) {$fm="09";}
if ($fd==1) {$fd="01";}
if ($fd==2) {$fd="02";}
if ($fd==3) {$fd="03";}
if ($fd==4) {$fd="04";}
if ($fd==5) {$fd="05";}
if ($fd==6) {$fd="06";}
if ($fd==7) {$fd="07";}
if ($fd==8) {$fd="08";}
if ($fd==9) {$fd="09";}
return "$fy$fm$fd";
}
$pday=unf($cday);
$pmonth=unf($cmonth);
$pyear=$cyear;
$nday=unf($cday);
$nmonth=unf($cmonth);
$nyear=$cyear;
while ($pdone<1 && $pcc!=$first) {
$pday--;
if ($pday==0) { $pmonth--; $pday=mday($pmonth); }
if ($pmonth==0) { $pmonth=12; $pyear--; $pday=mday($pmonth); }
$pcc=comic($pyear,$pmonth,$pday);
$pccc="$prefix$pcc$format";
if (file_exists($pccc) || $pcc<=$first) {$pdone=1;}
if ($format2!=NULL && $pdone<1) {
$pccc="$prefix$pcc$format2";
if (file_exists($pccc) || $pcc<=$first) {$pdone=1;}
}
}
while ($ndone<1 && $ncc<$tday) {
$nday++;
$nmday=mday($nmonth);
if ($nday>$nmday) { $nmonth++; $nday=1; }
if ($nmonth==13) { $nmonth=1; $nyear++; $nday=1; }
$ncc=comic($nyear,$nmonth,$nday);
$nccc="$prefix$ncc$format";
if (file_exists($nccc) || $ncc>$tday) {$ndone=1;}
if ($format2!=NULL && $ndone<1) {
$nccc="$prefix$ncc$format2";
if (file_exists($nccc) || $ncc>$tday) {$ndone=1;}
}
}
$cc=comic($cyear,$cmonth,$cday);
$comic="$prefix$cc$format";
print "$title - $cc";
$month=unf($month);
$day=unf($day);
if ($cc>$first) {print "first ";}
if ($cc>$first) {print "previous ";}
if ($cc<$tday) {print "next ";}
if ($cc<$tday) {print "today";}
print "
";
if (file_exists($comic)) {
print "
";
} else {
print "
$font no comic for today, showing previous";
}
print "
";
if ($cc>$first) {print "first ";}
if ($cc>$first) {print "previous ";}
if ($cc<$tday) {print "next ";}
if ($cc<$tday) {print "today";}
print "$efont";
?>