clonescan

[r0t3n]

I have made a clonescan which works, but it output's some data incorrectly.

Code: Select all

bind pub o|o !clonescan pub:clonescan

proc pub:clonescan {nick host hand chan arg} {
  set channel $chan
  set count 0
  set clones_who {} 
  foreach user [chanlist $chan] { 
    foreach person [chanlist $chan] { 
      if {[string equal -nocase [getchanhost $user $chan] [getchanhost $person $chan]] && ![string equal $user $person]} { 
        incr count
        lappend clones_who Host: [getchanhost $user $chan] Users: $user and $person 
      } 
    } 
  }
  set clones $count
  set users [expr [llength [chanlist $chan]] - $clones] 
  putserv "PRIVMSG $chan :CloneScan: There are $users real users on $channel \($clones Clones found\)."
  putserv "PRIVMSG $chan :CloneScan: The clones are: $clones_who"
}

proc clonescan:version {} {
  putlog "Clonescan v: 0.1 BETA by Tosser^^TCL"
}
clonescan:version

The output

Code: Select all

<Tosser> !clonescan
<ChanServHub> CloneScan: There are 104 real users on #roffl (2 Clones found).
<ChanServHub> CloneScan: The clones are: Host: scorpio@Justinn.users.quakenet.org Users: Rayne and `Finalize Host: scorpio@Justinn.users.quakenet.org Users: `Finalize and Rayne

How can i make it so instead of it saying

Code: Select all

<ChanServHub> CloneScan: The clones are: Host: scorpio@Justinn.users.quakenet.org Users: Rayne and `Finalize Host: scorpio@Justinn.users.quakenet.org Users: `Finalize and Rayne

it says

Code: Select all

<ChanServHub> CloneScan: The clones are: Host: scorpio@Justinn.users.quakenet.org Users: Rayne and `Finalize

Sorry about my english tonight, im to tired, been fixing it all day

Thanks in advance[/code]