tcl to find dup hosts

Tipi · Post by **Tipi** » Fri Jan 27, 2006 1:32 pm

Is anyone aware of a tcl that will find dup hosts that are entered under mutiple handles?

CtrlAltDel · Post by **CtrlAltDel** » Fri Jan 27, 2006 8:15 pm

Do you mean Clone detection scripts?

Here I go again with yet another of those "bogus" links ...

Tipi · Post by **Tipi** » Sat Jan 28, 2006 1:00 pm

no, I run a few large channels, some of the botmasters have not been as good checking before they add to the bot userlist as they should be.

we have numerous duplicate handles, where the user's main nick and his alt nick have both been added as handles in the userlist, with the same hostmask

I'm looking for an easy way to find those duplicate entry's

demond · Post by **demond** » Sat Jan 28, 2006 5:13 pm

Code: Select all

foreach u [userlist] {
   foreach h [getuser $u hosts] {lappend ul [list $h $u]}
}
foreach {h u} [eval concat [lsort -index 0 $ul]] {lappend ua($h) $u}
foreach {h u} [array get ua] {
   if {[llength $u] > 1} {putlog "$h: [join $u]"}
}

Tipi · Post by **Tipi** » Sat Jan 28, 2006 10:17 pm

thank you, you have saved me HOURS of work!

.pt · Post by **.pt** » Fri Mar 17, 2006 2:05 pm

it gives me this error

•18:04:50• <bot> [12:03] can't read "ul": no such variable
•18:04:50• <bot> while executing
•18:04:50• <bot> "lsort -index 0 $ul"
•18:04:50• <bot> invoked from within
•18:04:50• <bot> "eval concat [lsort -index 0 $ul]"
•18:04:50• <bot> invoked from within
•18:04:50• <bot> "foreach {h u} [eval concat [lsort -index 0 $ul]] {lappend ua($h) $u}"
•18:04:50• <bot> (file "scripts/duplicatehost.tcl" line 6)
•18:04:50• <bot> invoked from within
•18:04:50• <bot> "source scripts/duplicatehost.tcl"

Post by **caesar** » Fri Mar 17, 2006 2:28 pm

Umm.. That should only happen theoreticaly when the bot dosen't have any users in it's userlist. The folowing code should work fine.

Code: Select all

foreach u [userlist] {
  foreach h [getuser $u hosts] {
    lappend ul [list $h $u]
  }
}

if {[info exists ul]} {
  foreach {h u} [eval concat [lsort -index 0 $ul]] {
    lappend ua($h) $u
  }
  foreach {h u} [array get ua] {
    if {[llength $u] > 1} {
      putlog "$h: [join $u]"
    }
  }
}

.pt · Post by **.pt** » Fri Mar 17, 2006 4:19 pm

i forgot to ask something can the code remove the hosts automaticaly?

.pt · Post by **.pt** » Thu Mar 23, 2006 7:30 am

what is suppost the script do when find a new user because i dont see anything made by the script, sorry for the trouble