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
