12 ) {
$nextmonth = 1 ;
$nextyear = $Y + 1 ;
}
print "" ;
print "<" ;
print " date:" . $Y . "/" . $M ." " ;
print ">" ;
print " " ;
print "Today" ;
print "" ;
?>
| Su | Mo | Tu | We | Th | Fr | Sa |
" ;
for ($week = 0 ; $week <= 6 ; $week++) {
if ( $d == 1 & strftime("%w", mktime(0,0,0,$M,$d,$Y)) > $week ) {
print " | " ;
} else if ( $d > $lastday ) {
print " | " ;
} else if ( $Y == $tY & $M == $tM & $d == $tD ) {
$url=$U . "?Y=" . $Y . "&M=" . $M . "&D=" . $d ;
print "" . $d . " | " ;
$d++ ;
} else if ( $Y > $tY ) {
print "" . $d . " | " ;
$d++ ;
} else if ( $Y == $tY & $M > $tM ) {
print "" . $d . " | " ;
$d++ ;
} else if ( $Y == $tY & $M == $tM & $d > $tD ) {
print "" . $d . " | " ;
$d++ ;
} else {
$url=$U . "?Y=" . $Y . "&M=" . $M . "&D=" . $d ;
print "" . $d . " | " ;
$d++ ;
}
}
print "" ;
}
?>