Need Help With This Proc I Made.

[CoMMy]

I Have The Following Code.

Code: Select all

proc pub_globalunban {nick host handle chan testes} {
global botnick
set who [lindex $testes 0]
set banc 0
set bank 0
if {[matchattr $handle n]} {
if {$who == ""} {
putnotc $nick "Usage: ${::cmdchar}globalunban <host>"
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 $mask
incr bank }}}}
foreach bans [banlist] {
set hm [lindex $bans 0]
if {[string match [string tolower $who] [string tolower [lindex $bans 0]]]} {
killban $hm
incr 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: Select all

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

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

[Weirdo]

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

[]Kami[]

Code: Select all

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

....?

[CoMMy]

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

Any other suggestions?

[dollar]

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

Code: Select all

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

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

Code: Select all

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.