Re: fetchmail

Page principale

Répondre à ce message
Auteur: Edgar Bonet
Date:  
À: Liste Guilde
Sujet: Re: fetchmail
Le vendredi 2 avril, anne a. a écrit :
> CA MARCHE sauf la suppression des mails sur le serveur du fai ;o((
> Pour l'instant, je n'ai pas trouvé


S'il s'agit de TOUT supprimer, j'ai ma méthode brutale :

    #!/usr/bin/perl


    $host = "...";
    $user = "...";
    $pass = "...";


    use Net::POP3;


    $pop = Net::POP3->new($host)
        or die "Could not connect to $host\n";
    # on peut aussi faire $n = $pop->login($user, $pass)
    $n = $pop->apop($user, $pass)
            or die "Authentication failure: $n\n";
    print $n==0 ? "No" : $n, " message", $n==1 ? "" : "s", "\n";
    for ($i=1; $i<=$n; $i++) {
        $pop->delete($i)
            or warn "Could not delete message $i\n";
    }
    $pop->quit() or die "Error closing pop session\n";


-- 
Edgar Bonet           Maison : 04 76 21 29 16    Bureau : 04 76 88 10 96
3 rue Jean Prévost    Mobile : 06 77 19 79 39    Fax    : 04 76 88 11 91
38000 Grenoble        guilde@???     www.edgar-bonet.org