500 Internal Server Error (Perl/CGI)

[thread]41[/thread]

500 Internal Server Error

Sven

2003-09-16 19:32

User since
2003-08-26
20 Artikel
BenutzerIn
[default_avatar]

Hallo,
was ist an dem Code nur falsch. Bekomme immer den Error, obwohl es mal so ging (zumindest fast so). Ich hab dann was geändert und dann wieder zurückgeändert und jetzt geht's nimmer.

Danke
Sven

Code (perl): (dl )

#!/usr/bin/perl -w

use strict;
use DBI;
use DBD::mysql;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);

my $dbh = DBI->connect("DBI:mysql:x", "x", "x", {RaiseError => 1});

my $sth = $dbh->prepare("SELECT * FROM gastbuch ORDER BY gastID DESC");
$sth->execute();

print <<HERE_HEADER;    
        <?xml version="1.0" encoding="iso-8859-1"?>
        <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
        <html>
        <head>
                <title>Gästebuch</title>
                <link rel="stylesheet" href="styles/gast.css">
        </head>
        <body bgcolor="#006633">
        <table width="100%" border="0">
        <tr><td><h1><center><strong>Gästebuch</strong></center></h1></td></tr>

HERE_HEADER

while (my @row = $sth->fetchrow_array() )
{
        my $name = $row[0];
        my $email = $row[1];
        my $homepage = $row[2];
        my $comment = $row[3];
        
print <<HERE_HTML;      
        <table width="60%" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#006633" bordercolor="#000000">
        <tr> 
        <td width="84" height="25" valign="top"><strong>Name:</strong></td>
        <td width="541" valign="top" bgcolor="#FFCC00" >$name</td>
        </tr>
        <tr> 
        <td height="25" valign="top"><strong>E-Mail:</strong></td>
        <td valign="top" bgcolor="#FFCC00" ><a href="mailto:$email">$email</a></td>
        </tr>
        <tr> 
        <td height="25" valign="top"><strong>Homepage:</strong></td>
        <td valign="top" bgcolor="#FFCC00" ><a href ="http://$homepage">$homepage</a></td>
        </tr>
        <tr> 
        <td height="25" valign="top" class="kommentar"><strong>Kommentar:</strong></td>
        <td rowspan="3" valign="top" bgcolor="#FFCC00" class="kommentar"><p>$comment
        </td>
        </tr>
        </table>
         

HERE_HTML
        
}

print <<HERE_FOOTER;
        </body>
        </html>

HERE_FOOTER


warn($DBI::errstr) if $DBI::err;
$sth->finish();
$dbh->disconnect();

2003-09-16 21:12

User since
2003-08-04
12208 Artikel
Admin1

was sagt denn das error_log? das ist die erste anlaufstelle bei der fehlersuche.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Sven

2003-09-17 10:17