Discussion :

[princesse95]

Bonjour,

J'essaye d'utiliser la commande nohup afin d'envoyer une newsletter en utilisant un script perl mais j'ai cette erreur :
les entrées sont ignorés et la sortie est ajoutée à nohup.out

La commande que j'utilise ressemble à ça :
nohup perl monscript.pl .....

Pouvez-vous me dire d'où vient le problème?
Merci

[matrix788]

salut,

aucun problème, tu peux consulter le résultat de ta commande lancée en background dans le fichier nohup.out.

Code :

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

cat nohup.out

[princesse95]

Voici ce qui se trouve dans mon fichier nohup.out
Je ne comprends pas ce qui pose problème en fait..

Code :

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

can't locate MIME/Lite.pm in @INC (@INC contains : /etc/perl /usr/local/lib/perl$ BEGIN failed--compilation aborted at monscript.pl line 3

Le début de mon script est :

Code :

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

1
2
3
4
5
#!/usr/bin/perl -w
 
use MIME::Lite;
 
#DO NOT TOUCH

Merci de votre aide

[matrix788]

Ca n'a rien à voir avec la commande nohup...

Il vous faut télécharger la source MIME:Lite sur cpan, et le compiler.

pour tester son fonctionnement :

Code :

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

1
2
3
4
perl -w
 
use MIME::Lite
;

[princesse95]

Bonsoir,

J'ai crée un script permettant d'envoyer des mails avec des pièces joints. Cependant mon mail ne part pas parce que j'ai un souci de Mime::Lite.

J'ai ce message d'erreur :

Code :

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

Can't locate object method "new" via package "MIME::Lite" (perhaps you forgot to load "MIME::Lite"?) at mynews.pl line 75.

Par contre j'ai bien installé Mime:Lite. Pouvez-vous me donner les étapes pour l'installer correctement..
J'ai installé avec

Code :

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

1
2
3
4
5
 
perl Makefile.PL
make
make test
make install

mais mon script ne fonctionne toujours. Merci d'avance pour votre aide

[princesse95]

Je reviens vers vous avec plus d'informations. j'ai installé Mime Lite en suivant plusieurs tuto sur internet mais mon script rencontre toujours le même problème..
Voici ce que j'ai suivi

Code :

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

http://www.livejournal.com/doc/server/lj.install.perl_setup.modules.html

Et ensuite j'ai refait un retour arrière avec mon screenshot et j'ai installé :

Code :

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

1
2
3
4
5
6
tar xzvf MIME-Lite-xxx.tar.gz
cd MIME-Lite-xxx
perl Makefile.PL
make
make test
make install

Quand j'éxécute mon script, j'ai toujours l'erreur :

Code :

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

les entrées sont ignorés et la sortie est ajoutée à nohup.out

Et dans le fichier nohup.out, j'ai :

Code :

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

Can't locate object method "new" via package "MIME::Lite" (perhaps you forgot to load "MIME::Lite"?) at mynews.pl line 75.

Merci d'avance de votre aide

[matrix788]

on peut avoir le contenu du script mynews.pl, ou du moins aux alentours de la ligne 75 ?

[princesse95]

Voici le contenu du script :

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
#!/usr/bin/perl -w
 
use MIME::Lite;
 
#DO NOT TOUCH
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year=$year+1900;
$mon=$mon+1;
my $DATE=sprintf "%.4d-%.2d-%.2d",$year,$mon,$mday;
 
#A CONFIGURER
#
my $CSVFILE=$ARGV[0];
my $MSGFILE=$ARGV[1];
 
my $BOUNCED_FROM="adresse\@domaine.fr";
my $FROM="=?blablabla?= <welcome\@newsletter.test.envoi>";
my $SUBJECT="Mettre sujet!";
 
my $BADLOGFILE="destinataires.log.bad";
my $GOODLOGFILE="destinataires.log.good";
 
open(BADLOGFILE,">>$BADLOGFILE");
open(GOODLOGFILE,">>$GOODLOGFILE");
# my $mode = 0777;
# chmod oct($mode), '$BADLOGFILE';
 
#PARSE LES DATA DU CSV
my %data;
$i=0;$j=0;
open(FILEIN,$CSVFILE);
while(my $line=<FILEIN>) {
    chomp $line;
    @tmp=split(/\:\:/,$line);
    foreach $t (@tmp) {
	$data[$i][$j]=$t;
	$j++;
    }
    $j=0;
    $i++;
}
$myCount=$i;
close(FILEIN);
 
# print $data[lignes][colonnes]
 
#LIRE LE FICHIER MESSAGE
my $message;
open(FILEIN,$MSGFILE);
while($line=<FILEIN>) {
    $message.=$line;
}
close(FILEIN);
 
#print "\U$data[0][0]\E";
 
$i=0;
my $firstname;
my $email;
 
 
while($i<$myCount) {
 
    $email=$data[$i][0];
    if($email =~ /[0-9a-zA-Z_]([-_.]?[0-9a-zA-Z])*@[0-9a-zA-Z]([-_.]?[0-9a-zA-Z])*\.[a-zA-Z]{2,4}/) {
	chomp($email); 
    	#Substitute.
    	$content_message = $message;
	$content_message =~ s/XXX_EMAIL/$email/g;
	$content_message =~ s/XXX_email/$email/g;
	#print $message;
	### Create a new multipart message:
    	$msg = MIME::Lite->new( 
				    From    =>$FROM,
				    To      =>$email,
				    Subject =>$SUBJECT,
			   	    Type    =>'multipart/alternative'
			       );
 
    	# $msg->add("Errors-To" => $BOUNCED_FROM);
    	# $msg->add("Envelope-From" => $BOUNCED_FROM);
 
 
	### Add parts (each "attach" has same arguments as "new"):
    	$msg->attach(
			 Type     =>'text/html',
			 Data     => $content_message
	     	    );
 
    	$msg->send;
	print GOODLOGFILE "$email\n";
   }
   else { 
	print BADLOGFILE "$email\n";
   }
   $i++;
}
close(GOODLOGFILE);
close(BADLOGFILE);

[matrix788]

Je redirige la discussion dans le forum Perl.