egghelp/eggheads community

Re: Need Help With This Proc I Made.

2004-03-01T07:10:58-04:00

Hmm, I don't actually find what causes the error But here are a few hints anyway:

Code:

proc pub_globalunban {nick host handle chan testes} {global botnickset who [lindex $testes 0]

$testes is a STRING, and you're using a LIST command on it, split $testes first.

Code:

if {[string match [string tolower $who] [string tolower [lindex $banz 0]]]} {

What about the -nocase switch for string match?
Oh and, think about using proper indentation on your code, so you can find errors more easily.

Statistics: Posted by dollar — Mon Mar 01, 2004 7:10 am

Need Help With This Proc I Made.

2004-02-29T13:04:04-04:00

I Changed It To What ]Kami[ said but still it gives the same error.

Any other suggestions?

Statistics: Posted by CoMMy — Sun Feb 29, 2004 1:04 pm

Need Help With This Proc I Made.

2004-02-29T06:17:11-04:00

Code:

proc pub_globalunban {nick uhost hand chan args} { global botnickset who [lindex $args 0]

....?

Statistics: Posted by ]Kami[ — Sun Feb 29, 2004 6:17 am

Need Help With This Proc I Made.

2004-02-29T06:07:33-04:00

is there a value for the "testes" variable in the

proc pub_globalunban {nick host handle chan testes} { bit?

the arg is usually the $text variable

Statistics: Posted by Weirdo — Sun Feb 29, 2004 6:07 am

Need Help With This Proc I Made.

2004-02-29T04:41:47-04:00

I Have The Following Code.

Code:

proc pub_globalunban {nick host handle chan testes} {global botnickset who [lindex $testes 0]set banc 0set bank 0if {[matchattr $handle n]} {if {$who == ""} {putnotc $nick "Usage: ${::cmdchar}globalunban "return 0 }foreach channel [channels] {if {[isop $botnick $channel]} {foreach banz [chanbans $channel] {set mask [lrange $banz 0 end]if {[string match [string tolower $who] [string tolower [lindex $banz 0]]]} {pushmode $channel -b $maskincr bank }}}}foreach bans [banlist] {set hm [lindex $bans 0]if {[string match [string tolower $who] [string tolower [lindex $bans 0]]]} {killban $hmincr banc }}putnotc $nick "Removed $banc (Internal) & $bank (ChanBanlist) Bans Matching '$who' From Global Banlists."return 1 }}

And When I Execute It I Get An Error:

Code:

Tcl error [pub_globalunban]: no value given for parameter "arg" to "pub_globalunban"

Can You Please Tell Me Where Is The Problem Here?
Thanks

Statistics: Posted by CoMMy — Sun Feb 29, 2004 4:41 am