Discussion Locked

help with CGI script

0 helpful
1 reply
Closed to new repliesThis discussion is closed. It stays readable, but it takes no new replies.

Listed below is a URL link that has a CGI script to create a guestbook on a web site.

http://builder.com.com/5100-31-5076796.html?tag=search

When I use this script, no data is returned to me from the guestbook form this is completed. I have
included the coding below for the file - guestbook.cgi & also 2 URL's that you can review. Please troubleshoot for me & let me know that I need to do in order for this to function properly.

Please review the source code on the following web pages.

http:\\www.nextgeneration-ministries.com\guestbook.html

http:\\www.nextgeneration-ministries.com\guestbookinfo.html

___________________________________________
guestbook.cgi -
#!/usr/bin/perl

#variables that will be used later.
$guestbookreal = "/guestbook.html";
$return = "http://www.nextgeneration-ministries.com/guestbookinfo.html";
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;
$value =~ s/<\!\-\-.*\-\->//g; # get rid of SSI
$in{$name} = $value;
}

open (FILE,"$guestbookreal");
@LINES=;
chop (@LINES);
close(FILE);
$SIZE=@LINES;

open (GUEST,">$guestbookreal");

for ($i=0;$i<=$SIZE;$i++) {
$_=$LINES[$i];
print GUEST "$_\n";
if (//) {
if ($in{'email'} ne '') {
print GUEST "";
print GUEST "$in{'name'}
:
\n";
} else {
print GUEST "$in{'name'}:
\n";
}
if ($in{'www'} ne '') {
print GUEST "";
print GUEST "$in{'www'}
\n";
}
print GUEST "$in{'body'}

\n";
}
}

close (GUEST);
print "Location: $return\n\n";

__________________________________________
Thank you,
Kirk

1 reply

This discussion is closed to new replies.