# HG changeset patch
# User František Kučera <franta-hg@frantovo.cz>
# Date 1322664274 -3600
# Node ID a5c8edf14f8208420e7ab6bbe1423ae717b140c4
# Parent  2a00ee0b740a6dbd61f693d5d03e6e86d8a82699
Doručenky: sieve přesměrování + skript v perlu (přes aliasy) místo milteru.

diff -r 2a00ee0b740a -r a5c8edf14f82 doručenky/aliases
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/doručenky/aliases	Wed Nov 30 15:44:34 2011 +0100
@@ -0,0 +1,3 @@
+# /etc/aliases
+
+dorucenky: |/usr/local/bin/dorucenky.pl
diff -r 2a00ee0b740a -r a5c8edf14f82 doručenky/dorucenky.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/doručenky/dorucenky.pl	Wed Nov 30 15:44:34 2011 +0100
@@ -0,0 +1,93 @@
+#!/usr/bin/env perl
+
+use strict;
+use MIME::Parser;
+use Net::SMTP;
+
+# K doručenkám typu:
+#	Content-Type: multipart/report; report-type=delivery-status; ~ Delivery Status Notification (DSN)
+# doplňujeme hlavičku References, 
+# aby si je e-mailový klient mohl zařadit do vlákna pod zprávu, ke které doručenka patří.
+
+# viz http://search.cpan.org/~dskoll/MIME-tools-5.502/lib/MIME/Entity.pm
+# viz http://search.cpan.org/~dskoll/MIME-tools-5.502/lib/MIME/Head.pm
+# viz http://search.cpan.org/~gbarr/libnet-1.21/Net/SMTP.pm
+
+
+# Nastavení --------------------------------------------------------------------
+my $komu = 'noreply@example.com'; # adresa správce – sem pošleme zprávy, pokud nevíme, kam je poslat (chybí Delivered-To), nebo máme podezření na zacyklení
+# ------------------------------------------------------------------------------
+
+my $znacka = "X-DSN-Pridej-References"; # hlavička, kterou si poznačíme, že zpráva prošla tímto programem
+my $stav = "chyba - nedefinovano"; # výchozí hodnota naší hlavičky
+
+
+# Načteme zprávu
+my $parser = new MIME::Parser;
+$parser->output_to_core(1);
+my $dorucenka = $parser->parse(\*STDIN);
+
+
+# Kontrola, že se zpráva nezacyklila (chybí naše značka)
+if ($dorucenka->head->count($znacka) == 0) {
+	
+	# Podle hlavičky Delivered-To zjistíme, kam máme zprávu poslat zpátky	
+	my $deliveredTo = $dorucenka->head->get("Delivered-To", 1); # [0] = adresa tohoto skriptu, [1] = předchozí adresa – původní příjemce doručenky 
+	if ($deliveredTo) {
+		$deliveredTo =~ s/\s+$//; # zbavíme se přebytečného konce řádku
+		$komu = $deliveredTo;
+		$dorucenka->head->delete("Delivered-To", 1); # aby si poštovní server nemyslel, že se zpráva zacyklila 
+		
+		# Pokud hlavička References chybí, doplníme ji
+		if ($dorucenka->head->count("References") == 0) {
+			
+			# Zjistíme Message-ID původní zprávy
+			my $messageID;
+			my @casti = $dorucenka->parts;
+			for my $cast (@casti) {
+				if ($cast->mime_type eq "text/rfc822-headers") {
+					my @radky = $cast->bodyhandle->as_lines;
+					for my $radek (@radky) {
+						if ($radek =~ /^Message-ID:\s*(<.*>)$/) {
+							$messageID = $1;
+						}
+					}
+				}			
+			}		
+			
+			# Nastavíme nalezené Message-ID do References hlavičky
+			if ($messageID) {
+				$stav = "ok";
+				$dorucenka->head->add("References", $messageID);
+			} else {
+				$stav = "chyba - Message-ID nenalezeno";
+			}
+			
+		} else {
+			$stav = "hlavicka References uz byla nastavena drive";
+		}		
+	} else {
+		$stav = "chyba - nevime, kam zpravu poslat zpet";
+	}	
+} else {
+	# Zpráva se zacyklila → pouze přidáme svoji značku
+	# a pošleme správci (nezměníme $komu)
+	$stav = "chyba - cyklus";
+}
+
+
+$stav .= " [pid=$$,uid=$>]"; # přidáme PID a UID
+$dorucenka->head->add($znacka, $stav);
+
+# Výpis (nepotřebujeme, jen pro ladění)
+#$dorucenka->print(\*STDOUT);
+#print "Pošleme komu: $komu\n";
+
+# Odeslání přes SMTP (pro ostrý provoz):
+my $smtp = Net::SMTP->new("localhost");
+$smtp->mail('<>');
+$smtp->to($komu);
+$smtp->data();
+$dorucenka->print($smtp);
+$smtp->dataend();
+$smtp->quit;
diff -r 2a00ee0b740a -r a5c8edf14f82 doručenky/doručenky.sieve
--- a/doručenky/doručenky.sieve	Wed Nov 30 15:40:16 2011 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,7 +0,0 @@
-require ["fileinto"];
-# rule:[doručenky]
-if anyof (header :contains "Content-Type" "report-type=disposition-notification;", header :contains "Content-Type" "report-type=delivery-status;")
-{
-        fileinto "Sent";
-        stop;
-}
diff -r 2a00ee0b740a -r a5c8edf14f82 doručenky/global.sieve
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/doručenky/global.sieve	Wed Nov 30 15:44:34 2011 +0100
@@ -0,0 +1,21 @@
+# Kompilace:
+# sievec global.sieve
+
+require ["fileinto"];
+
+# rule:[doručenky]
+if allof (
+		not exists "X-DSN-Pridej-References",
+		header :contains "Content-Type" "report-type=delivery-status;"
+	)
+{
+	redirect "dorucenky@example.com";
+	stop;
+}
+elsif anyof (
+		header :contains "Content-Type" "report-type=disposition-notification;",
+		header :contains "Content-Type" "report-type=delivery-status;"
+	)
+{
+	fileinto "Sent";
+}