I don't really know Perl. Still I do need to add a little something to a script. I've been thinking of using PHP::Interpreter and do my bit in PHP, but it just fails to install on the server.

Well this is the code, it's supposed to read a cookie (if the user is logged in) and check if he's got the correct password in a MySQL database. All I get is a 500 Internal server error

#!/usr/bin/perl

use DBI;
use CGI;
$query = new CGI;
print $query->header;

$username = $query->cookie('ID_FILES');
$password = $query->cookie('KEY_FILES');

if ($username) { 

    my $dbh = DBI->connect ("DBI:mysql:userbase:localhost", "login","pass") || die "Could not connect to database: " . DBI-> errstr;

    my $sql_stmnt = "SELECT * FROM users WHERE username = '$username'";
    my $sth = $dbh->prepare($sql_stmnt);
    $sth->execute();
    my $pass = $sth->fetchall_arrayref();
    $sth->finish();
    $dbh->disconnect();
    
    foreach my $record (@$pass){
        my ($username2, $password2) = @$record;
        if ($password ne $password2) { die "Must be signed in!\n"; }
    }
}

else {
   die "Must be signed in!\n";
}

Thanks...

have you thought about loading fatalsToBrowser?

this will print error messages to the browser instead of just a 500 internal server error

Put this just above use DBI;

use CGI::Carp qw(fatalsToBrowser);

Try adding this line:

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

put it under $password = xx & above the if clause.

Though, adding the use CGI::Carp qw(fatalsToBrowser); helps cuz it prints out your errors to your screen; very beneficial for bug fixing.

I'm not that great with perl, but I have noticed that if uploaded incorrectly scripts won't work....did you make sure to upload in binary instead of auto? Also if the perl path listed was the default, maybe your actual path is different. I'm sure you'll get more helpful responses...good luck to you.