Re: Remise à zéro mailbox

Top Page

Reply to this message
Author: Edgar Bonet
Date:  
To: Liste Guilde
Subject: Re: Remise à zéro mailbox
Le lundi 5 juillet, Robert Billon a écrit :
> Existe-t-il une commande ou une méthode pour les effacer
> tous en une fois, par exemple pour remettre a zéro une
> mailbox en quota exceeded ?


Voici la mienne :

-------------------- <~/bin/emptypop> --------------------
#!/usr/bin/perl

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

use Net::POP3;

$pop = Net::POP3->new($host)
    or die "Could not connect to $host\n";
$n = $pop->apop($user, $pass)
#$n = $pop->login($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";
-------------------- <~/bin/emptypop> --------------------


-- 
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