|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/leone10/ |
Upload File : |
#!/usr/bin/perl
use CGI::Carp 'fatalsToBrowser';
use Mail::Sendmail;
use CGI ':standard';
my $fullname = param(fullname);
my $company = param(company);
my $address = param(address);
my $city = param(city);
my $state = param(State);
my $zip = param(zip);
my $phone = param(phone);
my $email = param(email);
my $question = param(question);
my $date = localtime();
$email = '[email protected]' unless $email;
my $msg = qq[<HTML><BODY>
<TABLE width=550>
<TD align=center><font color='#333333' face='verdana' size=5><b>Contact<br><br></font></TD><tr>
<TD><table width=550><td width=100><font face='verdana' size=2><B>Submit Date:</B></TD>
<TD width=450><font face='verdana' size=2>$date</TD><tr>
<td colspan=2><p><hr size=1 width=550 color='#333333'><p></td>
<TR>
<TD><font face='verdana' size=2><B>Name:</B></TD><TD><font face='verdana' size=2>$fullname</TD>
<TR><TD><font face='verdana' size=2><B>Address:</B></TD><TD><font face='verdana' size=2>$address</TD>
<TR><TD><font face='verdana' size=2> </TD><TD><font face='verdana' size=2>$city, $state $zip </td>
<TR><TD><font face='verdana' size=2><B>Phone:</B></TD><TD><font face='verdana' size=2>$phone</TD>
<TR><TD><font face='verdana' size=2><B>Email:</B></TD><TD><font face='verdana' size=2>$email</TD>
</TABLE><tr>
<table width=550>
<TR><TD width=100 valign=top><font face='verdana' size=2><B>Question or<br> comment: </B></TD><td valign=top><font face='verdana' size=2>$question</TD><tr>
</table></td></TABLE>
</BODY></HTML>
];
my %mail = (
To => '[email protected]',
From => $email,
Subject => 'Contact - Leone Landscaping & Construction',
'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION",
);
$mail{'mESSaGE : '} = $msg;
sendmail( %mail);
my $url = 'contactresp.asp';
print "Content-type: text/html\n\n";
print qq[
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<title>Redirecting...</title>
<meta HTTP-EQUIV="REFRESH" CONTENT="0;URL=$url">
</head>
<body>
</body>
</html>
];
exit;