SVN: toys/stbr/stbr.tcl
shadzik
shadzik at pld-linux.org
Wed Nov 28 14:30:41 CET 2007
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}
}
More information about the pld-cvs-commit
mailing list