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