MIME::Tools

Nous continuons le tour des éléments logiciels dont nous avons besoin pour faire face aux diverses éventualités en matière de récupération et traitement de courriel reçu.

Un exemple typique est celui où l'on reçoit un message au format MIME, avec une pièce attachée binaire (à la base) et encodée avec le format Base64 (une image au format PNG par exemple).

Notre apprentissage de MIME::Lite (article précédent) ne nous est ici d'aucune utilité puisque nous nous souvenons que ce module est uniquement un constructeur de messages MIME et pas un analyseur.

Nous devons donc nous tourner vers les MIME::Tools.

Branche sœur de MIME::Lite, la branche des MIME::Tools comprend tous les outils nécessaires pour encoder correctement ce qui doit l'être, formater un courriel selon les spécifications MIME, ou au contraire l'analyser.

Rappel succinct

MIME (Multipurpose Internet Mail Extensions) est une norme régie par sept RFC visant à établir les standards du formatage du courriel moderne. Le respect de cette norme permet au courriel de remplir les tâches les plus diverses dans le domaine de la transmission de données, de simple missive à colis express.

Grâce à MIME, il est possible à votre MUA de séparer correctement la vidéo montrant les premiers pas du petit dernier du texte d'accompagnement. Pour cela, le message aura été construit grosso modo comme suit : des en-têtes qui fournissent des données précieuses sur le message tout entier (expéditeur, date, route empruntée...), puis plusieurs parties MIME comprenant elles aussi des en-têtes (spécifiques à cette partie), et les données elles-mêmes (texte, image, vidéo...). MIME prévoit aussi l'encodage de ces données selon certains besoins et certaines contraintes.

MIME::Base64

Un des encodages préconisés par MIME est le base64. Il est mis à contribution pour transformer les fichiers binaires (images, vidéos, texte formaté...) en longues chaînes de caractères. Le base64 encode les octets de 8 bits sur 6 bits, qui sont eux-mêmes codés en utilisant un sous-ensemble de l'US-ASCII : [A-Za-z+/=].

L'API de ce module est très simple : elle est constitué en tout et pour tout de deux fonctions exportées.

encode_base64()
Cette fonction encode la chaîne passée en argument.
decode_base64()
Cette autre décode la chaîne passée en argument.

Boris

On expliquait dans l'article précédent sur MIME et MIME::Lite que même si la théorie voulait qu'on ait le choix de l'encodage d'une partie MIME, il en était autrement dans la pratique. Pour s'assurer de l'intégrité des données transmises via un courriel, il apparaissait assez vite qu'à un type de données correspond un encodage particulier.

Mais ceci ne s'applique pas à mon ami Boris (vous aurez remarqué au cours de ces trois articles que j'ai beaucoup d'amis ;-).

Mon ami Boris espionne la République Démocratique de Bordurie pour le compte de la Syldavie depuis bien longtemps maintenant. Comme tout bon espion, il sait que les méthodes de dissimulation les plus simples sont souvent les meilleures.

Alors Boris fait passer des documents confidentiels comme s'ils étaient des photographies en les encodant en base64.

    #!/usr/bin/perl -w
    use strict;
    use MIME::Lite;

    my $o = MIME::Lite->new();

    $o->field_order(qw(from to date subject));

    $o->build(From     => 'boris@boris.org',
              To       => 'igor@igor.org',
              Subject  => "mon beau petit chat",
              Data     => "Rendez-vous ce soir\nVenez seul",
              Encoding => 'base64',
              Type     => 'image/pjpeg'
    );

    $o->send();

Et voici ce que cela donne :

    From: boris@boris.org
    To: igor@igor.org
    Date: Fri, 19 Mar 2004 08:41:08 UT
    Subject: mon beau petit chat
    Content-Disposition: inline
    Content-Transfer-Encoding: base64
    Content-Type: image/pjpeg
    MIME-Version: 1.0
    X-Mailer: MIME::Lite 2.117  (F2.72; B2.21; Q2.21)

    UmVuZGV6LXZvdXMgY2Ugc29pcgpWZW5leiBzZXVs

Igor, le destinataire, n'a plus qu'à exécuter l'uniligne suivant :

    $ perl -MMIME::Base64 -nle 'chomp;print decode_base64($_) if /^$/..1' mess_boris.txt

Et il obtient bien :

    Rendez-vous ce soir
    Venez seul

Il ne s'agit là pas encore de stéganographie mais on s'en approche.

Le courriel de Boris est anormalement simple et il faudrait habituellement plus qu'un simple flip-flop pour déterminer qui fait quoi dans l'habillage d'un message MIME.

Evidemment étant donné la simplicité du rendu des courriels de Boris, Igor ne voit pas la nécessité d'employer une suite d'outils plus sophistiquée pour analyser son message. Nous si.

MIME::Parser

MIME::Parser est l'élément magique des MIME::Tools. C'est celui qui va transformer une source de données quelconque en objet Perl (un objet MIME::Entity), utilisable par la suite par les autres membres de la famille MIME::Tools.

Ce module propose un nombre certain de méthodes. On peut évoquer les multiples méthodes d'analyse qui sont autant d'appels à la même méthode parse() avec certaines automatisations. Il y a aussi toutes celles qui vont déterminer comment le module doit travailler (avec des fichiers temporaires sur disque, où les mettre, avec la RAM...). D'autres encore sont pensées pour gérer les erreurs.

Je ne prétend pas ici vous présenter MIME::Parser de la façon dont je l'ai fait pour d'autres, mais simplement vous décrire un peu les fonctionnalités que je vais utiliser plus bas, et essayer de vous donner l'eau à la bouche.

new()
C'est évidemment la méthode qui constuit et initialise un objet analyseur.
```
    $parser = MIME::Parser->new();
```
parse()
C'est la formule magique :). Elle prend comme argument n'importe quel descripteur de fichier, ou n'importe quel objet dont la classe implémente les read() et getline() de l'interface IO::.

Elle renvoie un objet MIME::Entity en cas de succès et undef dans le cas contraire.
```
    $entity = $parser->parse(\*FH);
```
output_dir()
C'est une des nombreuses méthodes pour modifier la façon qu'aura MIME::Parser de travailler. En l'occurrence, on lui spécifie ici de stocker les résultats de son analyse au moyen de fichiers temporaires, dans un certain répertoire.

L'argument de cette méthode est un chemin.
```
    $parser->output_dir("/tmp");
```

MIME::Entity

C'est de ce module plus précisément que MIME::Lite, présenté dans l'article précédent, est une version allégée. On y retrouve beaucoup des éléments de l'API de MIME:Lite, notamment toutes les méthodes de contruction du message (build(), attach() entre autres).

On y retrouve aussi (et surtout pour le propos de cet article) des méthodes pour analyser un message MIME représenté par un objet MIME::Entity.

new()
Le constructeur, incontournable lors d'un module orienté objet.
```
    $entity = MIME::Entity->new();
```
parts()
Il s'agit ici de décomposer le message MIME et d'isoler ses différents composants (parties MIME).

Avec un numéro d'index n en argument, cette méthode renvoie le n-ième composant du message MIME. Autrement, une liste de toutes les parties MIME est renvoyée. Cette méthode peut aussi servir dans le cadre de la construction d'un message MIME. Référez-vous à la documentation pour savoir comment.
```
    @parts = $entity->parts();
```
body()
Cette méthode renvoie le corps d'une partie MIME, encodé, prêt à l'emploi. Il s'agit d'une structure en lecture seule et elle est sous la forme d'une référence à un tableau de lignes composant le corps du message.
```
    $body_ref = $entity->body();
```
head()
Ici ce sont les en-têtes du message qui sont renvoyées sous la forme d'un objet MIME::Head.
```
    $head = $entity->head();
```

Réception de courriels avec Perl

Chapeau

Introduction

De son arrivée dans votre boîte

Du plus simple

Au plus compliqué

En passant par des solutions intermédiaires

POP3

La conversation entre client et serveur

Net::POP3

La méthode new()

La méthode login()

La méthode apop()

La méthode list()

La méthode top()

La méthode get()

La méthode getfh()

La méthode uidl()

La méthode delete()

La méthode reset()

La méthode quit()

Encore quelques mots

Biff.pl

Biffplus.pl

MIME::Tools

Rappel succinct

MIME::Base64

Boris

MIME::Parser

MIME::Entity

Je ne suis plus président !

Qu'est-ce qui change ?

Et qu'est-ce qui reste identique ?

moncourriel.pl v3.0-final

Comment ça marche ?

Quelques mots de plus

Conclusion

Références de l'article

Les modules mentionnés

Annexes

Notes de l'article

Auteur

La méthode `new()`

La méthode `login()`

La méthode `apop()`

La méthode `list()`

La méthode `top()`

La méthode `get()`

La méthode `getfh()`

La méthode `uidl()`

La méthode `delete()`

La méthode `reset()`

La méthode `quit()`