#use wml::std::info
Last update done on
<:
($device, $inode, $mode, $nlink, $uid, $gid, $rdev,
$size,
$access_time, $modif_time, $creat_time,
$block_size, $blocks)
= stat ($WML_SRC_FILENAME);
print &time2string($modif_time, 1);
:>
(last regeneration by
WML $(WML_VERSION) on <:
print &time2string(time(), 1);
:>).
$(Title)
$(Title)
<>
echoping is managed by Stéphane Bortzmeyer
<bortz@users.sourceforge.net>.
..Body>>
<:
sub time2string {
my ($time, $display_day) = @_;
my ($result);
my ($week_day_text);
my ($seconds, $minutes, $hours, $days, $month, $year, $week_day, $year_day, $is_dst) =
gmtime ($time);
$month_text = (January, February, March, April, May, June, July,
August, September, October, November, December)
[$month];
if ($display_day) {
$week_day_text = (Sunday, Monday, Tuesday, Wednesday, Thursday,
Friday, Saturday) [$week_day];
}
$year = $year + 1900;
$result = "$week_day_text $days $month_text $year";
return $result;
}
:>