[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Commit-womb] gnumaint gnumaint
From: |
Karl Berry |
Subject: |
[Commit-womb] gnumaint gnumaint |
Date: |
Mon, 19 Feb 2007 00:07:04 +0000 |
CVSROOT: /sources/womb
Module name: gnumaint
Changes by: Karl Berry <karl> 07/02/19 00:07:04
Modified files:
. : gnumaint
Log message:
sortable timestamp
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/gnumaint?cvsroot=womb&r1=1.31&r2=1.32
Patches:
Index: gnumaint
===================================================================
RCS file: /sources/womb/gnumaint/gnumaint,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- gnumaint 18 Feb 2007 22:42:26 -0000 1.31
+++ gnumaint 19 Feb 2007 00:07:04 -0000 1.32
@@ -1,6 +1,6 @@
#!/usr/bin/env tclsh
# gnumaint - GNU maintainers file maintenance (/gd/gnuorg/maintainers)
-# $Id: gnumaint,v 1.31 2007/02/18 22:42:26 karl Exp $
+# $Id: gnumaint,v 1.32 2007/02/19 00:07:04 karl Exp $
#
# Copyright 2007 Free Software Foundation Inc.
#
@@ -117,7 +117,7 @@
proc add_to_log {text} {
global log_file
set flog [open $log_file a]
- puts $flog "[exec date +%Y%m%d.%H%M%S.%Z]: $text"
+ puts $flog "[timestamp]: $text"
close $flog
}
@@ -341,7 +341,7 @@
variable report_file
set fout [open $report_file a]
- set line "last_sendemail: [timestamp]"
+ set line "last_sendemail|[timestamp]"
puts $fout $line
close $fout
@@ -374,7 +374,7 @@
}
proc timestamp {} {
- return [clock format [clock seconds]]
+ return [exec date +%Y%m%d.%H%M%S.%Z]
}
#