#! /usr/bin/perl

use strict;

my $pandora_home = `echo \$PANDORA_HOME`;
chomp($pandora_home);
my $mail_out_using_sendmail = $pandora_home . "/tools/mail_out_using_sendmail";
my @ARGS;
my $OUTFILE;
my $line;
my $outfilename;
my $recipient;
my $subject;

$recipient = shift;
$subject = shift;
$outfilename = shift;

if (($recipient !~ /\S/) || ($subject !~ /\S/) || ($outfilename !~ /\S/))  {

        die "YOU FOOL! YOU STUPID FOOL! YOU CANT EVEN DRIVE!\n";
}


open OUTFILE, ">$outfilename";

while($line = <STDIN>)
{
	if ($line =~ /##ENDOFINPUT##/)
	{
		last;
	}
	else
	
	{
		print OUTFILE $line;
	}
}

close OUTFILE;

`cat $outfilename | $mail_out_using_sendmail "< $recipient >" "$subject"`;
`rm -f $outfilename`;