Contenu | Rechercher | Menus

Annonce

Si vous rencontrez des soucis à rester connecté sur le forum (ou si vous avez perdu votre mot de passe) déconnectez-vous et reconnectez-vous depuis cette page, en cochant la case "Me connecter automatiquement lors de mes prochaines visites".
Test de l'ISO d'Ubuntu francophone : nous avons besoin de testeurs pour la version francophone d'Ubuntu 14.04. Liens et informations ici.

Attention, une faille de sécurité dans bash a récemment été rapportée, il est recommandé de mettre à jour son système (plus de détails) *** mise à jour 12/10/2014 ***

#1 Le 04/09/2013, à 11:24

Moya

Perl - Condition qui ne fonctionne pas - Xchat

Bonjour
Je ne suis pas du tout pro en Perl, mais j'ai des bases smile
J'ai codé ça :

#!/bin/perl -w
Xchat::hook_command("addwhite", cmd_adduser);
sub cmd_adduser{
	my $nick = $_[0][1];
	my $nickinfo = Xchat::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]){
			Xchat::print("***-\00305$nick-\00309".length(@users[$i])."-@users[$i]-\00302".length($nickhost)."-$nickhost-\017***", $netw, $serv);
			Xchat::print("*** \00309$nick est déjà dans la liste blanche ! \017***", $netw, $serv);
			$whitelist = "ok";
		}
		$i += 1
	}
	close(FICLIST);
        if(!$whitelist){
		# Xchat::print("*** \00305$whitelist \00309$nickhost !\017\n", $netw, $serv);
		if($nickhost){
			Xchat::print("*** \00305$nick \00309Ajouté(e) à la liste blanche !\017\n", $netw, $serv);
			open(FICLIST, ">>".$homedir."\\whitelist"); 
			print ( FICLIST "$nickhost\n" );
			close(FICLIST);
		} elsif(!$nickhost){
			Xchat::print("*** \00305Aucun host trouver pour $nick\017\n", $netw, $serv);
		}
	}
	$whitelist = "";
	return Xchat::EAT_NONE;
}

Et en sortie j'ai ça :

 ***-Diablotine-15-CroC@CroC.OdilE-38-Virginie@D0A4F1C8.CBA07B7E.88669293.IP-***
 *** Diablotine est déjà dans la liste blanche ! ***
 ***-Diablotine-17-Rygel@Bio.Dominar-38-Virginie@D0A4F1C8.CBA07B7E.88669293.IP-***
 *** Diablotine est déjà dans la liste blanche ! ***
* addwhite :Unknown command

Voila je comprend pas ce que j'ai mal fait sad
Merci

Hors ligne

#2 Le 09/09/2013, à 20:30

JoelS

Re : Perl - Condition qui ne fonctionne pas - Xchat

Excuses moi, mais comment tu fais marcher ça sous ubuntu ?

Le package Xchat.pm n'existe pas dans le CPAN. Il n'est pas chargé dans ton script Perl.

Hors ligne

Haut de page ↑