Je suis en train de modifier des pgms perl pour ajouter l'option -T
J'ai réussi à modifier la plupart des pgms sauf 2.
=> Insecure $ENV{PATH} , Insecure dependency ou syntax error...
Dans un des pgms, j'ai ces lignes... (c'est le pgm qui envoie le fax à partir de l'interface web)
open (FAX, "/usr/bin/faxspool $mailto $coverpage $to_name $from_name $fax
$memo $files 2>&1 |") || errormessage("$libel_cant_export $!<p>\n");
print "<pre>\n";
while( <FAX> )
{
print $_;
}
close FAX;
Cela appelle le pgm faxspool et donne les messages d'avancement des cdes de faxspool... (si la création du fax se passe bien ou pas)
J'ai tourné le open dans tous les sens, parcouru plein de docs perl...
Dans les autres pgms, je n'ai pas eu autant de difficultés avec les open, exec et system... mais il n'y avait pas de | et de 2>&1 !!!
Si quelqu'un pouvait m'aider...
Je précise, le pgm faxspool n'est pas le mien... il fait parti du rpm de mgetty, je ne peux pas le modifier... C'est un pgm bash.
anne
