Code:

if { [set handle $hand] == "*" } {

Code:

# AutoRejoin# by DeKus <DeKus@gmx.net>## This script bans autorejoining users for 1min (not 60sec)# The kick reason will include who kicked him ealier## 2.0.1 29.06.2005 using nick if no handle is avaible# 2.0   24.02.2005 rework with ban on join bind, fixed a logical error with server kicks# 1.0.1 05.02.2003 Added support for server kicks and included handle of kicker in ban reason# 1.0   03.01.2003 First final Version## Published under the GPL (see file footer).## Config## delay seconds threat as autorejoinset autorejoin(time) 5# kick reasonset autorejoin(reason) "-1min- Don´t Auto rejoin"# chans to excemptset autorejoin(exclude) ""## end of config#bind kick - * noautorejoin:kset autorejoin(list) "#seekspons"proc noautorejoin:k {nick uhost hand chan target reason} {  global autorejoin  set targethandle [nick2hand $target]  set targethost [getchanhost $target $chan]  if { ![string match -nocase *$chan* $autorejoin(exclude)] && ([matchattr $hand ol|ol $chan] || [isbotnick $nick]) && ![matchattr $targethandle of|of $chan] && ![matchban "$target!$targethost" $chan] && ![isbotnick $target]} {    if { $nick == "" } {    set handle $::network    } elseif { [isbotnick $nick] } {    set handle Bot-Script    } else {    if { [set handle $hand] == "*"] } {    set handle $nick    }    }    set jbind "$chan *![string map {~ ?} $targethost ]"    bind join - $jbind noautorejoin:j    lappend autorejoin(list) [lindex [split "$jbind $handle"]]    utimer $autorejoin(time) [list noautorejoin:r $jbind]    return 1  }}proc noautorejoin:j {nick uhost hand chan} {global autorejoinset maphost [string map {~ ?} $uhost]set handle [lindex [split [lsearch -inline $autorejoin(list) "$chan *!${maphost}*"]] 2]newchanban $chan "*!$maphost" autorejoin "$autorejoin(reason) $handle" 1}proc noautorejoin:r {jbind} {global autorejoinunbind join - $jbind noautorejoin:jif { [set entry [lsearch $autorejoin(list) $jbind*]] != -1 } {set autorejoin(list) [lreplace $autorejoin(list) $entry $entry]}}putlog "AutoRejoin.tcl v2.0.1 loaded!"# Copyright © 2003-2005 De Kus# This tcl script (AutoRejoin) for the eggdrop IRC bot is released# under the GNU GPL, refer GPL.txt included in the archive.## This program is free software; you can redistribute it and/or modify# it under the terms of the GNU General Public License as published by# the Free Software Foundation; either version 2 of the License, or# (at your option) any later version.## This program is distributed in the hope that it will be useful,# but WITHOUT ANY WARRANTY; without even the implied warranty of# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the# GNU General Public License for more details.## You should have received a copy of the GNU General Public License# along with this program; if not, write to the Free Software# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA