Some exim ugly hacks

decode-mime-headers.pl

#!/usr/bin/env perl
use open qw(:std :utf8);
use Encode qw(decode);

while (my $line = <STDIN>) {
        print decode("MIME-Header", $line);
}

frozen-info.sh

#!/bin/bash
for i in `exim -bp | grep frozen | awk '{print $3}'`; do
	echo --- $i
	exim -Mvc $i | grep -e Subj -e ^Date -e ^From -e ^To
	echo
done | decode-mime-headers.pl

kick-bounce-mails.service

[Unit]
Description=Kick bounced mails to be sent

[Service]
ExecStart=/usr/local/bin/kick-bounce-mails.sh

[Install]
WantedBy=multi-user.target

kick-bounce-mails.sh

#!/bin/bash

set -e
set -x

tail -F -n0 /var/log/exim4/mainlog \
	| grep --line-buffered "MAIL FROM:<>" \
	| awk '{print $3; system("")}' \
	| while read -r i; do

	sleep 1
	exim -Mes $i $BOUNCE_MAIL_FROM
	exim -M $i

done