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}
}
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
