I wrote you some simple code to do the job and added some comments to help you understand what is happening. Copy it, change settings for e-mail address, save in file "email.cgi", upload the file to your server (cgi-bin directory) in ASCII mod (not BINARY!) and CHMOD it to 755 (rwx-rx-rx).
Use such HTML code for the form:
<form action="cgi-bin/email.cgi" method="POST">
Your name: <input type="text" name="name"><br>
Your e-mail: <input type="text" name="email"><br>
<input type="submit" value="Submit this form">
</form>
Once you got it working you can change HTML code between qq~ and ~; so it will fit your site.
Hope this helps!
Perl code:
#!/usr/bin/perl
# Change the path above to the path to Perl on your server
# This one usually works
$your_email = 'you@email.com'; # Your e-mail address
$ subject = 'New contact'; # Subject of the e-mail sent to you
$mailprog = '/usr/sbin/sendmail -t'; # Path to mail software on server
# (ask your server administrator or read server documentation)
# This one usually works
# We use CGI.pm module to easily process the submitted data
use CGI;
$q=new CGI;
# This line of code will help us debugging the script
use CGI::Carp qw(fatalsToBrowser);
# Get the value of the "name" input field and store it in variable $name
$name=$q->param("name"
or error("Please enter your name"
;
# Get the value of the "email" input field and store it in variable $email
$email=$q->param("email"
or error("Please enter your e-mail address"
;
# Check if the e-mail is of type "something@something.com"
unless ($email =~ /([\w\-]+\@[\w\-]+\.[\w\-]+)/) {error("Please enter a valid e-mail address"
;}
# Open sendmail and write an e-mail
open(MAIL,"|$mailprog"
or error("Can't open e-mail program. Check your path!"
;
print MAIL "To: $your_email\n";
print MAIL "From: $name <$email>\n";
print MAIL "Subject: $subject\n\n";
print MAIL qq~Hello
Someone has just submitted your form:
Name: $name
E-mail: $email
Bye!
~;
close(MAIL);
# Display the thank you page
print "Content-type: text/html\n\n";
print qq~
<html>
<head>
<title>Thank you</title>
</head>
<body>
<p align="center"><b>Thank you</b></p>
<p align="center">Your data was submitted!</p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
</body>
</html>
~;
exit;
sub error {
# If something went wrong display an error page
($problem) = @_;
# "$problem" will be replaced with the error message
print "Content-type: text/html\n\n";
print qq~
<html>
<head>
<title>Error</title>
</head>
<body>
<p align="center"><b>Error</b></p>
<p align="center">$problem</p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
</body>
</html>
~;
exit;
}
