Discussion :

[Olivier Regnier]

Bonjour

J'ai développé un script perl qui permet de garder les sources de son système FreeBSD à jour en informant par courrier électronique son état d'avancement.

Il fonctionnait, il y a deux semaines et hier, j'ai réinstallé mon portable sous FreeBSD et cela ne passe plus. J'ai installé les paquetages Perl, p5-MIME-Type et nbsmtp.

Voici le script en question :

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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
#!/usr/bin/perl -w
 
## DEBUT
 
# Clin d'oeil : 
 
# Prérequis : FreeBSD 6.2, perl-5.8.8, p5-MIME-Lite-3.01 et fastest_cvsup-0.2.9_5
 
# Fonction : Ce script permet de garder les sources de votre système FreeBSD à jour 
# en vous informant par courrier électronique de son état d'avancement. 
 
# Complément : Il vous faut installer un MTA pour envoyer les rapports par courrier
# électronique. Vous pouvez bien entendu utiliser Sendmail ou Postfix. Afin d'éviter
# d'installer ces deux poids lourds, utilisez plutôt ssmtp ou bien nbsmtp. Ce sont 
# de petits utilitaires supportant tous les deux SSL et permettent l'envoi du courrier. 
# Ils sont disponibles dans le catalogue de logiciels portés de FreeBSD. 
#
# Voici la procédure d'installation via les ports :
#
# ssmtp :
# prompt# make -C /usr/ports/mail/ssmtp/ install clean
#
# nbsmtp :
# prompt# make -C /usr/ports/mail/nbsmtp/ install clean
#
 
# Variables à modifier :
#
# $email="vous\@domaine\.tld";
# $top="Bonjour votre prénom";
#
 
use strict;
use warnings;
use MIME::Lite; 
use POSIX qw(strftime);
 
# Variables
 
# Générale
my $datetime=strftime "(%d/%m/%y-%H:%M:%S)", localtime;
 
# Fichiers de configuration
my $standard_supfile="/etc/standard-supfile";
my $standard_supfile_example="/usr/share/examples/cvsup/standard-supfile";
 
# Programme fastest_cvsup
my $fastest_cvsup_exec="/usr/local/bin/fastest_cvsup";
my $countrie="us";
my $server="";
 
# Rapport
my $email="mon adresse";
my $top="Bonjour Olivier,\n\n";
my $subject="";
my $data="";
my $foot="\n\nMerci.";
 
# Fonctions
sub send_report
{
	# Vérifie le sujet du message avant l'envoi
	unless ($_[0])
	{
		$subject="[FreeBSD][Source]-ErrorUpdate-$datetime";
	} else {
		$subject="[FreeBSD][Source]-SuccessUpdate-$datetime";
	}
	# Envoi du rapport par email
	print "===> Sending report by email\n";
	my $report = new MIME::Lite
	From       =>"$email",
	To         =>"$email",
        Subject    =>"$subject",
	Type       =>"TEXT",
	Data       =>"$top$data$foot";
	$report -> send;
}
 
sub select_new_server
{
	# Remplace le serveur par défaut par le nouveau
	system('/usr/bin/sed \'s/*default host=.*/*default host='.$server.'/\' '.$standard_supfile.' > '.$standard_supfile.'.copy');
	system("mv $standard_supfile.copy $standard_supfile");
}
 
sub test_fast_server
{
	# Teste les serveurs les plus rapides
	print "===> Teste tous les serveurs $countrie\n";
	$server=`$fastest_cvsup_exec -c $countrie | grep 1st | awk {'print \$3'}`;
	if ($?)
	{
		$data="Les tests de performance sur les serveurs $countrie ont échoué.\nVérifier votre connection réseau ou Internet.";
		send_report(0);
		exit;
	}
	chomp $server;
 
        # Utilisation du nouveau serveur
	print "Utilisation du serveur : $server\n";
 
	# Remplace le serveur par défaut par le nouveau
	select_new_server();
}
 
# Départ
print "---------------------------------------\n";
print "Mise à jour des sources de FreeBSD\n";
print "---------------------------------------\n";
 
# Vérifie les fichiers de configuration
print "===> Vérifie les fichiers de configuration\n";
unless (-e $standard_supfile)
{
	print "Création des fichiers de configuration\n";
	if (system("/bin/cp $standard_supfile_example /etc/"))
	{
		$data="Le fichier squelette $standard_supfile_example est introuvable.";
		send_report(0);
		exit;
	}
} else {
	print "Fichiers de configuration ...OK\n";
}
 
# Teste les serveurs les plus rapides
test_fast_server();
 
# Téléchargement des sources
print "===> Téléchargement des sources\n";
if (system("/usr/bin/csup $standard_supfile"))
{
	$data="Le téléchargement des sources a échoué.\nVérifier votre connection réseau ou Internet.";
	send_report(0);
	exit;
} else {
	# Les sources sont à jour.
	$data="Les sources sont à jour.\nVous pouvez recompiler votre système.";
	send_report(1);
}
 
## FIN

A l'exécution du script, du moins à l'instant ou le rapport doit être envoyé, cela affiche :

Code :

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

===> Sending report by email

Pas de messages d'erreur, rien tout s'arrête

Si quelqu'un a une petite idée, je suis preneur.

Merci

[Jedai]

A priori tu n'as plus sendmail. Comme indiqué dans la doc, le send() de MIME::Lite utilise par défaut sendmail pour envoyer son message. Pour lui imposer d'utiliser smtp, il faut mettre utiliser la méthode de classe send() de cette façon :

Code :

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

MIME::Lite->send('smtp', "smtp.myisp.net", Timeout=>60);

(évidemment tu changes le serveur)

--
Jedaï

[Olivier Regnier]

Merci de ta réponse.

En fait dans mon compte utilisateur, j'ai un fichier .mailrc ayant comme contenu :

Code :

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

set sendmail="/root/scripts/nbsmtp.sh"

Le script nbsmtp.sh exécute nbsmtp le MTA pour envoyer mon courrier. Son contenu est le suivant :

Code :

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

/usr/local/bin/nbsmtp -f moi@domain.net -h ssl0.ovh.net -d elipse -p 465 -U postmaster@domain.net -P password -M l -s -V

Ce script fonctionne car si j'utilise la commande mail, je reçois bien mon message. ce que je trouve génant c'est qu'au bout de deux semaines, cela ne fonctionne plus

[Jedai]

Ce script fonctionne car si j'utilise la commande mail, je reçois bien mon message. ce que je trouve génant c'est qu'au bout de deux semaines, cela ne fonctionne plus

Oui, c'est embêtant, mais comme le script Perl n'a pas changé, ça n'est visiblement pas la cause du problème... Soit tu changes le script comme je te l'ai indiqué pour utiliser directement un serveur SMTP, soit tu trouves ce qui as changé entre les deux états. La version de MIME::Lite est-elle la même qu'avant ? Et nbsmtp ? Ton .mailrc a-t-il eu l'occasion de changer "sendmail" dans l'environnement où ton script est exécuté ? ...

(Je suppose que tu as modifié les variables $email et $top dans le script, mais que tu as remis les défauts pour éviter de divulguer ton email ?)

--
Jedaï

[Olivier Regnier]

Soit tu changes le script comme je te l'ai indiqué pour utiliser directement un serveur SMTP

Je vais opter pour cette solution. Pour envoyer un message en passant par Ovh, il faut s'authentifier avec un login et un mot de passe en activant SSL. Cela complique l'exercice. Actuellement, je regarde du coté de Net::SMTP::TLS mais sans trop de succès donc je vais me diriger vers Net::SMTP:SSL

[Olivier Regnier]

Après quelques recherches, voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $sendmail='/usr/local/bin/nbsmtp -f moi@domain.tld -h ssl0.ovh.net -d elipse -p 465 -U postmaster@domain.tld -P password -M l -s -V';
my $subject="test";
my $destination="moi@domain.tld";
my $sender="moi@domain.tld";
 
open MAIL, "|$sendmail" or die "Can't open pipe to Sendmail\n";
 print MAIL <<"EOF";
 To: $destination
 From: $sender
 Subject: $subject 
 coucou, il faut beau
 EOF
 
close MAIL or die "Can't close pipe to Sendmail\n";

A l'exécution du script, j'obtiens le message suivant :

Code :

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

Can't find string terminator "EOF" anywhere before EOF at monfichier.pl line x

Aurai-je oublié quelque chose ?

Merci de votre aide