
SaiyanM
User
Feb 4, 2001, 3:11 PM
Post #1 of 8
(1296 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; }
|