SimplePOP - Un CGI permettant de regarder/vider vos boites mails POP3
simplePOP.cgi permet d'interroger un serveur POP3 afin de regarder sa messagerie.
Cela permet également de détruire les mails non désirés (virus, spam, ...).
Pour installer ce programme vous devez disposer du module Mail::POP3Client,
du package MailTools et d'un hébergement permettant les CGI.
Pour installer le module Mail::POP3Client, vous avez trois choix:
-
Vous êtes administrateur, dans ce cas vous savez ce qu'il y a faire.
(module CPAN, search.cpan.org, ppm, ...)
-
Vous demandez à votre hébergeur de le faire
-
Vous n'avez pas d'assistance ... récupérer le module Mail::POP3Client
sur http://search.cpan.org, prenez le fichier POP3Client.pm et mettez-le
dans un répertoire Mail/. Utilisez ensuite la directive
use lib '/le/chemin/de/Mail'; pour indiquer à Perl où trouver le module.
Une fois ce module installé, adopter la même attitude pour les fichiers du
package Mailtools.
Enfin positionnez le script dans un répertoire
acceptant les CGI, mettez-lui les droits en execution, modifiez au besoin
les variables $homeurl et $style en haut de fichier.
Alain BARBET alian@alianwebserver.com Copyright 1/2001 v2.0
Update : Utilisation de CGI.pm, use strict, MIME::Parser, mise en page, cookies
Original Author Kerney Gouch (Lumiere Technologies) Copyright 7/1999 v1.0
titre($titre)
-
Cree l'entete HTML de la page
get_cookie($name,$value)
-
Positionne le cookie $name valeur $value pour 1 mois dans le repertoire cgi-bin
- Connect_screen
-
Affiche l'ecran HTML de connection
ReadMsg($Num)
-
Affiche l'ecran HTML pour le message $Num
DeleteMsg($Num)
-
Supprime le message no $num sur le serveur pop, et affiche
la liste des messages actualisés.
- GetHeaders
-
Recupere la liste des entetes des mails presents. Retourne les
references vers les tableaux \@sub,\@from,\@date,\@to pour
sujet, destinataire, date, emetteur.
Display($rsub,$rfrom,$rdate,$rto)
-
Affiche l'ecran HTML avec la liste des messages
getMailEntity($num)
-
Recupere le mail no $num, et retourne un object MIME::Head
Buttons($c,$style)
-
Affiche le code HTML des boutons ``back'' ``read'' ``next'' ``next>>'' ``<<previous''
- Connection
-
Etablit la connection avec le serveur POP3. Retourne un object de
type Mail::POP3Client si cree, sinon die en signalant l'erreur