Prevod mailu na html

Pátek Září 24 14:10:58 CEST 1999

Pavel Trefny wrote:
> 
> Dobry den,
> neporadil by mi nekdo jakym stylem prevest mail na html podobu
> (potrebuji prevadet z "/var/spool/mail/xxx" nebo jineho souboru)
> Nejlepe aby byl jeden mail jeden html soubor a nejak se na tyto
> soubory delaly odkazy na jedne strance podle predmetu zprav.
> Dekuji za Vasi pomoc

No ja bych zkusil poslat prichozi mail rourou do skriptiku, ktery by
ulozil
mail jako soubor a nejak ho pekne upravil (odsekani a pridani hlavicek).
Jmeno by se mohlo vytvorit podle subjektu plus nejakeho randomu,
aby kdyz prijdou dva maily se stejnym subjektem, aby se daly rozeznat.
Na odebrani a pridani hlavicek treba

#!/usr/bin/perl
print qq(<HTML>\n<BODY>\n); #uplne staci
tady nejake otevreni MAIL, standardne STDIN
$radek=<MAIL>;
while ($radek=="\n" or $radek=="")
   $radek=<MAIL>;
while (<MAIL>)
  { print($1);}
print qq(</BODY>\n</HTML>\n);

Pritom by mohl script pridat radek do souboru, ktery by mohl vypadat
treba
<TR><TD>$autor</TD><TD><A HREF="soubor">$Subject</A></TD</TR>
kteryzto file by se mohl vkladat pres shtml do nejake tabulky.

-- 
Oto 'tapik' Buchta