SaiyanM
User
Feb 4, 2001, 3:11 PM
Post #1 of 8
(926 views)
|
|
Why isnt this working...
|
Can't Post
|
|
I made this cgi guestbook, I want to know why it doesnt work...
#!/usr/local/bin/perl
$qstring = $ENV{'QUERY_STRING'};
$site_name = Saiyan Menacy
####### This is the absolute pathname of the email log.
$guestbook="/data1/virtualave.net/saiyanh/public_html/emaillog.html";
####### The following accepts the data from the form
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
######## The following code posts the log entry
open (GUESTBOOK,"<< $guestbook");
$currenttime=localtime;
######## We now add the entry to $GUESTBOOK
print GUESTBOOK "$currenttime from $ENV{'REMOTE_HOST'}<BR>\n";
print GUESTBOOK "<FONT SIZE=+1>$FORM{name}<\FONT>";<BR>
print GUESTBOOK " [<A HREF=\"mailto:$FORM{email}\"><I>$FORM{email}</I></A>]<BR>";
print GUESTBOOK "<P><FONT SIZE=+1>The user writes:<\FONT><BR>";
print GUESTBOOK "$FORM{feedback}<HR><P>\n";
close (GUESTBOOK);
###### The following sends the email
open (MESSAGE,"| /var/qmail/bin/qmail-inject");
print MESSAGE "To: $FORM{submitaddress}\n";
print MESSAGE "From: $FORM{name}\n";
print MESSAGE "Reply-To: $FORM{email}\n";
print MESSAGE "Cc: $FORM{$email}\n";
print MESSAGE "Subject: Feedback from $FORM{name} at $ENV{'REMOTE_HOST'}\n\n";
print MESSAGE "The user wrote:\n\n";
print MESSAGE "$FORM{feedback}\n";
######The following creates the Thank You page display
sub thank_you {
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>Thank You!</TITLE>\n";
print "</HEAD>\n";
print "<BODY BGCOLOR=#FFFFCC TEXT=#000000>\n";
print "<H1>Thank You!</H1>\n";
print "\n";
print "<P>\n";
print "<H3>Your feedback is greatly appreciated.<BR>\n";
if ($FORM{newsletter} eq "yes")
{print " "; }
elsif ($FORM{newsletter} eq "no")
{print " "; }
else
{print ""}
print "<P>\n";
print "</BODY>\n";
print "</HTML>\n";
exit(0);
}
###########This makes the form
if ($qstring eq "sign") {
print "Content-type: text/html\n\n;"
print "<<FORM;
<HTML>
<HEAD>
<TITLE>Sign $site_name 's Guestbook</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<FORM METHOD="post" ACTION="/cgi-bin/guestbook.cgi">
<INPUT NAME="name" SIZE=50 TYPE="text"> <B>Your Name</B><BR>
<INPUT NAME="email" SIZE=50 TYPE="text"> <B>Your E-Mail Address</B><BR>
<INPUT TYPE="hidden" NAME="submitaddress" VALUE="SaiyanM@hotmail.com">
<B>Comments</B><P>
<TEXTAREA NAME="feedback" ROWS=10 COLS=50></TEXTAREA><P>
<CENTER>
<INPUT TYPE=submit VALUE="SEND">
<INPUT TYPE=reset VALUE="CLEAR">
</CENTER>
</FORM>
</BODY>
</HTML>
FORM
exit;
}
|
MAIN
SEARCH
WHO'S 
LOG 