#!/usr/bin/perl

require "subparseform.lib";
&Parse_Form;

$Name = $formdata{'Name'};
$Address = $formdata{'Address'};
$City = $formdata{'City'};
$State = $formdata{'State'};
$Zip = $formdata{'Zip'};
$DayPhone = $formdata{'DayPhone'};
$DayExt = $formdata{'DayExt'};
$EveningPhone = $formdata{'EveningPhone'};
$EveningExt = $formdata{'EveningExt'};
$Email = $formdata{'Email'};
$Resume = $formdata{'Resume'};

$ToEmail = "gsarfatty\@sarfatty.com";
$ToSubject = "R�sum�";

$EmailBody = "Sent By: $Name\nAddress: $Address\nCity: $City\nState: $State\nZip: $Zip\nDayPhone: $DayPhone\nDayExt: $DayExt\nEveningPhone: $EveningPhone\nEveningExt: $EveningExt\nEmail: $Email\n\nResume: \n$Resume\n";

$Message = $EmailBody;

open (MAIL, "|/usr/sbin/sendmail -t") || &ErrorMessage;
print MAIL "To: $ToEmail \nFrom: $Email\n";
print MAIL "Subject: $ToSubject\n";
print MAIL "$Message\n";
close (MAIL);

print "Content-type: text/html\n\n";
print "_root.Mail.EmailStatus=Complete - Your R�sum� has been sent";

sub ErrorMessage {
print "Content-type: text/html\n\n";
print "_root.Mail.EmailStatus=Connection Failed Please Check the path to the Mail program";
exit; }