egghelp/eggheads community

Ctcp scan tcl error

2002-10-08T04:31:46-04:00

Yup, leave the &&, honest.

I apparently need to read the posts properly before replying to them, well, make that read them at least a little bit!!

Statistics: Posted by ppslim — Tue Oct 08, 2002 4:31 am

Ctcp scan tcl error

2002-10-07T16:46:14-04:00

Gothic leave "&&"

cheers

Statistics: Posted by Nexus6 — Mon Oct 07, 2002 4:46 pm

Ctcp scan tcl error

2002-10-07T05:04:27-04:00

In the above script, it states "work in listed channels, or all if blank".

The code, check to see if the channel is in the list, and that the list isn't empty.

As such, only working if a channel is listed.

To fix this, simply changing the && in the if, doing the check, to || will fix this.

Statistics: Posted by ppslim — Mon Oct 07, 2002 5:04 am

Ctcp scan tcl error

2002-10-06T18:27:14-04:00

# Chans where the script is supposed to work. "" means all chans.
set chanz "#blah #arg"

change procs a bit

proc send:finger {nick uh hand chan} {
if {[matchattr $hand f|f] || [isop $nick $chan]} { return 0 }
if {($chanz != "") && ([lsearch -exact [split [string tolower $chanz]] [string tolower $dest]] == -1)} {return 0}
putquick "PRIVMSG $nick :\001FINGER\001"
}
# end

add chanz to global and enjoy

Statistics: Posted by Nexus6 — Sun Oct 06, 2002 6:27 pm

Ctcp scan tcl error

2002-10-06T17:27:08-04:00

Its working now, however how would I add it only do a few channels out of all the ones its opped in?

Say Its in #blah #heh #teehe #hmm #argh

and I only want it to finger users in #blah and #argh?

Statistics: Posted by Gothic-Angel — Sun Oct 06, 2002 5:27 pm

Ctcp scan tcl error

2002-10-06T05:40:13-04:00

erm I've checked it and it worked! Restart your bot
-
[11:33] *** Joins: bot (bot@unc.tk)
[11:33] *** Mode (Tweety:# +b *!*@unc.tk)
*** [Banned]: bot
[11:33] *** bot was kicked by Tweety (Infected spam drone. Visit http://kline.dal.net/exploits/akills.htm#ma for more information.)
-
bmask could be done simplier
set bmask "*!*@[lindex [split $uh @] 1]"
check this, it's easier to manage in case if you wanted to add new forbidden ctcp finger replies
bind join - * send:finger
set fingers {
"*%email*"
"example1"
"examplx"
"asdgfsdg"
"q8hack"
}
bind ctcr - FINGER check:finger
set spamkickmsg "Infected spam drone. Visit \002http://kline.dal.net/exploits/akills.htm#ma\002 for more information."

proc send:finger {nick uh hand chan} {
if {[matchattr $hand f|f] || [isop $nick $chan]} { return 0 }
putquick "PRIVMSG $nick :\001FINGER\001"
}

proc check:finger {nick uh hand dest key arg} {
global spamkickmsg botnick fingers
if {![isbotnick $dest]} { retrun }
foreach finger $fingers {
set arg1 [string tolower $arg]
if {[string match $finger $arg1]} {
foreach chan [channels] {
set bmask "*!*@[lindex [split $uh @] 1]"
if {[onchan $nick $chan]} {
putquick "MODE $chan +b $bmask"
putserv "KICK $chan $nick :$spamkickmsg"
newchanban $chan $bmask $botnick $spamkickmsg 240
}
}
}
}
}

Statistics: Posted by Nexus6 — Sun Oct 06, 2002 5:40 am

Ctcp scan tcl error

2002-10-06T00:42:44-04:00

Code:

bind join - * send:fingerbind ctcr - FINGER check:fingerset spamkickmsg "Infected spam drone. Visit \002http://kline.dal.net/exploits/akills.htm#ma\002 for more information."proc send:finger {nick uh hand chan} {if {[matchattr $hand f|f] || [isop $nick $chan]} { return 0 }putquick "PRIVMSG $nick :\001FINGER\001"}proc check:finger {nick uh hand dest key arg} {    global spamkickmsg botnick    if {![isbotnick $dest]} { retrun }    set arg1 [string tolower $arg]    if {([regexp -nocase "%email" $arg1]) || ([regexp -nocase "%iloveuayas" $arg1]) || ([regexp -nocase "ybxoevq@@" $arg1]) || ([regexp -nocase "%nama" $arg1]) || ([regexp -nocase "asdgfsdg" $arg1]) || ([regexp -nocase "Q8HaCk" $arg1])} {        foreach chan [channels] {            set bmask "*!*[string range $uh [string first "@" $uh] end]"            if {[onchan $nick $chan]} {                putquick "MODE $chan +b $bmask"                putserv "KICK $chan $nick :$spamkickmsg"                newchanban $chan $bmask $botnick $spamkickmsg 240            }        }    }}

I get this error [00:34] Tcl error [check:finger]: wrong # args: should be "regexp ?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...?"

Is there something wrong with the code? Anyway I can fix it?

Statistics: Posted by Gothic-Angel — Sun Oct 06, 2002 12:42 am