egghelp/eggheads community

[TCL ERROR] wrong # args {{Solved}}

2009-07-16T16:38:35-04:00

I don't see $nick-PUB defined anywhere within the scope of the proc CorePermBan, did you mean $nick?

No, that would imply the $nick set the ban themselves. We meant $nick-PUB indicating that a $nick set the ban through a PUB bind as part of a script. It's easier to sort the banlist with .bans this way. bans *-PUB #chan

Statistics: Posted by speechles — Thu Jul 16, 2009 4:38 pm

[TCL ERROR] wrong # args {{Solved}}

2009-07-16T15:55:11-04:00

OK nml375, I see that now. Thanks. It did look rather strange at first sight

Statistics: Posted by arfer — Thu Jul 16, 2009 3:55 pm

[TCL ERROR] wrong # args {{Solved}}

2009-07-16T15:31:23-04:00

Ah, really sorry, the error was on my end...

I had the bot opered up, and it wasn't +o in the room, therefore it wasn't setting the modes.

I'll never make that mistake again. :]

Thank you all for your help!

Statistics: Posted by Branden — Thu Jul 16, 2009 3:31 pm

[TCL ERROR] wrong # args {{Solved}}

2009-07-16T14:56:52-04:00

arfer:
Regarding $nick-PUB, due to various mechanics in tcl, if you intend to have a dash (-) in the name of a variable, you'll have to enclose it using {} when reading it. Ie: ${nick-PUB}. Otherwise, the dash is taken as the end of the variable name. As such, speechles' and TCL_no_TK's approach is fully valid, although perhaps not the best of practice in demonstration. The proper way to "tag" in the case of other characters than dash, once again you would use the {}; Ie: ${nick}-PUB.

So far, I've seen several different approaches to use newchanban, and all seem perfectly valid. Perhaps focus on figuring out why newchanban does not set the ban on the channel instead?

Branden:
Think you could post your channel settings (use .chaninfo from the dcc chat partyline)? Especially the dynamicbans and enforcebans (shouldn't matter since we've got it sticky though).
Could you check whether the new bans are added to your eggdrop's internal banlist (use .bans all from the dcc chat partyline)?
Also, have you verified that the generated banmask isn't blocked by the server (numerous ircd's these days bounce bans that match already active bans on the channel).
Other things to check, that the ban/invite/exempt-list isn't full, and that your eggdrop's setting match the ircd's capabilities..

Statistics: Posted by nml375 — Thu Jul 16, 2009 2:56 pm

[TCL ERROR] wrong # args {{Solved}}

2009-07-16T14:29:12-04:00

Code:

bind PUB l|l !ban pCoreBan proc pCoreBan {nick uhost hand chan text} {    set who [lindex [split $text] 0]    set why [join [lrange [split $text] 1 end]]    switch -- [regexp -- {\.} $who] {        0 {            if {[onchan $who]} {                set host [maskhost [getchanhost $who]]            }        }        1 {set host [maskhost $who]}        default {}    }    if {[info exists host]} {newchanban $chan $host $nick\-PUB $why 0 sticky}    return 0}

Statistics: Posted by arfer — Thu Jul 16, 2009 2:29 pm

[TCL ERROR] wrong # args {{Solved}}

2009-07-16T13:44:49-04:00

The Tcl interpreter will look for a variable named nick-PUB since there is nothing to suggest that -PUB is tagged onto the value of the variable nick.

Use $nick\-PUB

Though I accept it does work

Statistics: Posted by arfer — Thu Jul 16, 2009 1:44 pm

[TCL ERROR] wrong # args {{Solved}}

2009-07-16T13:23:17-04:00

The use of $nick-PUB was to set the owner of the ban to the person's nickname that issued the command plus the tag "-PUB" and Yes, its superfluous but i prefer to include it

As for newchanban not working, you could trying removing the putquick' and stuff, since added a ban via newchanban will already result in a ban and kick of any/all users matching the given address.

Statistics: Posted by TCL_no_TK — Thu Jul 16, 2009 1:23 pm

[TCL ERROR] wrong # args {{Solved}}

2009-07-16T11:57:53-04:00

The variable why should be converted back to a string rather than left as a list

Code:

set why [join [lrange [split $text] 1 end]]

I don't see $nick-PUB defined anywhere within the scope of the proc CorePermBan, did you mean $nick?

"$why" is in quotes in the newchanban and doesn't need to be

The following code seems superfluous, since the newchanban is set as sticky explicitly

Code:

if {![isbansticky $whohost $chan]} {     stick $whohost $chan }

Statistics: Posted by arfer — Thu Jul 16, 2009 11:57 am

[TCL ERROR] wrong # args {{Solved}}

2009-07-15T20:24:23-04:00

"newchanban" is still not working nor outputting any errors. :S

Statistics: Posted by Branden — Wed Jul 15, 2009 8:24 pm

[TCL ERROR] wrong # args {{Solved}}

2009-07-15T20:21:58-04:00

Code:

proc CorePermBan { nick host hand chan text } {    set who [lindex [split $text] 0]    set why [lrange [split $text] 1 end]    set whohost [stricthost [lindex [split $text] 0] $chan]    putquick "MODE $chan +b $whohost"    putquick "KICK $chan $who :$why"    newchanban $chan $whohost $nick-PUB "$why" 0 sticky   if {![isbansticky $whohost $chan]} {    stick $whohost $chan   }}

Statistics: Posted by TCL_no_TK — Wed Jul 15, 2009 8:21 pm

[TCL ERROR] wrong # args {{Solved}}

2009-07-15T20:11:43-04:00

How do you supoose to stick the ban thats never been set correctly? Your using putquick'd mode changes, not eggdrops internal bans to catch this. Perhaps you should use:
Code:
proc CorePermBan { nick host hand chan text } {   set who [lindex [split $text] 0]   set why [lrange [split $text] 1 end]   set whohost [stricthost [lindex [split $text] 0] $chan]   putquick "MODE $chan +b $whohost"   putquick "KICK $chan $who :$why"   newchanban $chan $whohost "$nick-PUB" $why 0   stick ban $whohost $chan}
As you can see, you forgot the $chan parameter of the stick command. You also forgot to put the colon between $who and $why in your putquick'd kick, meaning the ircd would always kick users without giving your $why reason.

Yeah, I was trying to do that instead, but the bot isn't setting the ban at all with newchanban, and it's not outputting any errors.

Statistics: Posted by Branden — Wed Jul 15, 2009 8:11 pm

[TCL ERROR] wrong # args {{Solved}}

2009-07-15T20:12:25-04:00

How do you supoose to stick the ban thats never been set correctly? Your using putquick'd mode changes, not eggdrops internal bans to catch this. Perhaps you should use:

Code:

proc CorePermBan { nick host hand chan text } {   set who [lindex [split $text] 0]   set why [lrange [split $text] 1 end]   set whohost [stricthost [lindex [split $text] 0] $chan]   putquick "MODE $chan +b $whohost"   putquick "KICK $chan $who :$why"   newchanban $chan $whohost "$nick-PUB" $why 0   stick ban $whohost $chan}

As you can see, you forgot the $chan parameter of the stick command. You also forgot to put the colon between $who and $why in your putquick'd kick, meaning the ircd would always kick users without giving your entire $why reason. It would've only given the first word used, not the entire sentence. This is what the colon is for.

Statistics: Posted by speechles — Wed Jul 15, 2009 8:01 pm

[TCL ERROR] wrong # args {{Solved}}

2009-07-15T19:46:14-04:00

ERROR:

Code:

[00:27] Tcl error [CorePermBan]: wrong # args: should be "stick ban ?channel?"

SCRIPT:

Code:

proc CorePermBan { nick host hand chan text } {   set who [lindex [split $text] 0]   set why [lrange [split $text] 1 end]   set whohost [stricthost [lindex [split $text] 0] $chan]   putquick "MODE $chan +b $whohost"   putquick "KICK $chan $who $why"   stick ban $whohost}

Sorry to be a pain!

Statistics: Posted by Branden — Wed Jul 15, 2009 7:46 pm

[TCL ERROR] wrong # args {{Solved}}

2009-07-14T21:42:01-04:00

Thank you!

Statistics: Posted by Branden — Tue Jul 14, 2009 9:42 pm

[TCL ERROR] wrong # args {{Solved}}

2009-07-14T21:33:17-04:00

Code:

set whohost [stricthost [lindex [split $text] 0] $chan]

You've tied chan as an argument in your procedure. This is why you can't invoke it without specifying the chan parameter as well as the host.

Statistics: Posted by speechles — Tue Jul 14, 2009 9:33 pm