#!/usr/bin/perl

# Log in Maillog
sub log_mail {
  $text = shift;
  print STDERR "LOG $text\n";
}

# hole E-Mail Infos und Content
$context        = shift;
$mail_from      = shift;
$mail_to        = shift;

$mail_content   = undef;
while (<STDIN>) {
  $mail_content .= $_;
}

$pattern = '(^|\n)X-Delivered-To: ([^ ]*)($|\n)';
if ($mail_content =~ m/$pattern/) {
  &log_mail("Header bereits gesetzt");
}
else {
  &log_mail("Header wurde gesetzt");
  print STDOUT "X-Delivered-To: $mail_to\n";
}

print STDOUT "$mail_content";
exit;