MIME::Lite et Return-Path

Version imprimable

Bonjour a tous,

Je suis plus sur delphi, mais bon la c'est sous linux. Attention ceci est mon premier script/programme sous Perl. ne soyer pas trop dure avec moi :mrgreen:.

Je m'explique: j'install Nagios sous sarge avec notification par mail, no probleme. Nous utilisons une passerelle mail to sms de chez mail2sms, et je tente de leur envoyer un mail pour ressevoir un sms en cas d'alerte nagios. Rien de bien mechant. mail2sms n'accepte que les mails venant d'un compte (ex: sms@company.fr) avec en piece jointe un fichier CSV contenant les numeraux de GSM.
Bref, j'utilise MIME::Lite pour faire l'envoie de cette email tous va bien mais si je regarde les headers de mon mail le tag Return-Path est celui du compte qui execute le script.
Mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 #!/usr/bin/perl use MIME::Lite; if ((scalar(@ARGV)) == 6){ $HOSTALIAS = @ARGV[0]; $HOSTSTATE = @ARGV[1]; $HOSTOUTPUT = @ARGV[2]; $LONGDATETIME = @ARGV[3]; $CONTACTEMAIL = @ARGV[4]; $CONTACTSMS = @ARGV[5]; $Message = "Host: " .$HOSTALIAS ." is ". $HOSTSTATE ."\nInfo: ". $HOSTOUTPUT ."\nTime: ". $LONGDATETIME ; $Sujet = "nagios" ; $msg = MIME::Lite->new( From =>'sms@company.fr', FromSender =>'sms@company.fr', Sender =>'sms@company.fr', Return-Path =>'sms@company.fr', Reply-To =>'sms@company.fr', To =>$CONTACTEMAIL, Subject =>$Sujet, Type =>'multipart/mixed' ); $msg->attach(Type =>'TEXT', Data =>$Message ); $msg->attach(Type =>'TEXT', Filename =>'destsms.csv', Data =>'FAX sms'. $CONTACTSMS, Disposition => 'attachment' ); $msg->send; }else{ #exec('sudo -u chavers /usr/lib/nagios/plugins/sms.pl "'.$HOSTALIAS.'" "'.$HOSTSTATE.'" "'.$HOSTOUTPUT.'" "'.$LONGDATETIME.'" '.$CONTACTEMAIL.' '.$CONTACTSMS); # $file = "/tmp/nagios"; # open FILE, ">> $file" or die "nb param error\n"; # print FILE "HOSTALIAS: ". $HOSTALIAS ."\n"; # print FILE "HOSTSTATE: ". $HOSTSTATE ."\n"; # print FILE "HOSTOUTPUT: ". $HOSTOUTPUT ."\n"; # print FILE "LONGDATETIME: ". $LONGDATETIME ."\n"; # print FILE "CONTACTEMAIL: ". $CONTACTEMAIL ."\n"; # print FILE "CONTACTSMS: ". $CONTACTSMS ."\n"; # close FILE; }
J'ai tenté avec la fonction exec/system de faire un sudo, mais ca ne marche que si je fais un sudo dans l'appel du programme.

Si vous avez une idee, je suis preneur :ave:

28/04/2006, 19h03
djibril

t'es pas obligé de mettre le Return-Path, essaye de faire sans pour voir si ça te convient!
28/04/2006, 19h20
chavers

Merci de ta reponse.

J'ai dejas teste ca. si tu ne met rien le MTA (exim4) l'ajoute automatiquement.
28/04/2006, 19h32
chavers

En faite si je savais faire une sorte de runas/sudo en perl mon probleme n'en serait plus un.

Merci la FAQ et CPAN

Le site du CPAN est une mine d'or :mouarf:

Je ne sais pas pourquoi MIME::Lite se moque qu'on lui configure le Return-Path, mais bon. J'ai utilisé Mail::Sender, presque top :P.

Pas moyen de passer un scalaire a la place du fichier. J'ai donc créé le dit fichier dans /tmp avec comme nom un timestamp.

Voici le code qui fonctionne, si qqu galere comme moi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#!/usr/bin/perl
 
use Mail::Sender;
 
if ((scalar(@ARGV)) == 6){
    my $HOSTALIAS = $ARGV[0];
    my $HOSTSTATE = $ARGV[1];
    my $HOSTOUTPUT = $ARGV[2];
    my $LONGDATETIME = $ARGV[3];
    my $CONTACTEMAIL = $ARGV[4];
    my $CONTACTSMS = $ARGV[5];
    my $Message = "Host: $HOSTALIAS is $HOSTSTATE\nInfo: $HOSTOUTPUT\ntime: $LONGDATETIME" ;
    my $Sujet =     "nagios" ;    
    my $Destsms = "FAX\nsms". $CONTACTSMS ."\n";
    my $secondes = time();
    $file = "/tmp/". $secondes;
    open FILE, "> $file" or die "nb param error\n";
    print FILE "FAX\n";
    print FILE "sms". $CONTACTSMS ."\n";
    close FILE;
 
$sender = new Mail::Sender {
    smtp => '10.x.x.x',
    from => 'sms@xompany.fr',
    on_errors => undef,
} or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n";
$sender->OpenMultipart({
    to => $CONTACTEMAIL,
    subject => $Sujet
}) or die "Can't open the message: $sender->{'error_msg'}\n";
$sender->Body;
$sender->SendEnc($Message);
$sender->Attach(
    {description => 'Perl module Mail::Sender.pm',
    ctype => 'text/plain',
    encoding => '7BIT',
    disposition => 'attachment; filename="destsms.csv"; type="ASCII text"',
    file => $file,
    }
);
$sender->Close() or die "Failed to send the message: $sender->{'error_msg'}\n";
unlink($file);
 
}else{
    print $secondes ." nb param error\n";
}

C'est mon premier code en perl et je suis :lahola:

30/04/2006, 11h41
djibril

tag resolu please!!!