1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/doručenky/dorucenky-milter.pl Wed Nov 30 15:56:29 2011 +0100
1.3 @@ -0,0 +1,85 @@
1.4 +# E-mailové doručenky je dobré dávat do složky s odeslanou poštou,
1.5 +# kde se můžou řadit do vláken pod zprávu, ke které patří.
1.6 +#
1.7 +# Potvrzení o přečtení posílané klientem (Content-Type: multipart/report; report-type=disposition-notification;)
1.8 +# obsahují hlavičku References se správným Message-ID, takže to funguje.
1.9 +#
1.10 +# Ale potvrzení o doručení posílané serverem příjemce (Content-Type: multipart/report; report-type=delivery-status;)
1.11 +# tuto hlavičku neobsahují, takže si je klient odesílatele nemůže správně zařadit do vlákna pod odeslanou zprávu.
1.12 +#
1.13 +# Možná řešení:
1.14 +# 1) server příjemce tuto hlavičku bude vyplňovat – ideální, ale nemůžeme ovlivnit
1.15 +# 2) na serveru odesílatele původní zprávy (u nás) budeme doplňovat hlavičku References
1.16 +# na základě obsahu přílohy doručenky (text/rfc822-headers), která obsahuje všechny hlavičky
1.17 +# (včetně potřebného Message-ID) původní odeslané zprávy
1.18 +# a) uděláme to tímto milterem
1.19 +# b) pomocí sieve přesměrujeme doručenky na adresu, kde čeká skript/program (roura), který doplní hlavičku a pošle nám zprávu zpátky
1.20 +
1.21 +# Tento milter není hotový a pravděpodobně bude lepší řešení b)
1.22 +# doručenek je totiž minimum z celkového objemu zpráv, a proto bude lepší přes doplňovač prohnat jen doručenky (filtrované sievem)
1.23 +
1.24 +# Instalace tohoto milteru:
1.25 +# aptitude install libsendmail-milter-perl
1.26 +# spustit tento skript → vytvoří unixový socket
1.27 +# v postfixu v main.cf nastavit: smtpd_milters = … unix:/dorucenky/dorucenky.sock
1.28 +
1.29 +# http://search.cpan.org/~cying/Sendmail-Milter-0.18/Milter.pm
1.30 +use Sendmail::Milter;
1.31 +
1.32 +# při jakých akcích bude náš milter volán
1.33 +my %my_milter_callbacks =
1.34 +(
1.35 + 'eoh' => \&my_eoh_callback,
1.36 + 'body' => \&my_body_callback,
1.37 + 'eom' => \&my_eom_callback,
1.38 + 'abort' => \&my_abort_callback,
1.39 +);
1.40 +
1.41 +# konec hlaviček
1.42 +sub my_eoh_callback
1.43 +{
1.44 + my $ctx = shift;
1.45 + # TODO: zkontrolovat
1.46 + # zda se jedná o doručenku
1.47 + # zda už neobsahuje hlavičku References
1.48 + return SMFIS_CONTINUE;
1.49 +}
1.50 +
1.51 +# po každé MIME části
1.52 +sub my_body_callback
1.53 +{
1.54 + my $ctx = shift;
1.55 + # TODO: načíst Message-ID z části s Content-Type: text/rfc822-headers
1.56 + return SMFIS_CONTINUE;
1.57 +}
1.58 +
1.59 +# konec zprávy
1.60 +sub my_eom_callback
1.61 +{
1.62 + my $ctx = shift;
1.63 + # TODO: přidat hlavičku References s Message-ID původně odeslané zprávy
1.64 + $ctx->addheader("X-Perl", "byl jsem tu");
1.65 + $ctx->setpriv(undef);
1.66 + return SMFIS_ACCEPT;
1.67 +}
1.68 +
1.69 +# nečekaný konec spojení
1.70 +sub my_abort_callback
1.71 +{
1.72 + my $ctx = shift;
1.73 + # uklidit po sobě
1.74 + $ctx->setpriv(undef);
1.75 + return SMFIS_CONTINUE;
1.76 +}
1.77 +
1.78 +
1.79 +BEGIN:
1.80 +{
1.81 + # autokonfiguraci nepoužijeme (to je pro Sendmail)
1.82 + # Sendmail::Milter::auto_setconn("myfilter");
1.83 +
1.84 + Sendmail::Milter::setconn("local:/var/spool/postfix/dorucenky/dorucenky.sock");
1.85 + Sendmail::Milter::register("myfilter", \%my_milter_callbacks, SMFI_CURR_ACTS);
1.86 + Sendmail::Milter::main();
1.87 + # Never reaches here, callbacks are called from Milter.
1.88 +}
2.1 --- a/doručenky/dsn-doručenky-references.pl Wed Nov 30 15:44:34 2011 +0100
2.2 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000
2.3 @@ -1,85 +0,0 @@
2.4 -# E-mailové doručenky je dobré dávat do složky s odeslanou poštou,
2.5 -# kde se můžou řadit do vláken pod zprávu, ke které patří.
2.6 -#
2.7 -# Potvrzení o přečtení posílané klientem (Content-Type: multipart/report; report-type=disposition-notification;)
2.8 -# obsahují hlavičku References se správným Message-ID, takže to funguje.
2.9 -#
2.10 -# Ale potvrzení o doručení posílané serverem příjemce (Content-Type: multipart/report; report-type=delivery-status;)
2.11 -# tuto hlavičku neobsahují, takže si je klient odesílatele nemůže správně zařadit do vlákna pod odeslanou zprávu.
2.12 -#
2.13 -# Možná řešení:
2.14 -# 1) server příjemce tuto hlavičku bude vyplňovat – ideální, ale nemůžeme ovlivnit
2.15 -# 2) na serveru odesílatele původní zprávy (u nás) budeme doplňovat hlavičku References
2.16 -# na základě obsahu přílohy doručenky (text/rfc822-headers), která obsahuje všechny hlavičky
2.17 -# (včetně potřebného Message-ID) původní odeslané zprávy
2.18 -# a) uděláme to tímto milterem
2.19 -# b) pomocí sieve přesměrujeme doručenky na adresu, kde čeká skript/program (roura), který doplní hlavičku a pošle nám zprávu zpátky
2.20 -
2.21 -# Tento milter není hotový a pravděpodobně bude lepší řešení b)
2.22 -# doručenek je totiž minimum z celkového objemu zpráv, a proto bude lepší přes doplňovač prohnat jen doručenky (filtrované sievem)
2.23 -
2.24 -# Instalace tohoto milteru:
2.25 -# aptitude install libsendmail-milter-perl
2.26 -# spustit tento skript → vytvoří unixový socket
2.27 -# v postfixu v main.cf nastavit: smtpd_milters = … unix:/dorucenky/dorucenky.sock
2.28 -
2.29 -# http://search.cpan.org/~cying/Sendmail-Milter-0.18/Milter.pm
2.30 -use Sendmail::Milter;
2.31 -
2.32 -# při jakých akcích bude náš milter volán
2.33 -my %my_milter_callbacks =
2.34 -(
2.35 - 'eoh' => \&my_eoh_callback,
2.36 - 'body' => \&my_body_callback,
2.37 - 'eom' => \&my_eom_callback,
2.38 - 'abort' => \&my_abort_callback,
2.39 -);
2.40 -
2.41 -# konec hlaviček
2.42 -sub my_eoh_callback
2.43 -{
2.44 - my $ctx = shift;
2.45 - # TODO: zkontrolovat
2.46 - # zda se jedná o doručenku
2.47 - # zda už neobsahuje hlavičku References
2.48 - return SMFIS_CONTINUE;
2.49 -}
2.50 -
2.51 -# po každé MIME části
2.52 -sub my_body_callback
2.53 -{
2.54 - my $ctx = shift;
2.55 - # TODO: načíst Message-ID z části s Content-Type: text/rfc822-headers
2.56 - return SMFIS_CONTINUE;
2.57 -}
2.58 -
2.59 -# konec zprávy
2.60 -sub my_eom_callback
2.61 -{
2.62 - my $ctx = shift;
2.63 - # TODO: přidat hlavičku References s Message-ID původně odeslané zprávy
2.64 - $ctx->addheader("X-Perl", "byl jsem tu");
2.65 - $ctx->setpriv(undef);
2.66 - return SMFIS_ACCEPT;
2.67 -}
2.68 -
2.69 -# nečekaný konec spojení
2.70 -sub my_abort_callback
2.71 -{
2.72 - my $ctx = shift;
2.73 - # uklidit po sobě
2.74 - $ctx->setpriv(undef);
2.75 - return SMFIS_CONTINUE;
2.76 -}
2.77 -
2.78 -
2.79 -BEGIN:
2.80 -{
2.81 - # autokonfiguraci nepoužijeme (to je pro Sendmail)
2.82 - # Sendmail::Milter::auto_setconn("myfilter");
2.83 -
2.84 - Sendmail::Milter::setconn("local:/var/spool/postfix/dorucenky/dorucenky.sock");
2.85 - Sendmail::Milter::register("myfilter", \%my_milter_callbacks, SMFI_CURR_ACTS);
2.86 - Sendmail::Milter::main();
2.87 - # Never reaches here, callbacks are called from Milter.
2.88 -}