SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Wed Apr 29 22:42:46 2009
New Revision: 10343

Modified:
   toys/stbr/stbr.tcl
Log:
- add TODO about rlog


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Wed Apr 29 22:42:46 2009
@@ -1,4 +1,6 @@
 # Send To Builder Request TCL by shadzik at pld-linux.org
+# TODO
+# use rlog instead of log in cvs (gets faster info then get && log)
 
 set cmdbook "./scripts/cmdbook.txt"
 set logfile "/home/users/stbr/db/stbrlog.db"
@@ -170,7 +172,7 @@
 set first [lindex $arg 0]
 if {([string match help $first])} {help $nick; return 0}
 if {([string match url $first])} {url $nick; return 0}
-if {([string match dzieki $first]) || ([string match dziekuje $first]) || ([string match thx $first]) || ([string match tx $first]) || ([string match thnx $first])} {
+if {([string match dzieki $first]) || ([string match dziekuje $first]) || ([string match thx $first]) || ([string match tx $first]) || ([string match thnx $first]) || ([string match dzięki $first]) || ([string match dziękuję $first])} {
 	set answ [rthx]; putserv "privmsg $chan :$nick: $answ"; return 0
 }
 if {!([string match th $first] || [string match ti $first])} {