[Lxr-commits] CVS: lxr source,1.31,1.32
Brought to you by:
ajlittoz
|
From: Malcolm B. <mb...@us...> - 2002-07-29 01:23:06
|
Update of /cvsroot/lxr/lxr
In directory usw-pr-cvs1:/tmp/cvs-serv5372
Modified Files:
source
Log Message:
Apply patch [ 455555 ] date/time ISO8601. This makes source display
times in ISO format.
Index: source
===================================================================
RCS file: /cvsroot/lxr/lxr/source,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- source 18 Mar 2002 14:55:43 -0000 1.31
+++ source 29 Jul 2002 01:23:03 -0000 1.32
@@ -110,24 +110,12 @@
my $file_time = $files->getfiletime($dir.$node, $release);
return '-' unless defined($file_time);
-
+
my @t = gmtime($file_time);
-
- my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun",
- "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
my ($sec, $min, $hour, $mday, $mon, $year) = @t;
- $year += 1900;
- $mon = $months[$mon];
-
- my $one_hour = (60 * 60);
- my $six_months = $one_hour * 24 * int(365/2);
-
- if ($file_time <= ($current_time - $six_months) ||
- $file_time >= ($current_time + $one_hour)) {
- return sprintf("%s %2d %04d", $mon, $mday, $year);
- } else {
- return sprintf("%s %2d %02d:%02d", $mon, $mday, $hour, $min);
- }
+ return sprintf("%04d-%02d-%02d %02d:%02d:%02d",
+ $year + 1900,
+ $mon + 1, $mday, $hour, $min, $sec);
}
sub bgcolor {
|