SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Wed Nov 28 14:30:41 2007
New Revision: 9115

Modified:
   toys/stbr/stbr.tcl
Log:
- fix date in URL


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Wed Nov 28 14:30:41 2007
@@ -106,10 +106,14 @@
 }
 }
 exec sqlite $logfile "INSERT INTO stbr VALUES('$date','$nick');"
+set date [split $date " "]
+set day  [lindex $date 0]
+set hour [lindex $date 1]
+set space "%20"
 if {([string match test-build $first])} {
-	putserv "privmsg $chan :$nick: Sent $first request for $tspecs directly to builders. Visit http://stbr.pld-linux.org/?show=$nick&date=$date to track your request."
+	putserv "privmsg $chan :$nick: Sent $first request for $tspecs directly to builders. Visit http://stbr.pld-linux.org/?show=$nick&date=$day$space$hour to track your request."
 } {
-	putserv "privmsg $chan :$nick: Sent STBR Mail for $rspecs. An $first will be performed. Visit http://stbr.pld-linux.org/?show=$nick&date=$date to track your request."
+	putserv "privmsg $chan :$nick: Sent STBR Mail for $rspecs. An $first will be performed. Visit http://stbr.pld-linux.org/?show=$nick&date=$day$space$hour to track your request."
 }
 if {$cntr<1} {incr cntr} {utimer 30 "set cntr 0"; return 1}
 }