[Commit-womb] gnumaint gnumaint

[Karl Berry]

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]
 }
 
 #