Discussion :

[fcbouan]

bonjour,
j ai un script perl d envois de fax qui fais appel (avec system) a un cgi sur un linux qui avant l'execution demande le password user systeme (genre root).

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
# sendfax -n -d 0164973497 /home/hylafax/essai.ps
# Password: / on entre le pass  (ceci est le password linux)

Je cherche a modifier le source perl pour entrer ce password dans l'execution system(). le binaire n as pas d option en ligne de commande password a la mysql --password.

extrait source :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$command = $prog." -P high -m -D -f \"$From\" -r \"$Regarding\" -x \"$Company\"  -d \"$Name\"\@$FaxNumber $fileo"; 
system("$command 1>$filestat 2>$filestat");

quelqu un sais comment faire pour declarer a l appel system le password demandé en ligne de commande ?
Merci d avance.

Edité par GLDavid, merci de penser aux balises codes

[Gamdwin]

j ai un script perl d envois de fax qui fais appel (avec system) a un cgi sur un linux qui avant l'execution demande le password user systeme (genre root).

exemple :
# sendfax -n -d 0164973497 /home/hylafax/essai.ps
# Password: / on entre le pass (ceci est le password linux)

Pourquoi "cgi" ?

Je cherche a modifier le source perl pour entrer ce password dans l'execution system(). le binaire n as pas d option en ligne de commande password a la mysql --password.

extrait source :
$command = $prog . " -P high -m -D -f \"$From\" " -r \"$Regarding\" -x \"$Company\" -d \"$Name\"\@$FaxNumber $fileo";
system("$command 1>$filestat 2>$filestat");

Tu peux essayer ce qui suit, sans aucune garantie que ça fonctionne.
En effet, généralement on vide le buffer d'entrée avant de demander un mot de passe, si c'est le cas de sendfax alors c'est mort (sauf si quelqu'un connait une méthode miracle, mais je ne vois pas laquelle) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
$command = $prog . " -P high -m -D -f \"$From\" " -r \"$Regarding\" ";
$command .= "-x \"$Company\"  -d \"$Name\"\@$FaxNumber $fileo";
 
$command .= " << EOPWD\nlemotdepasse\nEOPWD";
 
system("$command 1>$filestat 2>$filestat");

(PS : et évite les lignes trop longues )

[Jedai]

Sinon, tu n'as plus qu'à utiliser le module Expect .


--
Jedaï

[Gamdwin]

Sinon, tu n'as plus qu'à utiliser le module Expect .

Je viens de parcourir la doc en diagonale, il est absolument terrible ce module !

[fcbouan]

le module expect marche.

merci pour l'aide les amis :/

[GLDavid]

Alors, dans ce cas, un petit tag Résolu la prochaine fois.
Merci et si tu peux, consultes les règles du forum.

@++