#!/usr/local/bin/perl

use Mail::Address;
use Email::Simple;

local $/; my $content = <>;
$content =~ s/^X-Reputation: [^\n]+$//g;
my $mail = Email::Simple->new($content);

my $address = (Mail::Address->parse($mail->header('From')))[-1];
my $email = $address->address;

next unless length $email;
my @relationships;

`/etc/mail/filster/orkut.pl $email`; if ($?) {
	push @relationships, "friend (orkut)";
}

`/etc/mail/filster/foaf.pl $email`; if ($?) {
	push @relationships, "peer (foafweb)";
}

`/etc/mail/filster/rrn.pl $email`; if ($?) {
	push @relationships, "peer (reputations research network)";
}

`/etc/mail/filster/cpan.pl $email`; if ($?) {
	push @relationships, "peer (CPAN)";
}

$mail->header_set('X-Relationships', @relationships);

print $mail->as_string;

exit 0;