commande nohup ne fonctionne pas

Version imprimable

Voir 40 message(s) de cette discussion en une page

08/10/2010, 10h57
princesse95

commande nohup ne fonctionne pas

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
08/10/2010, 11h07
matrix788

salut,

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

Code:

cat nohup.out
08/10/2010, 11h25
princesse95
Voici ce qui se trouve dans mon fichier nohup.out
Je ne comprends pas ce qui pose problème en fait..

Code:

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:

1 2 3 4 5 #!/usr/bin/perl -w use MIME::Lite; #DO NOT TOUCH
Merci de votre aide
08/10/2010, 11h53
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:

1 2 3 4 perl -w use MIME::Lite ;
15/10/2010, 22h15
princesse95

Installer Mime Lite
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:

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:

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
18/10/2010, 12h18
princesse95

Comment installer Mime::Lite
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:

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:

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:

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

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

Code:

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
18/10/2010, 12h22
matrix788

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

Voici le contenu du script :

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
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);

18/10/2010, 14h42
matrix788

Je redirige la discussion dans le forum Perl.
18/10/2010, 15h06
Philou67430

Tu as le même soucis en lançant le script sans nohup ?

Que dit la commande ?

Code:

perl -MMIME::Lite -e '1'

Voici ce que j'obtiens à la commande :
Code:

1 2 3 #perl -MIME::Lite -e '1' Can't locate IME/Lite.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.1 /usr/local/share/perl/5.10.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .). BEGIN failed--compilation aborted.
Sans le nohup, mon mail part mais par contre je n'ai toujours pas mes images affichées dans mon mail.. j'ai des carrés à la place :(

18/10/2010, 16h56
Philou67430

Pour le test demandé, vous avez mal recopié ma commande.
Cela dit, inutile de retourner le résultat, le fait que le module soit trouvé lorsque vous lancez la commande sans nohup montre que c'est plutôt l'environnement dans lequel perl est lancé qui diffère. La commande nohup est lancée par un job cron ?
C'est comme si l'utilisateur lançant le nohup ne "voyait" pas une installation du module MIME::Lite.
18/10/2010, 17h39
princesse95

La commande nohup est lancé uniquement quand j'ai besoin d'exécuter le script.
Je suis toujours loguer avec le user root

Il n'y a aucun cron qui lance le script automatiquement
18/10/2010, 18h07
Philou67430

Dans ce cas, que donne la commande :

Code:

nohup perl -MMIME::Lite -e '1'

(sans vous tromper en recopiant cette fois ;) )
19/10/2010, 06h51
Mr6

Salut !

Please use strict, it's your friend ;)

@+
Mr6
19/10/2010, 14h43
princesse95

Tu peux m'en dire un peu plus sur

Code:

use strict

Il suffit de le rajouter dans le script? Quelle est sa fonction exactement?
19/10/2010, 16h41
Philou67430

use strict est un pragma de "compilation", qui intègre des règles strictes sur la syntaxe de perl (notamment la pré-définition des variables avant leur usage).

C'est une aide pour diagnostiquer certains problèmes, dont le tien, mais aussi une ligne de conduite pour la programmation perl qui est fortement recommandée.

Voici ce que j'ai obtenu en rajoutant use strict;
J'ai essayé dans nohup et avec.
Dans les 2 cas, j'obtiens les mêmes erreurs soit :

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
Global symbol "$i" requires explicit package name at mynews.pl line 30.
Global symbol "$j" requires explicit package name at mynews.pl line 30.
Global symbol "@tmp" requires explicit package name at mynews.pl line 34.
Global symbol "$t" requires explicit package name at mynews.pl line 35.
Global symbol "@tmp" requires explicit package name at mynews.pl line 35.
Global symbol "@data" requires explicit package name at mynews.pl line 36.
Global symbol "$i" requires explicit package name at mynews.pl line 36.
Global symbol "$j" requires explicit package name at mynews.pl line 36.
Global symbol "$t" requires explicit package name at mynews.pl line 36.
Global symbol "$j" requires explicit package name at mynews.pl line 37.
Global symbol "$j" requires explicit package name at mynews.pl line 39.
Global symbol "$i" requires explicit package name at mynews.pl line 40.
Global symbol "$myCount" requires explicit package name at mynews.pl line 42.
Global symbol "$i" requires explicit package name at mynews.pl line 42.
Global symbol "$line" requires explicit package name at mynews.pl line 50.
Global symbol "$line" requires explicit package name at mynews.pl line 51.
Global symbol "$i" requires explicit package name at mynews.pl line 57.
Global symbol "$i" requires explicit package name at mynews.pl line 61.
Global symbol "$myCount" requires explicit package name at mynews.pl line 61.
Global symbol "@data" requires explicit package name at mynews.pl line 63.
Global symbol "$i" requires explicit package name at mynews.pl line 63.
Global symbol "@data" requires explicit package name at mynews.pl line 64.
Global symbol "$i" requires explicit package name at mynews.pl line 64.
Global symbol "$content_message" requires explicit package name at mynews.pl line 68.
Global symbol "$content_message" requires explicit package name at mynews.pl line 69.
Global symbol "$content_message" requires explicit package name at mynews.pl line 70.
Global symbol "$content_message" requires explicit package name at mynews.pl line 71.
Global symbol "$content_message" requires explicit package name at mynews.pl line 72.
Global symbol "$msg" requires explicit package name at mynews.pl line 76.
Global symbol "$msg" requires explicit package name at mynews.pl line 83.
Global symbol "$msg" requires explicit package name at mynews.pl line 84.
Global symbol "$msg" requires explicit package name at mynews.pl line 88.
Global symbol "$content_message" requires explicit package name at mynews.pl line 91.
Global symbol "$msg" requires explicit package name at mynews.pl line 93.
Global symbol "$i" requires explicit package name at mynews.pl line 99.
Execution of mynews.pl aborted due to compilation errors.

Que puis-je faire? Merci de votre aide

21/10/2010, 09h55
Philou67430

Je m'en serais douté.
Comme rien dans toutes ces erreurs ne semble correspondre à ton problème de module, j'aurais tendance à te conseiller, pour te débloquer, à retirer use strict (et à l'ajouter plus tard, en corrigeant une à une).

En revanche, tu n'as pas répondu à mon message du 18/10/2010 18h07
21/10/2010, 10h23
princesse95

Voici ce que donne la commande

Code:

nohup perl -MMIME::Lite -e '1'

Code:

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

Et dans nohup.out j'ai :

Code:

execution of mynews.pl aborded due to compilation errors.

Voir 40 message(s) de cette discussion en une page