Alerte Email pour TrackBack et SPIP

Çà y est j’ai enfin quelque chose qui marche semble t’ il correctement !

Comme je l’ écrivais dans l’article TrackBack sous SPIP, l’intégration de « MovableType Standalone » à SPIP est une solution légère, au sens où il n’y a aucun fichier php3 ajouté ou modifié. Mais en contrepartie la « gestion » des RétroLiens est très succincte. Elle se limite, à partir de la page de chaque article, à la suppression individuelle des RétroLiens. Il n’est pas question ici d’obtenir une gestion complète avec modération des RétroLiens reçus, mais il serait quand même intéressant de pouvoir être prévenu lorsqu’un des articles a été pisté.
Je viens d’y parvenir, à tâtons, Perl n’étant vraiment pas ma tasse de thé. C’est un premier jet, sans soute perfectible mais qui fonctionne correctement. J’ai utilisé Mail ::Mailer tout simplement parce que je ne suis pas parvenu a utiliser Sendmail directement

Pré-requis :

• Avoir installé TrackBack Standalone dans l’article cité plus haut
• Avoir le module Perl Mail ::Mailer installé

 Au début du fichier tb.cgi, ajoutez :

use Mail::Mailer qw(sendmail);

 Vers la ligne 38, après la ligne :

respond_exit("No URL (url)") unless $i->{url};

insérez les lignes

envoi_mail($i);

 Après la dernière routine sub from_file (après l’ accolade fermante), ajoutez :

sub envoi_mail { my($i) = @_; my $mail = Mail::Mailer->new('sendmail') or die "La création de l'objet Mail::Mailer a échoué !\n"; my $mail_headers = { 'Content-Type' => 'text/plain', To => [ 'votre@email.fr' ], From => 'votre@email.fr', Subject => "Un de vos articles vient d'être pisté", }; $mail->open( $mail_headers ); $mail->print("Titre : $i->{title}\n", "Extrait : $i->{excerpt}\n", "URL : $i->{url}\n", "Nom du blog : $i->{blog_name}"); $mail->close(); }

De cette façon, vous recevrez un Émail à chaque fois qu’un de vos articles sera pisté, avec le contenu suivant par exemple :

Sujet : Un de vos articles vient d’être pisté

Titre : Look Ma, No LANs !
Extrait : How To Play Multiplayer Games Over The Internet With Kali by Loyd Case
URL : http://www.thierryb.net/site/Look-M…
Nom du blog : Journal Web de Thierry Bothorel, INFORMATIQUE et WARGAMES

Si Mail ::Mailer n’est pas disponible, vous pouvez utiliser cette variante utilisant Net ::SMTP :

 Remplacez use Mail::Mailer qw(sendmail);
par :

use Net::SMTP;

 Et toute la procédure « envoi_mail() » par :

sub envoi_mail { my($i) = @_; # connection au serveur SMTP my $smtp = Net::SMTP->new('smtp.server.name') or die "La création de l'objet Mail::Mailer a échoué !\n"; $smtp->mail( 'votre@email.fr' ); # email de l'expéditeur $smtp->to('votre@email.fr'); # email du destinataire $smtp->data(); # Début du mail # Envoi des entêtes. $smtp->datasend("To: votre\@email.fr\n"); $smtp->datasend("From: votre\@email.fr\n"); $smtp->datasend("Subject: Un de vos articles vient d'être pisté\n"); $smtp->datasend("\n"); # Envoi du corps. $smtp->datasend("Titre : $i->{title}\n"); $smtp->datasend("Extrait : $i->{excerpt}\n"); $smtp->datasend("URL : $i->{url}\n"); $smtp->datasend("Nom du blog : $i->{blog_name}\n"); $smtp->dataend(); # Termine l'envoi du mail $smtp->quit; # Ferme la connection SMTP }

Ci-joint le nouveau fichier complet. Toute suggestion pour amélioration est la bienvenue !