probleme with array

[ranny]

Hello,

I have this script

Code: Select all

bind pub - !reg procregister
proc procregister {nick host hand chan arg} {
global identify 
set _nick [lindex $arg 0]
if ![string length $_nick] { set _nick $nick }
if {![info exists identify]} {set identifi "no"}
if {$identify($_nick) == "is a registered nick"} {set identifi "yes"}
putserv "privmsg $chan : $identifi"
} 


bind raw - 307 identify   
proc identify {from key arg} {
global identify 
set nickidentify [lindex [split $arg] 1]
set identify($nickidentify) [lindex [split $arg :] 1]
return 0
}

if is registered nick, it's ok.
But if isn't registered nick, i have this error message: can't read "identify(lilo)": no such element in array.

Thanks in advance!!

[Sir_Fz]

Try replacing the procregister proc with:

Code: Select all

proc procregister {nick host hand chan arg} { 
 global identify 
 set _nick [lindex $arg 0] 
 if ![string length $_nick] { set _nick $nick } 
 set identifi "no" 
 if {[info exists identify($_nick)] && $identify($_nick) == "is a registered nick"} {
  set identifi "yes"
 } 
 putserv "privmsg $chan :$identifi" 
}

[demond]

is that the whole script? that 307 reply is not forced by anything

also, I can't believe it works at all, since the 307 handler proc is wrong

[awyeah]

Yes, raw 307 is not forced by anything. The output would be like:

Code: Select all

#raw 307	:userips