CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Beginner: Re: How do you use sendmail?: Edit Log



SaiyanM
User

Feb 19, 2001, 4:53 PM


Views: 1033
Re: How do you use sendmail?

nope, that still doesn't work... here is the code again...

<textarea>
#!/usr/local/bin/perl/

#######################
# Saiyan Menacy Guestbook V 1.1
# Don't Sell this, but feel free to distribute is as much as you like
# as long as this header/message stays intact.
# ChibiGuy Productions 2000
# E-Mail- SaiyanM@hotmail.com
#######################

#####Let's Gather the Variables, shall we?
use CGI qw/:standard/;
$name = param('name');
$email = param('email');
$url = param('url');
$sitename = param('sitename');
$message = param('message');
$localtime = localtime;
$IP = $ENV{REMOTE_ADDR};

#####Let's try this e-mail thingamajiggy
sub e_mailPERSON{
open (MAIL,"|/usr/lib/sendmail -t");

print MAIL "To: $email\n";
print MAIL "From: SaiyanM\@hotmail.com\n";
print MAIL "Reply-To: SaiyanM\@hotmail.com\n";

print MAIL "Subject: Thanks For Signing Saiyan Menacy's Guestbook\n\n";
print MAIL "You submitted the following information\n\n";
print MAIL "Name: $name\n";
print MAIL "E-Mail Adress; $email\n";
print MAIL "Site Name: $sitename\n";
print MAIL "Site URL: $url\n";
print MAIL "Message: $message\n\n";
print MAIL "Again, Thanks for signing My Guestbook";
close (MAIL);
}


#####What better to do, than to add the entry?
open(FILE, ">>/data1/virtualave.net/saiyanh/public_html/cgi-bin/guestbook/messages.txt");
print FILE<<END;

<table cellspacing="0" cellpadding="0" border="0" width="700"><tr><td bgcolor="black">

THANKYOU
</textarea>

Does anyone know what the problem is?







(This post was edited by SaiyanM on Feb 19, 2001, 3:57 PM)


This post has not been edited


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives