Problem avec "use MIME::Lite

**loula427** · 21/09/2009, 21h43

Hello tous le monde,

Je vais essayer de faire simple.... Je travail sur un serveur ou les programmes sont sur le /share donc partager par differentes machines..

Je suis actuellement entrain de developper un programme en Perl :

Ce programme pourra etre utiliser de deux facons differentes soit via un site internet donc il roulera specifiquement sur une de nos machines soit etre utilise localement est dans ce cas il roulera sur n'importe laquelle de nos machine.

Mon probleme est le suivant sendmail n'ai pas installer sur toute nos machines, et nous ne voulons pas l'installer sur toutes les machines.
Or quand je veux rouler mon programme sur les machines qui ne possede pas sendmail j'ai une erreur de compilation !!! Bah oui il me dit qu'il ne peut pas trouver sendmail.

Y a t il possibilite de "loader" une libraririe perl telque Mime::Lite dans certaine condition... ou non ?
Avez-vous des suggestions ?

Merci d'avance

**djibril** · 22/09/2009, 09h19

Si tu veux utiliser MIME::Lite sur ton serveur, tu dois l'installer.

**loula427** · 22/09/2009, 17h41

Merci pour la reponse seulement Mime::Lite est installe sur le serveur, ce qui fait defaut sur certaine machine c'est sendmail or MIME::Lite lorsque je fait le "use MIME::Lite" cherche absolument l'utilitaire sendmail.

Or sur certaine machine sendmail et present et sur d'autre non, et il n'y a qu'une seul machine avec laquelle je vais reellement utiliser MIME::Lite seulement sur les autres je souhaite que le programme arrive a compiler.

Mon probleme est la.

**djibril** · 22/09/2009, 17h45

Tu n'as pas besoin de sendmail pour envoyer un mail via ce module. Si tu as l'adresse smtp, ça suffit.

**loula427** · 22/09/2009, 19h36

hmmm, je te crois sans probleme mais quand je cherche a executer mon programme sur une machine ne possedant pas sendmail, j'ai l'erreur suivante qui apparait :

can't find an executable sendmail at /share/supported/bin/MonProg line 115
Compilation failed in require at /share/supported/bin/MonProg line 115.
BEGIN failed--compilation aborted at /share/supported/bin/MonProg line 115.

Et a cette fameuse ligne 115, j'ai le code suivant :

use MIME::Lite;

c'est pour cette raison que je pensais que ca venais de MIME::Lite.

**djibril** · 23/09/2009, 10h36

Si tu ne nous montres pas un minimum de code, ça va être difficile de t'aider

**loula427** · 23/09/2009, 15h28

Pardon pour le code il est super long plus mais ici je met le debut du code
avec l'appel au librairie :

Code :

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

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
#!/usr/bin/perl -w -- -*-Perl-*-
 
#############################################################################
#                                                                          
#                                 RNAfinder                       
#                                                                           
# DESCRIPTION:                                                              
# Searches for RNAs in a genome. Wrapper around RNASpinner                 
#                                                                          
############################################################################
#    Revision 1.1  2008/10/28 21:57:23  nbeck
#    Initial check-in.
#
# 
 
 
##########################
# Initialization section #
##########################
 
require 5.00;
use strict;
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;
use PirObject qw( LinStruct RNAPredictionList RNAfinderFileForMenu AllerpinResult);
use IO::File;
use File::Basename;
use Cwd;
use Bio::Tools::CodonTable;
use vars qw( $VERSION $RCS_VERSION );
use lib    ( "./lib" );
use POSIX qw{strftime};
use MIME::Lite;
 
# Default umask
umask 027;

Donc la ligne qui pose problem a la compilation est celle ou je fais "use MIME::Lite"

Pour le reste j'ai une sous routine appeller sendmail que j'appelle si est seulement si le programme est appeller via CGI une option de mon programme me permet de savoir si le programme est appeller via CGI ou non. Si le programme est appeller via CGI j'ai une variable $CGI = 1 et donc je fait appel a ma sous-routine sendMail si $CGI == 1 :

&sendMail() if $CGI;

A noter que ma routine sendMail fonctionne tres bien sur la machine ou le site est installer.

Code :

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

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
sub sendMail {
    my $filename = basename($DATAFILE);
 
    my $msg = MIME::Lite->new(  From    => 'test@gmail.com',
                                To      => $MAIL_ADR,
                                Subject => "RNAweasel Result for $MODELNAME on $filename",
                                Type    => 'multipart/mixed')
                                or die "Error creating multipart container: $!\n";
 
      $msg->attach(     Type        => 'text/html; charset="iso-8859-1"',
                        Path        => "$TMP_DIR/$filename.mail",
                        Filename    => "$filename.mail",
                        Disposition => 'inline',
                        Encoding    => 'quoted-printable')
                        or die "Error adding mail file : $!\n";
 
       $msg->attach(    Type        =>'text/plain',
                        Path        => "$TMP_DIR/$filename.ali",
                        Filename    => "$filename.ali",
                        Disposition => 'attachment',
                        Encoding    => 'quoted-printable')
                        or die "Error adding result file : $!\n";
 
       $msg->send();
}

Hmmm en esperant que cela va aider, je peut mettre plus de code si besoin.

**djibril** · 23/09/2009, 15h40

Pourquoi ne pas faire :

Code :

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

$msg->send_by_smtp('smtp.toto.fr');

au lieu de

Code :

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

$msg->send();

Je pense que le problème serait réglé.

**loula427** · 23/09/2009, 16h35

Merci pour la reponse, je viens de tester ca ne fonctionne malheursement pas.

J'ai trouve une solution qui ne me plait pas forcement ce que j'ai fait est de faire appel a un sous programme que j'ai creer qui s'appelle SenMailPerl :

Code :

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

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
#!/usr/bin/perl -w -- -*-Perl-*-
 
##########################
# Initialization section #
##########################
 
require 5.00;
use strict;
use MIME::Lite;
 
###########################
# Deal with the arguments #
###########################
 
my $MAIL_INFO_STR   = "";
my $ATTACH_INFO_STR = "";
 
for (;@ARGV;) {
    # Add in the regex [] ALL single-character command-line options
    my ($opt,$arg) = ($ARGV[0] =~ /^-([ga])(.*)$/);
    last if ! defined $opt;
    # Add in regex [] ONLY single-character options that
    # REQUIRE an argument, except for the 'd' debug switch.
    if ($opt =~ /[ag]/ && $arg eq "") {
        if (@ARGV < 2) {
            print "Argument required for option \"$opt\".\n";
            exit 1;
        }
        shift;
        $arg=$ARGV[0];
    }
    $MAIL_INFO_STR   = $arg if $opt eq 'g'; 
    $ATTACH_INFO_STR = $arg if $opt eq 'a';
    shift;
}
 
my @MAIL_INFO   = split(/\|/, $MAIL_INFO_STR);
my @ATTACH_INFO = split(/\|/, $ATTACH_INFO_STR);
 
my ($FROM, $TO, $SUBJECT, $TYPE) = @MAIL_INFO;
 
 
die "Problem with -a argument must contain multiple of 5" if @ATTACH_INFO % 5 != 0;
 
my $msg = MIME::Lite->new(  From    => $FROM,
                            To      => $TO,
                            Subject => $SUBJECT,
                            Type    => $TYPE)
                            or die "Error creating multipart container: $!\n";
 
 
for (my $i = 0 ; $i <= @ATTACH_INFO  ; $i = $i+5) {
    my @sub_tab = @ATTACH_INFO[$i..$i+4];
 
    my ($a_type, $a_path, $a_filename, $a_dispo, $a_encod) = @sub_tab;
 
    my $a = 0;
    $msg->attach( Type        => $a_type,
                  Path        => $a_path,
                  Filename    => $a_filename,
                  Disposition => $a_dispo,
                  Encoding    => $a_encod)
                  or die "Error adding result file : $!\n";
}
 
$msg->send();
exit 0;

Et la sa fonctionne bien sur ma sous routine sendMail devient :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sub sendMail {
    my $filename = basename($DATAFILE);
 
    my $sendmail = "perl /share/supported/bin/SendMAilPerl";
    my $subject  = "RNAweasel Result for $MODELNAME on $filename";
    my $sendmail_cmd = "$sendmail  -g \"test\@gmail.com|$MAIL_ADR|$subject|multipart/mixed\" -a \"text/html; charset=\"iso-8859-1\"|$TMP_DIR/$filename.mail|$filename.mail|inline|quoted-printable|text/plain|$TMP_DIR/$filename.ali|$filename.ali|attachment|quoted-printable\"";
 
    my $ret = system("$sendmail_cmd");
 
    if (($ret >> 8) > 1) {
        print STDERR "There was an error running 'sendmail'.\n";
    }
}

Je tiens a preciser que malgre le fait que cette solution fonctionne j'aimerais bien trouver autre chose car elle n'est pas tres elegante a mon gout.

Merci pour l'aide

.

**djibril** · 23/09/2009, 16h57

Juste par curiosité, tu utilises quels versions de Perl ?

**loula427** · 23/09/2009, 17h03

Alors ATTENTION :

j'utilse perl5.

Celle ou ca ne fonctionne pas :
Summary of my perl5 (revision 5 version 10 subversion 0) configuration:

Celle ou ca fonctionne :
Summary of my perl5 (revision 5.0 version 8 subversion 3) configuration:

hmm une autre pour le fun ou ca fonctionne :
Summary of my perl5 (revision 5 version 8 subversion 8) configuration:

Comme on peut voir c est tres homogene...

Enfin donc c'est perl5 que j'utilise avec des version et sous version diferrente... mais je pense pas que ca change grand choses.

**loula427** · 25/09/2009, 18h54

Ca y est j'ai trouver une solution plus elegante :
Au lieu de faire :

Code :

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

use MIME::Lite;

je fait :

Code :

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

1
2
3
4
5
 
BEGIN {
  eval "use MIME::Lite;";
  print STDERR "Warning: MIME::Lite not loaded: $@" if $@;
}

Est maintenant ca fonctionne sans pb sur toute les machine

.

Merci pour l aide.

Problem avec "use MIME::Lite

Web Perl

Discussions similaires

Partager

Partager