1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| #!/bin/perl -w
#
use Xchat qw(:all);
register("Script perso", "1.0", "redefinition de /away + anti-kick");
#
hook_command("ADDWHITE", \&adduser);
my ($hmsg, $hnot, $homedir);
$homedir = get_info(xchatdir);
sub adduser{
my $nick = $_[0][1];
my $nickinfo = user_info($nick);
my $nickhost = $nickinfo->{host};
my $whitelist = "";
open(FICLIST, "<".$homedir."\\whitelist");
@users = <FICLIST>;
my $i = 0;
while (defined( $users[$i] )) {
chomp @users[$i];
if($nickhost==@users[$i]){
print("***-\00305$nick-\00309".length(@users[$i])."-@users[$i]-\00302".length($nickhost)."-$nickhost-\017***", $netw, $serv);
print("*** \00309$nick est déjà dans la liste blanche ! \017***", $netw, $serv);
$whitelist = "ok";
}
$i += 1
}
close(FICLIST);
if(!$whitelist){
# print("*** \00305$whitelist \00309$nickhost !\017\n", $netw, $serv);
if($nickhost){
print("*** \00305$nick \00309Ajouté(e) à la liste blanche !\017\n", $netw, $serv);
open(FICLIST, ">>".$homedir."\\whitelist");
print ( FICLIST "$nickhost\n" );
close(FICLIST);
} elsif(!$nickhost){
print("*** \00305Aucun host trouver pour $nick\017\n", $netw, $serv);
}
}
$whitelist = "";
return EAT_NONE;
}
# Au demarrage du script, on indique que le script est chagé.
print("Anti Kick / Pv chargé !"); |
Partager