## # Código fuente LuCAS V3 # Copyright (C) 1999 Hispalinux / Juan J. Amor / Ismael Olea # Programa bajo la proteccion de GPL 2.0 ## # $Id: Icabecera.wml,v 1.8 2004/03/03 21:43:25 olea Exp $ ## #use wml::std::tags #use wml::std::case @dow = ( 'Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat' ); @moy = ( 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec' ); # Actualizado para el anio 2000 # por Juan J. Amor, a 2 de enero de 2000 sub ctime { # La rutina genera tiempos locales. Se supone que estamos en zona "MET" local($time) = @_[0]; local($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time); local $dosmil; # Y2K: No hace falta componer el anyo como hasta ahora: basta # sumar 1900 al valor devuelto en $year # if ($year >= 100) { $year-=100; } # # if ($year >= 47) { $dosmil=19; } # else { $dosmil=20; } # $year+=1900; local($str) = sprintf("%s, %d %s %d %02d:%02d:%02d MET", $dow[$wday], $mday, $moy[$mon], $year, $hour, $min, $sec); return $str; } # #
TLDP-ES: $(titulo)