se llegaba a reservar tiempo de maquina, en un local de estudiantes.
Asi se hacia importante que el la distribucion de un dia estuviera
disponible, por eso el script se llama a si mismo con una fecha como
parametro,
el script al que llama esta declarado en una variable: $_PHP_LINK
y la fecha se pasa en el URL como $Day.
Se basa en emplear la funcion de linux 'cal', y luego se
saca de alli lo que nos interesa para llenar el calendario.
Requerimientos: Linux
Código: Seleccionar todo
"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio",
"Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre");
$WeekDays = array ( 0=> "Do", "Lu", "Ma", "Mi", "Ju", "Vi", "Sa");
$fontb = "" ;
$fonte = "";
if (!isset($Day))
{
$month = date ("n");
$year = date ("Y");
$Day = time();
}
else
{
$month = date ("n", $Day);
$year = date ("Y", $Day);
}
$output = `cal $month $year`;
$starter = date ("w", mktime (0, 0, 0, $month,1, $year));
$strings = split ("n", $output);
?>
Pequeí?±o Calendario
$fontb ".$meses[date ("n", $Day)].
" $fontb >>$fonte");
?>
n
");
$splited = split(" ", $strings[1]);
$i=0;
while (list ($k, $v) = each ($splited) )
{
if ($v!='')
print (" ".$WeekDays[$i]." n");
$i++;
}
print ("n"); // Aqui termino de imprimir la primera fila con los dias de la semana
print ("n");
for ($i=0; $i n");
}
$splited = split(" ",trim ($strings[2]));
while (list ($k, $v) = each ( $splited))
{
$color =($v==date('j', $Day))?"#E0E0E0":"#FFF6C0";
$DayForLink = mktime ( 0, 0, 0, $month, $v, $year );
$link = "$_PHP_LINK?Day=$DayForLink";
if ($v!='')
print ("".$v."n");
}
print ("n"); /*Aqui termino de imprimir la primera fila con los Numeros*/
$i=0;
while (list ($k, $v ) = each ($strings))
{
if ( $i++ > 2)
{
//print ("");
$lisbet = split (" ", $v);
while (list ($k1, $v1) = each ($lisbet))
{
$DayForLink = mktime ( 0, 0, 0, $month, $v1, $year );
$link = "$_PHP_LINK?Day=$DayForLink";
$color =($v1==date('j', $Day))?"#E0E0E0":"#FFF6C0";
if ($v1!='')
print (" ".$v1."n");
}
print ("n");
}
} /* Fin de la impresion de los dias del mes */
print ("");
?>
");
print (""); // bgcolor=e0e0e0
$next= mktime ( 0, 0, 0, date("n",$Day), date ('j', $Day), $year+1 );
$back=mktime ( 0, 0, 0, date("n",$Day), date ('j', $Day), $year -1 );
print (" $fontb $year $fontb >> $fonte");
print ("");
?>
Jr. Extension Validator - Jr. Styles Validator - 
