Bonjour,
Nous avons un petit problème avec la commande sendmail. Nous aimerions envoyer des mails avec pieces jointes à des destinataires. Pour envoyer vers l'exterieur, nous sommes obligé de redéfinir le champ From:
(il faut un destinataire connu)
La commande sendmail suivante fonctionne avec piece jointe :
Code :
- uuencode test.js test.xls | sendmail -t toto@mail.com <mailto:tata@mail.fr>
|
Pour redéfinir le From: et afin d'intégrer ça dans un shell, nous avons fait un perl, le suivant :
Code :
- #!/usr/bin/perl
- use strict;
- my $from = "Un_Utilisateur";
- my $sendmail = "/usr/lib/sendmail -t -f $from";
- open(MAIL, "| $sendmail" ) or die "Can't open $sendmail: $!\n";
- print MAIL "From: <$from>\n";
- print MAIL "Reply-to: $from\n";
- print MAIL "To: $ENV{TO_MESSAGE}\n";
- print MAIL "Cc: $ENV{COPY_MESSAGE}\n";
- print MAIL "Subject: $ENV{SUJET_MESSAGE}\n";
- print MAIL "\n";
- print MAIL "$ENV{MESSAGE}.";
- close(MAIL);
- exit;
|
Les variables d'environnement SUJET_MESSAGE, TO_MESSAGE et COPY_MESSAGE sont instanciées dans le shell appelant le perl. Ici, je ne vois pas comment intégrer le uuencode dans le perl.
Auriez vous une idée sur comment intégrer le uuencode par rapport au perl ? Y a t-il moyen de faire plus simple en shell ?
Merci