help in clone scan tcl

[caesar]

Nick list: Guest37056, supr | Clones: 2

So, you want to count only one of those as clone and the other as a real user?

Replace:

Code: Select all

incr count $len 

with:

Code: Select all

incr count [expr $len - 1]

then and the result should be: Clones: 1 (33.3%) | Real users: 2 (66.7%)

[Arnold_X-P]

replace what you asked me but the report is not correct
Replace:

Code: Select all

incr count $len 

with:

Code: Select all

incr count [expr $len - 1]

that is, if there is a real user and the other is a clone, then it would be like that:
suppose that 4 are the nicknames of which 3 are real and one is clone
This is in the channel where I am using the tcl
the report that gives the old tcl is the correct
old tcl

Code: Select all

[01:59] <@Arnold_X-P> .clones
[01:59] <@xsedition> Starting clonescan for #lapaz ...
[01:59] <@xsedition> (localhost) NickClones: sicario, supr - Clones: 1
[01:59] <@xsedition> Clones: 1 (25.0%) Real users: 3 (75.0%) - Took: 0.0ms.

new tcl

Code: Select all

[02:01] <@xsedition> Starting clonescan for #lapaz...
[02:01] <@xsedition> (localhost) Nick list: sicario, supr | Clones: 2
[02:01] <@xsedition> Clones: 1 (33.3%) | Real users: 2 (66.7%) | Took: 0.0ms.

only this part is the correct thing that the report gives the old tcl and that is what the new tcl needs to perfect
[01:59] <@xsedition> Clones: 1 (25.0%) Real users: 3 (75.0%) - Took: 0.0ms.

[caesar]

Change:

Code: Select all

puthelp "PRIVMSG $chan :\($host\) Nick list: $nickList - Clones: $len" 

to:

Code: Select all

puthelp "PRIVMSG $chan :\($host\) Nick list: $nickList - Clones: [expr $len - 1]" 

and the result will be:

[02:01] <@xsedition> Starting clonescan for #lapaz...
[02:01] <@xsedition> (localhost) Nick list: sicario, supr | Clones: 1
[02:01] <@xsedition> Clones: 1 (33.3%) | Real users: 2 (66.7%) | Took: 0.0ms.