##
# 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)