## # Código fuente LuCAS V3 # Copyright (C) 1999 Hispalinux / Juan J. Amor / Ismael Olea # Programa bajo la proteccion de GPL 2.0 ## # $Id: Ipie.wml,v 1.5 2003/03/29 11:22:52 olea Exp $ ## #use wml::std::tags #use wml::std::case @dow = ( 'Dom', 'Lun', 'Mar', 'Mié', 'Jue', 'Vie', 'Sáb' ); @moy = ( 'enero', 'febrero', 'marzo', 'abril', 'mayo', 'junio', 'julio', 'agosto', 'septiembre', 'octubre', 'noviembre', 'diciembre' ); # Actualizado para el anio 2000 # por Juan J. Amor, a 2 de enero de 2000 sub etime { local($time) = @_[0]; local($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time); local $dosmil; # Y2K: No hace falta hacer windowing con el anyo: la rutina # localtime devuelve el numero de anyos desde 1900 asi que basta # con sumar 1900 a esta cifra devuelta # if ($year >= 100) { $year-=100; } # # if ($year >= 47) { $dosmil=19; } # else { $dosmil=20; } $year+=1900; # local($str) = sprintf("%s, %d %s %d%d %02d:%02d:%02d GMT", # $dow[$wday], $mday, $moy[$mon], $dosmil, $year, $hour, $min, $sec); # local($str) = sprintf("%s de %s de %d%d, %02d:%02d", # local($str) = sprintf("%s de %s de %d", $mday, $moy[$mon], $year); return $str; }

Última modificación: <:= &etime(time()) :>
Mantenida por: NOMBRE_COORDINADOR

Copyright © 1999-2002 Hispalinux. Los documentos publicados en estas páginas son propiedad de sus respectivos autores, y su distribución o reproducción en cualquier forma y por cualquier medio está restringida a los términos de la licencia GNU GPL salvo indicación expresa que afirme lo contrario.
Esta web es posible gracias a los servicios de alojamiento de Alójate.