Show clones on join

[Omar]

• This addon will let you see the other clones from the users when one of them join the room you are already on it.

Example:

:MinDFreak and Chinshy are clones from host MinDFreak.Chanops.Org
* MinDFreak (Agent@MinDFreak.Chanops.Org) has joined #blabla

Download is at the end of the topic undername Clones On Join.pl

You Got two ways for how to load the addon on your XChat script

1- Go on XChat on the MenuBar Load Plugin or Script then choose the place of the Clones On Join.pl and then press Open .

2-Go on Window on the MenuBar Plugins and Scripts [b]Load Open[/b]

Code:

Code:

my $name = "Simple Clone Checker"; my $version = '0.2'; my $description = "Checks for multiple nicks from the same host"; Xchat::register($name, $version, $description); Xchat::print "$name version $version loaded\n"; my $log = Xchat::get_info('xchatdir').'/clone.log';#log file Xchat::hook_server('Join',\&onjoin); sub onjoin { my $getnick = ($_[0][0]); my @gethost = split(/(.*)!(.*)\@(.*)/,$getnick); my $host1=$gethost[3]; my $nick1=$gethost[1]; my @nick2 = split(/\:(.*)/,$nick1); my $nick3 = $nick2[1]; my $date=localtime; my $getchannel = ($_[0][2]); my @users = IRC::user_list($channel1); while (@users) { my ($nick4, $host2, $op, $voice, undef) = splice(@users, 0, 5); my @host3 = split(/(.*)\@(.*)/,$host2); my $host4 = $host3[2]; if ($host1 eq $host4) { if ($nick3 ne $nick4) { Xchat::print("$nick1 and $nick4 are clones from host $host1"); #open LOG, ">>$log"; #print LOG ("$getchannel ", "$nick1 ", "$nick4 ", "$host1 ", "$date\n"); #close LOG; } } } return Xchat::EAT_NONE; }