Le Mercredi 6 Août 2003 11:31, [OSMOWEB.COM] INFO a écrit :
> Je cherche une application php ou autre pour transferer des mails
> d'une boite au lettre vers une autre
> Ex : Transfert des boites en cas de changement de serveurs mails
Un outil que j'ai écrit en 10 mn et que j'utilise en interne. Attention,
pas de gestion d'erreurs, pas de garanties, rien du tout. Nécessite
libnet-perl. YMMV. Bonne chance, Jim.
--8<--------------------------------------------------------------------
#!/usr/bin/perl
use strict;
use Net::POP3;
use Net::SMTP;
my ($pop, $i, $msg, $line, $smtp) = "";
my @stats = ();
my $smtpserv = "localhost";
my $rejectsto = "[EMAIL PROTECTED]";
my ($popserv, $login, $passwd, $email) = @ARGV;
($#ARGV == 3) or die("Usage: $0 <server> <login> <password> <e-mail>");
$pop = Net::POP3->new($popserv);
$pop->login($login, $passwd);
@stats = $pop->popstat();
for ($i = 1; $i <= $stats[0]; $i++) {
print("Message $i: Retrieving... ");
$msg = $pop->get($i);
print("Sending... ");
$smtp = Net::SMTP->new($smtpserv);
$smtp->mail($rejectsto);
$smtp->to($email);
$smtp->data();
foreach $line (@$msg) {
$smtp->datasend($line);
}
$smtp->dataend();
$smtp->quit();
print("Done!\n");
}
printf("%d kilobytes transferred in %d messages.\n", $stats[1] / 1024,
$stats[0]);
$pop->quit();
--8<--------------------------------------------------------------------
PS : ton Reply-To: est positionné, c'est Mal©
+++
--
[ Jacques Caruso <[EMAIL PROTECTED]> Développeur PHP ]
[ Monaco Internet http://monaco-internet.mc/ ]
[ Tél : (+377) 93 10 00 43 Clé PGP : 0x41F5C63D ]
[ * When cryptography is outlawed, only outlaws will $AtzC fd!C3nOP% * ]
Linux-Azur : http://www.linux-azur.org
Désinscriptions: http://www.linux-azur.org/liste.php3
**** Pas de message au format HTML, SVP ****
