no such element in array

Dedan · Post by **Dedan** » Thu Nov 13, 2003 7:21 pm

i only get this error when a "~" is in the address.
i do not know why.

<Zip> [16:51] Tcl error in script for 'timer2555':
<Zip> [16:51] can't unset "av_ban(c-65-177-226-17.se.client2.attbi.com)": no such element in array

[join]
-> speakerJh (~spea@c-65-177-226-17.se.client2.attbi.com)

Code: Select all

bind mode -|- "* -v" voice:cntrl
proc voice:cntrl {nick uhost handle channel mode victim} {

  usual stuff here

  set av_temp [getchanhost $victim $chan]
  set av_ban([lindex [split $av_temp @] end]) 1
  timer $av_ban_time [list unset av_ban([lindex [split $av_temp @] end])]

thanks for the help

Post by **Sir_Fz** » Thu Nov 13, 2003 7:54 pm

Code: Select all

set av_ban([lindex [split $av_temp @] end]) 1 
  timer $av_ban_time [list unset av_ban([lindex [split $av_temp @] end])]

should be:

Code: Select all

set av_ban([lindex [split $av_temp @] 1]) 1 
  timer $av_ban_time [list unset av_ban([lindex [split $av_temp @] 1])]

Dedan · Post by **Dedan** » Thu Nov 13, 2003 7:59 pm

still shows an error

egghead · Post by **egghead** » Fri Nov 14, 2003 3:29 am

Is there a "global av_ban" in the part where you say "usual stuff here"?

z_one · Post by **z_one** » Fri Nov 14, 2003 5:01 am

Dedan said

i only get this error when a "~" is in the address.

Are you filtering out the uneeded characters such as the "~" ?
If not, then try the following line of code which has been taken from Slennox's sentinel script (but of course change it to adapt the variables to your script):

Code: Select all

set uhost [string trimleft [getchanhost $nick $chan] "~+-^="]

Dedan · Post by **Dedan** » Sat Nov 15, 2003 3:55 pm

i am still getting errors ...
these errors only occur when there
is a "~" in the address.
the error happens when the script
tries to unset the var

The var does not include the "~"
i can not see why it would even matter.

It should either set and unset or not
set them both.

Code: Select all

bind mode -|- "* -v" voice:cntrl
proc voice:cntrl {nick uhost handle channel mode victim} {
  global botnick av_ctr av_ban av_ban_time
  set chan [string tolower $channel]
  set av_temp [getchanhost $victim $chan]
  regsub -all -- {\~} $av_temp "" av_temp
  set av_ban([lindex [split $av_temp @] end]) 1
  timer $av_ban_time [list unset av_ban([lindex [split $av_temp @] end])]
}

thanks for the help