Error Setting CTCP the way i should want it.

[CoMMy]

I have this TCL and i get an error. Can you help?

Code: Select all

if {[info exists ctcptime]} { 
bind ctcp - TIME ctcp_time }
proc ctcp_time {nick} {
putserv "NOTICE $nick :\001TIME $::ctcptime\001" }

I get this error.

Code: Select all

[16:36] Tcl error [ctcp_time]: called "ctcp_time" with too many arguments

Please help me.

[]Kami[]

Try:

Code: Select all

if {[info exists ctcptime]} { 
bind ctcp - "ctcp_time" ctcp_time } 
proc ctcp_time {nick} { 
putserv "NOTICE $nick :\001TIME $::ctcptime\001" } 

[spock]

bravo kami! that's some top dollar advice

i'd suggest reading tcl-commands.doc, commy.
like bind ctcp, for instance, and what it passes
along to the procedure