stanton414
04-29-2003, 11:55 AM
I have designed a simple CGI forum. It works fine on my WIN98 Apache server (on my home machine). But whenever i upload it to my webpage i just get Premature End Of Script Errors (no extra error information). Here is the troubled script...
#!/usr/bin/perl -w
use strict;
use CGI qw(:all);
my(%userlist,$username,$password);
sub CreateUser {
$username = param('username');
$password = param('password');
$username=~tr/`/'/;
$password=~tr/`/'/;
$username=substr($username,0,20);
$password=substr($password,0,20);
dbmopen(%userlist,"userlist",0666)||die "cant make dbmfile: $!";
if (defined $userlist{$username}) {
print redirect (-uri => "/Future/UserExist.shtml");
}else{
$userlist{$username} = $password;
print redirect (-uri => "/Future/forum.shtml");
}
dbmclose(%userlist);
}
CreateUser;
/////////////////////////////////////////////
Help much appreaciated TNX
#!/usr/bin/perl -w
use strict;
use CGI qw(:all);
my(%userlist,$username,$password);
sub CreateUser {
$username = param('username');
$password = param('password');
$username=~tr/`/'/;
$password=~tr/`/'/;
$username=substr($username,0,20);
$password=substr($password,0,20);
dbmopen(%userlist,"userlist",0666)||die "cant make dbmfile: $!";
if (defined $userlist{$username}) {
print redirect (-uri => "/Future/UserExist.shtml");
}else{
$userlist{$username} = $password;
print redirect (-uri => "/Future/forum.shtml");
}
dbmclose(%userlist);
}
CreateUser;
/////////////////////////////////////////////
Help much appreaciated TNX