#!/usr/bin/perl my $FORWARD_TO = "usu\@usupi.org"; my $SENDMAIL_CMD = "/usr/sbin/sendmail -oi $FORWARD_TO"; my $FORWARD_MAX_LINES = 10; 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 = ""; my $line = 0; # parse header while (<>) { chop; last if /^\s*$/; $forward = 1 if /^Subject:\s*KEITAI/; $message .= "$_\n"; } # get content while (<>) { $message .= $_; $line++; } exit 0 unless $forward && $line <= $FORWARD_MAX_LINES; &send_mail($SENDMAIL_CMD, $message); 0;