#Provide the location of sendmail on your server
#consult server documentation
$sendmailer="/usr/lib/sendmail";

#Provide e-mail to send notices to.  The backslash before the @
#is required!
$emailto="flattext\@flattext.com";

#Provide e-mail to send notices from (should be e-mail for _this_ server)
#The backslash before the @ is required!
$emailfrom="flattext\@flattext.com";

$problem="Can't send mail, check location of sendmail program for patch";
open (MAIL, "| $sendmailer -t") || &security;
print MAIL "To: $emailto\n";
print MAIL "From: $emailfrom\n";
print MAIL "Subject: Record Added Notice\n";
print MAIL "\n";

#Include other things to be send in the body of the message
#below, making sure that you put a \ in front of all
#quote marks that you insert inside print statements
#and in front of all @ symbols, like in e-mail addresses
#You can use the variable names that your script uses
#to send a copy of the record that was just posted
print MAIL "Name: $Name\n";
print MAIL "Address: $Address\n";
print MAIL "City: $City\n";
print MAIL "State: $State\n";
print MAIL "Zip: $Zip\n";
print MAIL "\n";
close(MAIL); 
#end of patch