#!/usr/bin/perl -w

use Mail::SRS;

open SECRET, "< $ENV{HOME}/.srs-secret" || die "could not open ~/.srs-secret";
$secret = <SECRET>;
close SECRET;

my $s = new Mail::SRS(Secret => $secret, MaxAge => 10, HashLength => 8);
my $a = $s->forward("greg\@wooledge.org") || die "SRS encoding failed";
$a =~ s/\@$//;
$ENV{QMAILSUSER} = $a;
$ENV{QMAILSHOST} = "srs.wooledge.org";

exec "/usr/sbin/sendmail", @ARGV;
die "exec of /usr/sbin/sendmail failed";