[Perl For Cgi. -help!]

got a 500 error that time. went threw your check list and everything. IDK

[Perl For Cgi. -help!]

i bewlive i found the problum but it is a super major one. for some reason i cannot get a param to print out no matter how i try it. ive tryed:

 

print "Content-type: text/html\n\n";

 

print param('name');

and

$name = param('name');

print $name;

and

$CGI = cgi->new;

$name=$cgi->param('name');

print $name;

 

im not sure why. and i know about permissions.

[Perl For Cgi. -help!]

hmmmm..well i tried that and got an error again. Another hint?

[Perl For Cgi. -help!]

pre mature end of script headers. dont tell you much cept that the script dont work].

[Please Add Gfxpg.com]

please add:

 

Graphix Playground

 

to the family.

 

name is Graphix Playground

 

Description: A New site dedicated to graphix and all the graphix programs.

 

I have a link to the TCH Home page on my site.

 

Rank Evaluation (please).

[Perl For Cgi. -help!]

Well im new to scripting and i attepmted to right a basic guest book that i am going to one day turn into a full blown forum. I was just wondering if any one can point out what i did wrong on this script. Please HELP!

 

#!/usr/bin/perl

use CGI;

 

my $cgi = CGI->new();

 

 

my $name = $cgi->param('name');

my $msg = $cgi->param('msg');

 

 

if (length ($name) > 50 || length ($msg) > 2000) {

print "Content-type: html/text\n\n";

print "Your name or message was too long.";

exit;

}

 

 

$msg =~ s/[\n\r]/<br>/g;

 

 

open (LOG, ">>msg_log.txt") || die ("Can't open msg_log.txt: $!");

flock (LOG);

print LOG "$name wrote: $msg\n";

close (LOG);

 

print "Content-type: html/text\n\n";

print "Thanks for your message";

exit;

 

I suck at de-buggin and cant seem to figure it out. so please help.