#!/usr/bin/perl
my $FORWARD_TO = "usu\@usupi.org";
my $SENDMAIL_CMD = "/usr/sbin/sendmail -oi $FORWARD_TO";

sub send_mail {
	my ($cmd, $message) = @_;
	if(open(MAIL, "|$cmd")) {
		print MAIL $message;
		close MAIL;
	} else {
		print STDERR "cannot open \"$SENDMAIL\".\n";
	}
	1;
}

### main

my $forward = 0;
my $message = "";

# parse header
while (<>) {
	chop;
	last if /^\s*$/;
	$forward = 1 if /^X-Keitai-Forward:/;
	$message .= "$_\n";
}
exit 0 unless $forward;

# get content
while (<>) {
	$message .= $_;
}

&send_mail($SENDMAIL_CMD, $message);
0;