• Howdy! Welcome to our community of more than 130.000 members devoted to web hosting. This is a great place to get special offers from web hosts and post your own requests or ads. To start posting sign up here. Cheers! /Peo, FreeWebSpace.net
managed wordpress hosting

Perl and mySQL, need help

K

kennymoens

New Member
Hi all,

I'm running a mySQL database, its correctly set up with phpMyAdmin, but since all my scripts are in Perl I would like to access my database via Perl. I've done this, but I always get a 500 error, so I think there must be an error in my code.

Here is the code:
Code: 
# Connection to the Database #
$DSN = "DBI:mysql:database=sabenava_timetable";
$user = "ain't giving to you";
$pw = "ain't giving to you";
$dbh = DBI->connect($DSN,$user,$pw) || die "Connection Failed";

# Executing the command #
my $query="SELECT cat,flightnr,dep,arr,icaodep,
   icaoarr,freq,aircraft,deptime,flighttime,arrtime FROM timetable";
my $sth=$dbh->prepare($query);
$sth->execute || die "Could not execute SQL 
   statement ... maybe invalid?";


# Declare the Variables  #
my ($dbcat,$dbflightnr,$dbdep,$dbarr,$dbicaodep,$dbicaoarr,
   $dbfreq,$dbaircraft,$dbdeptime,$dbflighttime,$dbarrtime);

print "Content-type: text/html \n\n";
print qq~
<html><head>
<title>Database</title>
</head><body>
~;

# Collect the data #
while ( ($dbcat,$dbflightnr,$dbdep,$dbarr,$dbicaodep,
   $dbicaoarr,$dbfreq,$dbaircraft,$dbdeptime,$dbflighttime,
   $dbarrtime) = $sth->fetchrow() ) {
        print "$dbcat";
}

# Gegevens Afdrukken #
print qq~
</body></html>
~;

$dbh->disconnect;

(Note: some things need to be at the same rule)
Hope you see the error,

thx for the help
 
First thing first: have you checked your error logs? Have you run 'perl -c filename.pl' to see if there is a parse error somewhere?

I'm assuming you posted only the relevant parts, but did you forget 'use DBI'? If not you'll see something about this in your error logs.
 
1) I checked the error logs: the only thing there is "Error in line 32 from script timetablenew.cgi", this is the line for the connection string, the only thing, on my server page it says, "use this line to connect to the db".

2) I checked the script for errors with DZPerl Editor (with ActivePerl installed).

3) I don't forgot "use DBI;" :)

BTW: The 500 error is gone now, the script runs, but everything before the connection works, but anything after it, doesn't work.
 
Now that I have that extra bit of information (namely, the specific line that died), I can give you some advice:
I haven't done much with DBI, but from what I can tell, the data source should simply be:

$DSN = "DBI:mysql:sabenava_timetable";

(without the "database=" part).

However, I wouldn't imagine that would crash it out without any error message, it seems it should just cause the connection to fail (and thus you should see your "Connection Failed" in the log)...

Now, you mention ActivePerl -- this is a Windows thing, right? Are you doing this under Windows, or are you just refering to your test environment (eg, home PC)?

If you're developing a Perl/MySQL script for use under Windows... you're on your own :) But if (as I suspect) you simply mean you did a syntax check on a Windows box, I'd have to advise doing the syntax checking on the same machine it will be run on -- especially when it comes to perl modules such as DBI being used. Slight version differences (or in this case, major platform differences) can make a difference.
 
OK, I've tested it without the "database=" part, doesn't work either.

With ActivePerl I ment, my test machine at home. My server runs Unix.

How can I check the exact error logs?
Since I only check the "error log" page in my Control Panel from the server.
 
You'll need to contact your administrator to find out where your error logs are located (and to see if you even have access to them; most hosts do provide this though). Anything printed on stderr (eg, from a die() or a Perl error message) will generally be logged in your web-server's error log (eg, Apache's error log).

What it sounds like might be happening is your control panel is showing you only the last line of the log entry... Perl error messages typically give an error, then a final line saying "execution failed on line xx"...
 
You could also try putting

use CGI::Carp qw(fatalsToBrowser);

near the start of your code, this will put stderr messages to your web browser, so you shouldn't need to access your error logs
 
OK guys,

I got access to the error logs, found the error, there was something wrong with the DBI, its solved now.

Thanks
 
You must log in or register to reply here.
Back
Top