I have a cgi script written in perl. I have a subroutine which prints out the results from my form data
sub print_details{
print "\nWe have recieved your order for a $pizza_size pizza with ";
&pizza_toppings;
}
Since I want the same results to appear when I send an email, how do I call the subroutine?
I tried print SENDMAIL &print_details; as the code below. But, this has no effect.
# send e-mail
my $sendmail;
$sendmail="/usr/sbin/sendmail -t";
open(SENDMAIL , "| $sendmail") ||die("unable to open");
print SENDMAIL "From: $txt_email\n";
print SENDMAIL "To: abc123@hotmail.com\n";
print SENDMAIL "Reply-To: abc123@hotmail.com \n";
print SENDMAIL "Subject: YOUR PIZZA ORDER\n" ;
print SENDMAIL &print_details;
close (SENDMAIL);
Any suggestions...