Autorespond voor Exim

[Domenico]

Ik weet even niet wie dit script nodig had maar ik was het ook helemaal vergeten.
Succes!

#!/usr/bin/perl

$addy = $ARGV[0];
$dir = $ARGV[1];

if (! -d $dir) {
$dir = (getpwuid($>))[7];
$dir .= "/.autorespond";
}


while(<STDIN>) {
if (/^from: (.*)$/i) {
if($from ne "") { next; }
$from = $1;
$from =~ s/\n//g;
}
if (/^reply-to: (.*)$/i) {
$from = $1;
$from =~ s/\n//g;
}
if (/^subject: (.*)$/i) {
$subject = $1;
$subject =~ s/\n//g;
}
if (/^x-autorespond: /i) {
print "Mail loop detected\n";
exit;
}
if (/^x-loop: /i) {
print "Mail loop detected\n";
exit;
}
if (/^precedence: list/i) {
print "Mailing List detected\n";
exit;
}
if (/^precedence: junk/i) {
print "Junk Mail detected\n";
exit;
}
if (/^\n/) {
last;
}
}

open(SENDMAIL,"|/usr/sbin/sendmail -t");
print SENDMAIL "To: $from\n";
print SENDMAIL "X-Autorespond: $subject\n";
print SENDMAIL "X-Loop: $from\n";
open(RES,"$dir/$addy");
while(<RES>) {
print SENDMAIL $_;
}
close(RES);
close(SENDMAIL);
exit(0);

[Domenico]

Hoi Deimos,

Ik hoop dat je al gekeken naar dit script want ik heb het speciaal voor je geregeld en doet precies wat jij wilt :)

Groeten,
Domenico