[O mne] [Foto] [Haluze] [NET] [Šopa] [Priatelia]
Tento program naloží so zdrojovými súbormi mailu (majú textový charakter) ako keby tento mail bol napísaný napríklad v Linux-poštovom kliente.
Zdrojový súbor mailu musí mať záhlavie, v ktorom je minimálne jeden riadok a to (adresu program hľadá vždy v špicatých zátvorkách):
potom nasleduje voľný riadok a potom text správy.
To: aljdflasdjf <asdf.jkl@domena.do>
Program sa spúšťa príkazom posli.pm <subor>
#!/usr/bin/perl
print "posielanie mailu; (c)1999 Somebody\npouzi: posli.pm subor.elm\n";
$subor=shift or die "chyba parameter s menom suboru !";
open S, "<$subor" or die "nemozem otvorit $subor : $!";
while (<S>) {
if (/^To:.*<(.*)>/) { push @adresy, $1; }
if (/^Cc:.*<(.*)>/) { push @adresy, $1; }
}
close S;
while ($email=pop @adresy) {
print "posielam mail na adresu $email\n" ;
!system "mail $email < $subor" or die "chyba pri posielani na adresu $email";
}
print "maily poslane !\n";