Probléme commande shell dans script perl
Bonjour tout le monde !
Donc voila j'ai un petit souci en perl. Je travaille sur un serveur SME, sur le module zarafa pour être précis. Lors d'un affichage je recupére le nom d'un utiliateur que j'envoie vers une autre fonction perl. Jusque la pas de souci.
Le souci vien quand je veu l'utiliser pour récupéré le nom complet de l'utilisateur afin de l'afficher pour préremplir un champ de texte en vue d'une modification.
Voici le code de la fonction :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| sub modify_users {
my $self = shift;
my $cgi = $self->{cgi};
my $recept_user = $cgi->param('actUsr');
my $user = `zarafa-admin --details $recept_user | cut -f3 | awk 'NR == 2'|`;
print $username;
if($username){
print "youpi";
}
else {
print "dommage";
}
my $Emailaddress = 'test@test.test';
$cgi->param(-name=>'Username', -value=>$recept_user);
$cgi->param(-name=>'Fullname', -value=>$username);
$cgi->param(-name=>'EmailAddress', -value=>$Emailaddress);
return 0;
} |
Le if et le else ne sont que des petits test que j'avais fait. Donc de se que j'ai remarqué, la fonction s'arréte lors de la ligne :
Code:
my $user = `zarafa-admin --details $recept_user | cut -f3 | awk 'NR == 2'|`;
et j'ai une erreur : "Insecure dependency in `` while running with -T" dans el log.
Je précise que j'ai essayé de lancer la commande dans le shell, sa fonctionne parfaitement, je récupére se qu'il me faut. J'ai également écrit un petit script contenant seulement :
Code:
1
2
3
4
5
6
7
8
9
10
| #!/usr/bin/perl -w
use strict;
use warnings;
my $recept_user = `zarafa-admin -l | cut -f2 | awk 'NR == 5'`;
chomp $recept_user;
my $test = `zarafa-admin --details $recept_user | cut -f3 | awk 'NR == 2'`;
chomp $test;
print $test; |
que j'exécute dans le shell via la commande perl [mon programme] et qui me retourne exactement se que je veux aussi.
Voila si quelqu'un peut m'aider sa serait gentil^^
