egghelp/eggheads community

Darn clonescan not working correctly:)

2015-05-03T15:18:34-04:00

what to say? simply beautiful! Perfect ! thanks!
SpiKe^^.

Statistics: Posted by sky6419 — Sun May 03, 2015 3:18 pm

clonescan.tcl v1.1 (3May2015)

2015-05-03T13:06:45-04:00

Try this and see...

Code:

##################################### clonescan.tcl v1.1 (3May2015) #############################################  Begin Settings  ######### set the channel name(s) to monitor for on-join clones.set clonescan(channel) "#mychannel1 #mychannel2 #mychannel3"# set the channel name to relay on-join clone info to.set clonescan(relaychan) "#staff" # set this to 0 to not strip ~ from idents# set this to 1 to strip ~ from identsset clonescan(strip) 0# set this to 0 to detect clones using username@host# set this to 1 to detect clones using just the hostset clonescan(justhost) 1# set the number of other clones to trigger on.#  1 = the nick joining has 1 or more other clones in the channel.#      note: this will trigger every time someone rejoins#            before their ghost connection times out!#  2 = the nick joining has 2 or more other clones in the channel.#      note: or set to any number greater than zero.set clonescan(clones) 1#########  End Settings  #########set clonescan(channel) [split [strlwr $clonescan(channel)]]if {![string is digit -strict $clonescan(clones)] || $clonescan(clones)<"1"} {  set clonescan(clones) 1}bind join - * onjoin:clonescan proc onjoin:clonescan {nk uh hn ch} {   global clonescan   if {[lsearch -exact $clonescan(channel) [strlwr $ch]] > -1} {     if {$clonescan(strip)} {      set uh [string trimleft $uh "~"]     }     if {$clonescan(justhost)} {       set mask [lindex [split $uh @] 1]    } else {  set mask $uh  }    set list [list]     foreach user [chanlist $ch] {       set host [getchanhost $user $ch]      if {$clonescan(justhost)} {         set host [lindex [split $host @] 1]      } elseif {$clonescan(strip)} {         set host [string trimleft $host "~"]      }       if {[string equal -nocase $mask $host]} {         lappend list $user      }     }     if {[set num [llength $list]] >= $clonescan(clones)} {       set txt "«« \[$ch\]$nk $uh is a clone! - [number_to_number $num]"      set nks "( [join $list ", "] )"      if {$num == 1} {        set txt "$txt other nick $nks is the same person! »»"      } else { set txt "$txt other nicks $nks are the same person! »»" }      putmsg $clonescan(relaychan) $txt    }   } }putlog "«« clonescan.tcl v1.1 loaded. »»"

Statistics: Posted by SpiKe^^ — Sun May 03, 2015 1:06 pm

Darn clonescan not working correctly:)

2015-05-03T07:21:04-04:00

(set clonescan(strip) 0; #set this to 1 to strip ~ from idents - set clonescan(justhost) 1) with these settings correctly identifies
example -->SimosNap-example.ip00.fastwebnet.it-.
I'd like that when it enters the clone also wrote the ident last entered.
-->ident@SimosNap-example.ip00.fastwebnet.it
if {[llength $list] > 1} <- This should display the number of clones ? It seems not working
should add the code? [expr]
(Thanks for your patience)

Statistics: Posted by sky6419 — Sun May 03, 2015 7:21 am

Darn clonescan not working correctly:)

2015-05-02T18:30:48-04:00

Dowhat¿

Explain what it is doing and what you think it should be doing plz.

Statistics: Posted by SpiKe^^ — Sat May 02, 2015 6:30 pm

clonescan

2015-05-02T17:52:09-04:00

The script works but the report does not write the ident last clone.
Mask/Host: SimosNap-025E6I.49-151.net24.it

Statistics: Posted by sky6419 — Sat May 02, 2015 5:52 pm

Darn clonescan not working correctly:)

2015-05-03T11:10:41-04:00

Code:

set clonescan(channel) [list #mychannel1 #mychannel2 #mychannel3]; # put the channel name(s) here in lowercase. set clonescan(relaychan) "#staff" set clonescan(strip) 0; # set this to 1 to strip ~ from idents # set this to 0 to detect clones using username@host# set this to 1 to detect clones using just the hostset clonescan(justhost) 1bind join - * onjoin:clonescan proc onjoin:clonescan {nick uhost hand chan} {     global clonescan     if {[lsearch -exact $clonescan(channel) [string tolower $chan]] > -1} {         if {$clonescan(justhost)} {             set uhost [lindex [split $uhost @] 1]        } elseif {$clonescan(strip)} {             set uhost [string trimleft $uhost "~"]         }         set list [list]         foreach user [chanlist $chan] {             set host [getchanhost $user $chan]            if {$clonescan(justhost)} {                 set host [lindex [split $host @] 1]            } elseif {$clonescan(strip)} {                 set host [string trimleft $host "~"]            }             if {[string equal -nocase $uhost $host]} {                 lappend list $user            }         }         if {[llength $list] > 1} {             putserv "PRIVMSG $clonescan(relaychan) :«« $nick is a clone! - The nicks ( [join $list ", "] ) are the same person! - Mask/Host: $uhost »»"         }     } }

Statistics: Posted by SpiKe^^ — Sat May 02, 2015 11:52 am

clonescan

2015-05-02T07:08:14-04:00

This script detects clones in channels and writes the report to a default channel . The problem is : detect clones with ident and IP equal.
If the IP is the same but the ident is different it does not detect the clone .
Example ~BLaKFLaG@SimosNap-025E6I.49-151.net24.it -- ~J2OLpZRLf@SimosNap-025E6I.49-151.net24.it is not detected as a clone. I'm sorry for my english.

Statistics: Posted by sky6419 — Sat May 02, 2015 7:08 am

Darn clonescan not working correctly:)

2015-05-01T21:39:19-04:00

Explain more, and give examples plz.

Statistics: Posted by SpiKe^^ — Fri May 01, 2015 9:39 pm

Darn clonescan not working correctly:)

2015-05-01T15:44:12-04:00

I would still have a question about the script recognizes the clones with ident and ip . changing ident does not recognize the clone as you can change ?

Code:

set clonescan(channel) [list #mychannel1 #mychannel2 #mychannel3]; # put the channel name(s) here in lowercase.set clonescan(relaychan) "#staff"set clonescan(strip) 0; # set this to 1 to strip ~ from identsbind join - * onjoin:clonescanproc onjoin:clonescan {nick uhost hand chan} {    global clonescan    if {[lsearch -exact $clonescan(channel) [string tolower $chan]]} {           if {$clonescan(strip)} {            set uhost [string trimleft $uhost "~"]        }        set list [list]               foreach user [chanlist $chan] {                   if {$clonescan(strip)} {                set host [string trimleft [getchanhost $user $chan] "~"];            } else {                set host [getchanhost $user $chan];            }                       if {[string equal -nocase $uhost $host]} {                lappend list $user;            }        }        if {[llength $list] > 1} {            putserv "PRIVMSG $clonescan(relaychan) :«« $nick is a clone! - The nicks ( [join $list ", "] ) are the same person! - Mask/Host: $uhost »»"        }    }}

Statistics: Posted by sky6419 — Fri May 01, 2015 3:44 pm