Received path

A perl script to make a received path header line:

#!/usr/bin/perl -w

$/ = "\nReceived:";
$\ = "";

$mypath = "X-Received-Path: ";

while (<>)
{
    s/\n\n/\n/;
    print;
    if (/\s+for\s+<(\S+)>/)
    {
        $mypath .= " " . $1;
    }
}

print "$mypath\n\n";

===

This is then called procmail using:

 :0 fhW
        |RecPath

===

Best wishes,

Kalvis
_______________________________________________
procmail mailing list
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail