config.samples/C023

   1 #!/usr/bin/perl
   2 #
   3 # Delivery notification for Exim
   4 # Vladimir Litovka <doka@kiev.sovam.com>, 1999/10/18
   5 #
   6 # Use it in such way:
   7 # 1. Add such entry in transports section:
   8 #
   9 # rrc:
  10 #  driver = pipe;
  11 #  command = "/usr/local/sbin/rrc.pl \
  12 #     ${original_local_part}@${original_domain}"
  13 #  path = "/usr/sbin"
  14 #  user = mail
  15 #  prefix =
  16 #  suffix =
  17 #
  18 # 2. Add shadow_transport in local delivery entry (or entries)
  19 #
  20 # local_delivery:
  21 #  ...
  22 #  shadow_transport = rrc
  23 #
  24 # 3. Enjoy :-)
  25
  26 $who = $ARGV[0];
  27 die "Must be executed from Exim\n" unless ($who);
  28
  29 while (<STDIN>) {
  30   chomp $_;
  31   last if ($_ eq '');           # Empty row - the end of headers
  32   if ( /^\s+/ ) {
  33     if ($header) {
  34       $headers{$header} .= " " . $_ ; }
  35     else {
  36       next; }
  37    }
  38   else {
  39     ($header, $content) = split (/: +/, $_, 2);
  40     $headers{lc($header)} = $content;
  41    }
  42  }
  43
  44 if ( !($to = $headers{'disposition-notification-to'}) ) {
  45   $to = $headers{'return-receipt-to'};
  46  }
  47
  48 if ($too = $to) {       # If there are delivery notification request(s)
  49
  50   # Strip GECOS from RRC header
  51   if ($too !~ s/^.*?<([-=+\.\w\@]+)>.*$/$1/g) {
  52     $too =~ s/^([-=+\.\w\@]+)\s+\(.*?\).*$/$1/g;
  53    }
  54
  55   # Check is RRC header valid
  56   if ($too !~ /^[-=+\w\.]+\@(\w[-\w]*\.)+[a-z]{2,4}$/io) {
  57     $mailto = $headers{'from'};
  58     $x_to = "X-Invalid-DSN-To: $to";
  59    }
  60   else {
  61     $mailto = $to; }
  62
  63   open MAIL, "| sendmail -t";
  64   print MAIL <<_EOM_;
  65 To: $mailto
  66 Subject: Delivery notification
  67 $x_to\n
  68 Your message
  69
  70   From: $headers{'from'}
  71   To: $who
  72   Subject: $headers{'subject'}
  73   Date: $headers{'date'}
  74   Message-ID: $headers{'message-id'}
  75
  76 was successfully delivered. I hope that recipient of your message will
  77 read it and answer you as soon as possible.
  78
  79 --
  80 Yours sincerely,
  81         Mailer-Daemon of Sovam Teleport Ukraine.
  82 _EOM_
  83
  84   close MAIL;
  85  }
  86 exit 0;