egghelp/eggheads community

need little help.

2007-01-25T18:56:38-04:00

thanks you
it's working now

Statistics: Posted by crux — Thu Jan 25, 2007 6:56 pm

need little help.

2007-01-25T16:34:44-04:00

You might wanna keep in mind there's no "channel" argument on a msg-binding...
Also, please considder "splitting" strings into lists before using list-operations such as lindex, lrange, etc. Especially when it comes from an untrusted source (in this case, untrusted means anything that might generate an improper list-structure)

i.e.

Code:

bind msg n|n .kick kickproc kick {nick host hand arg} { if {[scan $arg "%s %s" who chan] != 2} {  puthelp "notice $nick :Usage: .kick   \[reason\]"  return 0 } set why [join [lrange [split $arg] 2 end]] if {![onchan $who $chan]} {  puthelp "NOTICE $nick :$who not on $chan." } {  if {$why == ""} {   putserv "KICK $chan $who :Requested by $nick"  } {   putserv "KICK $chan $who :$why"  } }}

Statistics: Posted by Sir_Fz — Thu Jan 25, 2007 4:34 pm

need little help.

2007-01-25T15:55:14-04:00

Try:

Code:

#Make the bot KICK someone...bind msg n|n .kick kickproc kick {nick host handle channel testes} {set who [lindex $testes 0]set why [lrange $testes 1 end]if {$who == ""} {  putserv "NOTICE $nick :Usage: .KICK  "} elseif {![onchan $who $channel]} {  putserv "NOTICE $nick :$who not on $channel."} else {  if {$why == ""} {    putserv "KICK $channel $who :Requested by $nick"  } else {    putserv "KICK $channel $who :$why"  }}#end of kick

Not Tested

donesn't work

i got this error:

Code:

[20:55] Tcl error [kick]: wrong # args: should be "kick nick host handle channel testes"

Statistics: Posted by crux — Thu Jan 25, 2007 3:55 pm

need little help.

2007-01-23T15:35:31-04:00

You might wanna keep in mind there's no "channel" argument on a msg-binding...
Also, please considder "splitting" strings into lists before using list-operations such as lindex, lrange, etc. Especially when it comes from an untrusted source (in this case, untrusted means anything that might generate an improper list-structure)

Statistics: Posted by nml375 — Tue Jan 23, 2007 3:35 pm

need little help.

2007-01-23T15:31:39-04:00

Thanks you much, I'll test..

Statistics: Posted by crux — Tue Jan 23, 2007 3:31 pm

need little help.

2007-01-23T15:12:02-04:00

Try:

Code:

#Make the bot KICK someone...bind msg n|n .kick kickproc kick {nick host handle channel testes} {set who [lindex $testes 0]set why [lrange $testes 1 end]if {$who == ""} {  putserv "NOTICE $nick :Usage: .KICK  "} elseif {![onchan $who $channel]} {  putserv "NOTICE $nick :$who not on $channel."} else {  if {$why == ""} {    putserv "KICK $channel $who :Requested by $nick"  } else {    putserv "KICK $channel $who :$why"  }}#end of kick

Not Tested

Statistics: Posted by r0t3n — Tue Jan 23, 2007 3:12 pm

need little help.

2007-01-23T14:28:12-04:00

Code:

#Make the bot KICK someone...bind msg n|n .kick kickproc kick {nick host handle channel testes} {set who [lindex $testes 0]set why [lrange $testes 1 end]if {$who == ""} {putserv "NOTICE $nick :Usage: .KICK  "return 1}putserv "KICK $who :$why"putserv "NOTICE $nick :Done: KICKED $who with: $why"return 1}#end of kick

this code doesn't work. I think I need sth.. please help me if you know..

thanks you.

Statistics: Posted by crux — Tue Jan 23, 2007 2:28 pm