Forum général.général Sendmail, redéfinition du From et pièces jointes

Bonjour,

Nous essayons désesperement de trouver une solution pour envoyer des pièces jointes avec Sendmail (SunOS) par le biais du Shell ou du Perl.

Lorsque l'on ne redéfinit pas le From: , c'est possible avec uuencode.
Cependant, lorsque l'on redéfinit ce From: ce n'est plus possible (nous sommes obligés, pour des raisons de sécurité, de redéfinir le From: de SendMail)

Nous utilisons un module perl suivant :

#!/usr/bin/perl

use strict;

my $from = "toto\@entreprise.fr";
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 sont définis dans le Shell appelant


Auriez vous une idée s'il vous plait ?

Merci