bind raw - "% 352 *" proc_whoreply
bind raw - "% 315 *" proc_endwho
ircii ^on ^who "*" #
set users 1
proc proc_whoreply {raw} {
	global uhost
	lappend uhost [lindex $raw 5]
}
proc proc_endwho {raw} {
	global uhost
	set clone ""
	putscr "*** Done gathering WHO info"
	putscr "*** Current users: [llength $uhost]"
	putscr "*** Looking for clones"
	foreach test $uhost {
		set lc [lcount $test $uhost]
		if {$lc > 2} {
			if {[lsearch $clone $test]==-1} {
				putscr "*** Clones from: $test ($lc)"
			} {}	
			lappend clone $test
		} 
	}
	unset clone
	unset uhost
	unbind raw - "% 352 *" proc_whoreply
	utimer 4 "unbind raw - \"% 315 *\" proc_endwho"
	ircii ^on ^who -
	return 0
}

proc lcount {in inl} {
	set count 0
	foreach test $inl {
		if {$test==$in} {incr count} {}
	}
	return $count 
}

putscr "*** Gathering WHO Information"
putserv "WHO #bitchx"