Working CloneScan

[ComputerTech]

so i made this script that scans a channel for clones,it has two options to scan and if it finds clones notice the user Or kick the clones.
comment below if you think of any ideas

Code: Select all

namespace eval clonescan {

	variable flg "1"

        variable trigger "!"

	bind pub -|- "${trigger}clonescan" [namespace current]::clonescan


	proc clonescan {nick uhost hand chan text} {
		puthelp "NOTICE $nick :Starting clonescan for $chan..."
		set start [clock clicks]
		foreach user [chanlist $chan] {
			set host [lindex [split [getchanhost $user $chan] @] 1]
			lappend clones($host) $user
		}
		set total 0
		set count 0
		foreach host [array names clones] {
			set len [llength $clones($host)]
			if {$len > 1} {
				variable flg
				set nickList [join [join $clones($host)] ", "]
				if {$flg} {
					foreach cloneXz $nickList {putnow "kick $chan $cloneXz"}
					} else {
						puthelp "NOTICE $nick :\($host\) Nick list: $nickList - Clones: "
					}
					incr count $len
				}
				incr total $len
			}
		}
	}

EDIT
Fixed

[willyw]

...
comment below if you think of any ideas

$trigger is not set.

Beyond that, I have not run the code, nor even tried to figure out if it will work. I just noticed that, and since you asked....

[ComputerTech]

thanks willyw didnt see that hehe

i reposted the fixed version