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
