Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pop3, smtp, attachemnti sve to uz perl.

[es] :: Perl :: Pop3, smtp, attachemnti sve to uz perl.

[ Pregleda: 2807 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Free_Sex
Aleksandar
Beograd

Član broj: 9601
Poruke: 616
*.vdial.verat.net



Profil

icon Pop3, smtp, attachemnti sve to uz perl.04.01.2004. u 20:57 - pre 247 meseci
Dakle pitanje nije bas striktno vezano za perl, ali u menju bih da resim problem.

Potrebno mi je da "proslednim" emailove sa jedne adrese na drugu. Uz pomoc net:pop3 skidam postu uz pomoc sendmaila saljem. Nego pravo je pitanje u vezi attachmenta. Dali jednostavno mogu da uzmem i bukvalno copy paste sadrzaj poruke tako da ne moram da pazim na "razdvajanje" pa ponovo "sastavljanje" istih.

Ocigledno je da bi se jedino menjala polje to: .... ?
 
Odgovor na temu

alex
Aleksandar Radulovic
Senior Software Engineer, Spotify
Stockholm, Sweden

Moderator
Član broj: 71
Poruke: 2194
*.habil.is

Jabber: alex@a13x.info
ICQ: -1
Sajt: www.a13x.info


+1 Profil

icon Re: Pop3, smtp, attachemnti sve to uz perl.05.01.2004. u 10:32 - pre 247 meseci
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
 
Odgovor na temu

Free_Sex
Aleksandar
Beograd

Član broj: 9601
Poruke: 616
*.vdial.verat.net



Profil

icon Re: Pop3, smtp, attachemnti sve to uz perl.06.01.2004. u 18:25 - pre 247 meseci
Pa to mi je u principu i trebalo. Da skinem postu sa net::pop3 znam. I koliko sam skapirao celu pricu on ustvari "generise" neki mnogo lood niz karaktrea kako bi sa njim oznacio pocetka odnosno kraj svakog attachmenta. Mozda cak generise vise takvih sa zvaki po jedan valjda.

Dakle samo izmenjam to: i to je to :) Tako sam i mislio.

Inace srecno badnje vece svim vernicima :)
 
Odgovor na temu

[es] :: Perl :: Pop3, smtp, attachemnti sve to uz perl.

[ Pregleda: 2807 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.