################################################################################
#      Search User By Host And SAJOIN Him Script (TCL)                         #
#             by Security XIII                                                 #
################################################################################
# This TCL provides to users the possibility to find nick by hostname          #
# and SAJOIN him to the admin specified channel                                #
################################################################################

set chan "#your-wanted-channel"

alias searchuser {
  foreach user [users] {
    if {[catch {finduser $_rest} uname] == 0} { 
    command "SAJOIN [uname] [chan]"
    } else { 
    print "Error: please specify host ident like ./searchuser FULL_HOST_IDENTD"
    }  
  }
}