Mercurial > hg > egg-tcls
changeset 5:5ac4fd6d011a
tj: Handle command arguments better.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Wed, 22 Jun 2011 19:56:31 +0300 |
| parents | 8c9049f2b2b0 |
| children | 026257a62da4 |
| files | tj.tcl |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/tj.tcl Fri Mar 25 00:40:41 2011 +0200 +++ b/tj.tcl Wed Jun 22 19:56:31 2011 +0300 @@ -1,7 +1,7 @@ ############################################################################ # # TJ (Army Mornings Left-counter) v0.60 by ccr/TNSP -# (C) Copyright 2000,2009 Tecnic Software productions (TNSP) +# (C) Copyright 2000,2009,2011 Tecnic Software productions (TNSP) # Send comments and shit via e-mail: <ccr@tnsp.org> # # This script is freely distributable under GNU GPL (version 2) license. @@ -26,7 +26,7 @@ ############################################################################ # No need to look below this line ############################################################################ -set tj_message "TJ (SA-INT model) v0.60 by ccr/TNSP" +set tj_message "TJ (SA-INT model) v0.65 by ccr/TNSP" set tj_dateident "tjdate" set tj_preferredmsg "PRIVMSG" @@ -61,8 +61,8 @@ # ------------------------------------------------------------------------- proc tj_pubmsg {nick uhost hand chan args} { - if {$args == "{}" || $args == ""} { set args $hand } - set args [lindex [split $args " "] 0] + set args [string trim [join $args ""]] + if {$args == ""} { set args $hand } tj_smsg $chan [tj_gettj $args $chan] return 1