egghelp/eggheads community

TCM.tcl..

2010-09-29T14:47:32-04:00

Step 1: Learn to handle strings and lists properly.
$arg is a string in this context, don't use lindex on strings!
Use the split command to split a string into a list..

Code:

proc someproc1 {from key text} {  set arg [split $text " "]  if {[string equal [lindex $arg 4] "Flooder"]} {    #...    set temp [split [lindex $arg 5 {[]}]]    set thenick [lindex $temp 0]    set thehost [lindex $temp 1]  }}

Alternate Step 2: Use regexp to extract the value using regular expressions:
This should fetch all the values from the string in a single pass (without the need to convert the string to a list...)

Code:

proc someproc2 {from key text} {  #...  if {[regexp -- {^\*\*\* Notice -- Possible Flooder ([^[ ]+)\[([^] ]+)\] on ([^ ]+) target: ([^ ]+)$} $text match fnick fhost onserver target]} {    #...  }}

Statistics: Posted by nml375 — Wed Sep 29, 2010 2:47 pm

TCM.tcl..

2010-09-29T13:18:45-04:00

can we help me.. ? :/

I'd like to try, but I'm afraid I don't fully understand the question.

Can you re-state it? Perhaps provide another example of what you want?

Statistics: Posted by willyw — Wed Sep 29, 2010 1:18 pm

TCM.tcl..

2010-09-29T12:36:02-04:00

can we help me.. ? :/

Statistics: Posted by erotism — Wed Sep 29, 2010 12:36 pm

TCM.tcl..

2010-09-28T21:34:28-04:00

Hi, I play with a script and something I can not understand how to take the receiver only the variable ..

Code:

#Flood relayproc *raw:flooder {from key arg} {  global botnick servername fnick ochan fhost onserver target whatdoing  if {[lindex $arg 5] == "Flooder"} {  set fnick [lindex $arg 6]  set fhost [lindex $arg 6]  set onserver [lindex $arg 8]  set target [lindex $arg 10]  set whatdoing [lrange $arg 4 end]putquick "PRIVMSG $ochan :$whatdoing"putquick "PRIVMSG $fnick :$fnick, detect flood from your host ($fhost) Please stop flooding $target. Thank You!"    return 0  }}

Server notice is:
irc.server.com *** Notice -- Possible Flooder nick[id@0.0.0.0] on irc.server.com target: nick1

Can you tell me how to give nick ident@host from them last in the different values to allow the bot to send PRIMSG of that nickname and tell him that it has detected a violation by ident@host

I am writing here because I have no idea how to do this separation, since nick and hostname are held in arg 6

To summarize:
1 = ***
2 = Notice
3 = -
4 = Possible
5 = Flooder
6 = nick [id@0.0.0.0]
........
10 = nick1

in tcl I need these values: $target $nickflooder $nickflooderID@HOST...

Thanks in advance and apologize for bad English

Statistics: Posted by erotism — Tue Sep 28, 2010 9:34 pm