| Server IP : 208.122.213.31 / Your IP : 216.73.216.45 Web Server : Apache System : Linux msd6191.mjhst.com 4.18.0-553.137.1.el8_10.x86_64 #1 SMP Wed Jun 24 11:40:24 UTC 2026 x86_64 User : WHMCS_MIA_382 ( 1001) PHP Version : 7.4.33 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /home/httpd/html/baberankings.com.bak/cgi-bin/ |
Upload File : |
#!/usr/bin/perl
$lib = "/library"; # Default path for loading libraries
require "$lib/cgi-lib.pl";
$mailProgram = '/usr/sbin/sendmail';
# Email id to send the email to
$emailId = 'ramster@baberankings.com';
#################################################################################
#
# Email Form Return V1.0 by TechnoSpring Software
#
# No part of this script can be resold or redistributed without prior consent.
# You can use it in your site as you need it.
# Do not remove this copyright notice
# Add a link to http://www.dreamcatchersweb.com/
#
# (c)2001-2002 TechnoSpring Software
# Websites :
# http://www.ProjectSpring.com
# http://www.TheCentralMall.com
# http://www.DreamCatchersWeb.com
# http://www.TechnoSpring.com
#
# Please read the license for more information
#
#################################################################################
#
# Instructions
# - Copy emailformreturn.cgi to your cgi directory and update path in emailform.html file
# - Update $emailId, $mailProgram, $lib and perl path in emailformreturn.cgi file
#
#################################################################################
print "Content-type: text/html\n\n";
# Get the form variables
&ReadParse();
$yourname = $in{'yourname'};
$email = $in{'youremail'};
$mesg = $in{'mesg'};
# Send invitation to member friends
open(MAIL,"|$mailProgram -t");
print MAIL "From: $email <$email>\n";
print MAIL "To: $emailId\n";
print MAIL "Subject: Message from site visitor\n\n";
print MAIL "Name : $yourname \n\n Email : $email \n\n Message : \n $mesg";
print MAIL ".\n";
close (MAIL);
# send success message to front end
print qq(
<html>
<head></head>
<body marginheight=0 marginwidth=0 topmargin=0 leftmargin=0>
<table border=0 width="99%">
<tr bgcolor="#6699cc">
<td colspan=2>
<font face=arial size=2 color=white><b>Contact Us</b></font>
</td>
</tr>
<tr bgcolor="#f3f3f3">
<td colspan=2>
<font face="arial" size=2 color="#666666"><b>
<b>Success : Email sent </b></font>
<br><br>
<b><font face=arial size=2>
An email has been sent with your message.
Thank you.</font>
<br><br>
<br><br>
<br><br>
<br><br>
<br><br></b>
</td>
</tr>
</table>
</body>
</html>
);
return;