Merci bcp.
Sympa ton petit script... et efficace
Le Lundi 5 Juillet 2004 16:51, Edgar Bonet a écrit :
> 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> --------------------
--
Dans la vie... l'essentiel c'est d'être vivant.
Ou alors... mort de rire.
"Robert Billon" <rleb07@???>
http://f3wm.free.fr
http://rleb07.free.fr
