Author: vip
Date: Sat Jun 2 20:00:24 2007
New Revision: 8633
Modified:
toys/stbr/stbr.tcl
Log:
- proper date format
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Sat Jun 2 20:00:24 2007
@@ -60,7 +60,7 @@
if {([string match th-test $first] || [string match noupgrade $first])} {set
first "test-build"}
if {([string match th-ready $first])} {set first "upgrade"}
set time [clock seconds]
-set date [clock format $time -format "%d.%m.%Y %H:%M:%S"]
+set date [clock format $time -format "%Y-%m-%d %H:%M:%S"]
foreach spec $specs {
if {([string match *:* $spec])} {set splited [split $spec ":"];set spec
[lindex $splited 0]; set branch [lindex $splited 1]} {set branch "HEAD"}
if {!([string match *.spec $spec])} { append spec ".spec"}
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
