Uz pomoc
Net::POP3 modula poruku dobijas kao niz redova (linija) sa sve header-ima, attachment-ima i ostalim.
Net::SMTP modul ti omogucava da isto tako poruke saljes kao niz redova (
datasend() funkcija). Sve sto bi ti trebalo da uradis je da (eventualno) izmenis
To: stavku headera poruke i prosledis poruku.
Primer (trivijalnog) koda:
Code:
use Net::POP3;
use Net::SMTP;
$pop = Net::POP3->new('pop3mail.server');
$smtp = Net::SMTP->new('mailserver');
$num_messages = $pop->login($user, $pass);
$popmsgs = $pop->list();
foreach $msgnum (keys($popmsgs)) {
$msg = $pop->get($msgnum);
$smtp->mail($tvoj_email);
$smtp->to($kome_prosledjujes);
$smtp->data();
foreach $line ($msg) {
if ($line =~ m/^To:/i) {
$line = "To: $kome_prosledjujes\n";
}
$smtp->datasend($line);
}
$smtp->dataend();
}
$pop->quit();
$smtp->quit();
Kod sam napisao
iz glave i nisam testirao, tako da moze da bude s greskama, ali se generalno vidi
algoritam.
Poz,
alex.
Alex: My favorite site is
http://localhost/
R.J. Oppenheimer: "I am become death, destroyer of worlds" (1945 AD)
tweet.13x ||
linkedin.13x
Pop3, smtp, attachemnti sve to uz perl.
