How to split this !nick <name> <mail> <text&g

[minotaur]

HI i have a script like this

bind pub - "!nick" add

proc add { nick idx handle chan args } {
set name [lindex $args 0]
set email [lindex $args 1]
set text [lindex $args 2 end]

puthelp "NOTICE $nick :Hi $name with $email added and $text"
}

but now the notice is if i type: !nick mino mino@mino.com mino is cool
he says per Notice "Hi mino
mino@mino.com
mino is cool with added and "

What my fault?? PLz help me

[Sir_Fz]

your lindex $args are not correct, try fixin them.
like set name [lindex $args 0] for example will read with spaces (i think) so u have to make it read only the first word.

[minotaur]

Yes i know it but how can i split it after each SPACE into another variable?

[spock]

Code: Select all

bind pub - !nick add
proc add { nick host handle chan arg } {
set arg [split $arg] 
set name [lindex $arg 0] 
set email [lindex $arg 1] 
set text [lindex $arg 2 end] 
puthelp "NOTICE $nick :Hi $name with $email added and $text" 
}

stuff:

name vars appropriately
"args" has special meaning in tcl, dont use it 'til you know what it does
"split" splits at <space> unless something else is specified

[Papillon]

Code: Select all

set text [lindex $arg 2 end]

this should be

Code: Select all

set text [join [lrange $arg 2 end]]

[spock]

oops

[minotaur]

But now the variable $name and $text (1st and Last Variable) has a leading { or a in $text atleast a } ??

How can i cut the first char out in $name
and the last in $text ?

or can someone post me a function that has that alreasy implemented?

[minotaur]

Hmm no one any answer for me how?

[user]

Stop using the variable name "args" if you don't need it / know what it does. (read about it here: http://tcl.tk/man/tcl8.4/TclCmd/proc.htm )