[Précédent (date)] [Suivant (date)] [Précédent (sujet)] [Suivant (sujet)] [Index par date] [Index par sujet]

Re: Lire les courriers a l'aide d'un browser

... while talking to smtp12.sympatico.ca.:
>>> RCPT To:<[email protected]>
<<< 550 <[email protected]>... User unknown
550 <[email protected]>... User unknown

tsk tsk tsk.... Enfin

Voici un petit bout de script qui pourrait te donner une idee pour
peu etre te faire une p'tite solution 'homegrown'.

---------------
#!/usr/bin/perl 

# Svp, je suis pas un king du perl...
# loin de la est ma pretension...

use CGI qw(:standard escapeHTML);
use Mail::POP3Client;

my $username = param("username");
my $password = param("password");
my $pop_server = param("pop_server");

$pop = new Mail::POP3Client( USER     => $username,
                             PASSWORD => $password,
                             HOST     => $pop_server );

$pop->Connect() || die $pop->Message();
# Prevois quelque chose autre que "die" pour apache...
# Si ta mailbox est vide

$msgcount = $pop->Count();

while ($msgcount) {
        $message{$msgid++} = $pop->Retrieve($msgcount--);
}

# Chaque message est dans $message{$msgid}
# Si tu veux vraiment voir les messages pas filtres
# fait quelque chose du genre.... 

while ($msgid--) {
        print $message{$msgid};

        # Delete-les a mesure si tu veux avec une p'tite loop...
        # $pop->Delete($msgid);
}

# A partir de la..
# Tu devrais etre amplement capable de fignoler ca... :)
# JF Lauzon <[email protected]>

$pop->Close();

------------
J'espere que ca t'as aide.

Ciao!

JF