Bonjour à tous,

J'expose mon problème avec un script qui créé à distance des comptes sur un parc de machine unix :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
my @array_user = split(/#/, $user);
my $user_login = $array_user[0];
my $user_iud = $array_user[1];
my $user_gid = $array_user[2];
 
my $cmd1 = "/usr/sbin/useradd -u $user_iud -g $user_gid -d /u/$user_login -s /usr/bin/ksh -m $user_login";
my $cmd2 = "/usr/sam/lbin/usermod.sam -p $H_pass $user_login";
 
 
my $connexion = new Net::Telnet (Prompt => '/[%#>] $/', Timeout => 10, Errmode=>'return') or die "Can't connect:$!";
$connexion->open($hostname);
$connexion->login($U_login, $U_pass);
 
$connexion->cmd("su\n");
$connexion->waitfor('/password: ?$/i') or die "no old password prompt: ", $connexion->lastline;
$connexion->print("$P_pass\n");
 
print("$cmd1\n");
print("$cmd2\n");
$connexion->print("$cmd1\n");
J'affiche donc mes commande avant l'exécution (mod debug). Et là ça coince.
Voilà le résultat :

/usr/sbin/useradd -u 1000 -g 2
-d /u/<login> -s /usr/bin/ksh -m <login>
/usr/sam/lbin/usermod.sam -p <pass> <login>
D'où vient cette "cassure" ?

Merci d'avance pour vos lumières.