Script Xchat qui ne fonctionne pas...

[Invité Moya]

Bonjour, j'ai fait un petit script Perl pour Xchat 2 (tester sous Hexchat) qui me pose probleme :

#!/bin/perl -w
#
use POSIX qw/strftime/;
#
my $vert = "\00303";
my $violet = "\00306";
my $rouge = "\00304";
my $bleue = "\00302";
my $jaune = "\00308";
my $gras = "\cB";
my $norm = "\017";
my $temp = "";
my $EnTete = "$rouge-$vert Xchat $rouge- \ci";
my $homedir = Xchat::get_info(xchatdir);
#
my $Hook_start = Xchat::hook_command( 'go' , 'Start' );
my $Hook_stop = "";
my $time = 0;
my $time2 = 0;
#
&Init();
#
sub Init {
	if (!open(WRITE,$homedir."\\timer.txt")) {
		open(WRITE,">>".$homedir."\\timer.txt");
		close(WRITE);
	}
}
sub Start {
	Xchat::unhook( $Hook_start );
	$Hook_start = "";
	if ($Hook_stop eq "") {
		$Hook_stop = Xchat::hook_command( 'stop' , 'halt' );
	} else {
		Xchat::prnt("Erreur Hook stop");
	}
	$time = strftime("%M%S", localtime());
	Xchat::command("SAY $time");
	# return Xchat::EAT_ALL
}
sub halt {
	Xchat::unhook( $Hook_stop );
	$Hook_stop = "";
	if ($Hook_start eq "") {
		$Hook_start = Xchat::hook_command( 'go' , 'Start' );
		Xchat::prnt("$Hook_start");
	} else {
		Xchat::prnt("Erreur Hook start");
	}
	$time2 = strftime("%M%S", localtime());
	$result = $time2 - $time;
	my $date = strftime("%d/%m/%Y", localtime());
	my $write = $date." ".$result."\n";
	open(FICDATA,">".$homedir."\\timer.txt");
	print(FICDATA $write);
	close(FICDATA);
	Xchat::command("SAY $date $result");
	$time = 0;
	$time2 = 0;
	# return Xchat::EAT_XCHAT
}
#

Le $Hook_stop = Xchat::hook_command( 'stop' , 'halt' ); ne semble pas fonctionner alors que j'utilise ce principe dans d'autre script et ça fonctionne tres bien.

Le plus bizarre c'est que apres un /help je vois bien la commande 'stop' ...

 

Si quelqu'un a une idée. Merci