[HS] script perl marche pas en cron

[Nicolas Roudninski <nroudninski@wanadoo.fr>]

Bonjour à tous,

Je me suis fait un petit script perl qui vérifie ma boite aux lettres
et m'affiche un message (avec zenity) si un auteur choisi m'a écrit.
Le problème est que ce script fonctionne bien à partir d'une console
mais pas à partir d'une tache cron, du moins pas tout le script...
Apparemment, le script fonctionne pour ce qui est de la vérif email,
mais pas ensuite (affichage de l'info via zenity).
Ce pourrait-ce être une question de DISPLAY ?

Voici le script en question :
---------------------------debut du script-----------------------------
my $xdlg = "/usr/bin/zenity";
my $pop;
my $i;
my $nom;
my @amis;
my $amis_data;
my $email;
#chomp(my $user = `whoami`);
my $user = "nicolas";
chomp(my $home_dir = "/home/$user");

print "connection au serveur...\n";
$pop = new Mail::POP3Client( USER     => "nroudninski",
                               PASSWORD => "YDjqCDDi",
                               HOST     => "pop.wanadoo.fr" );

sub read_data {
	open DATAFILE, "$home_dir/amis.dat"
		or die "Fichier introuvable !";
	while (<DATAFILE>) {
		chomp;
		push @amis, $_."\n";
	}
	for ($i = 1; $i <= $pop->Count(); $i++) {
#	print @amis;
	foreach my $amis (@amis) {
		my @amis_data = split / *: */, $amis;
		$email = $amis_data[1];
		chomp($email);
		$nom = $amis_data[0];
		&compare;
#		print $email;
	}
}
	close DATAFILE;
	return ;
}	# ----------  end of subroutine read_data  ----------

sub compare {
#	for ($i = 1; $i <= $pop->Count(); $i++) {
		foreach ( $pop->Head( $i ) ) {
			if (/From:.*$email/) {
				chomp;
				print "Un message de $nom [$email]\n";
#				s/From://;
#				print " [$_ ]\n";
				my $adresse = $_;
				system"$xdlg --info --text 'Un message
de $nom'"; }
		}
#	}
	return ;
}	# ----------  end of subroutine compare  ----------

read_data;
----------------------------fin du script-------------------------------

-- 
Nicolas Roudninski
nroudninski@wanadoo.fr
----------------------
Toute ressemblance avec des fautes d'orthographe, de grammaire
ou de conjugaison existantes ou ayant existé serait entièrement
fortuite et indépendante de la volonté de l'auteur.