Opened by betterworld at 2003-10-29 16:12
User since
2003-08-11
24 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
24 Artikel
BenutzerIn
Guten morgen,
nochmal auf die fatals zu sprechen zu kommen,
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
habe ich probiert aber an einem hartnäckigen Internal Server Error ändert sich nichts. Er verweist mich ständig auf des error log und da steht dann: Premature end of script headers. Am besten ich poste das mal. Es ist ein test.cgi und überprüft lediglich ob der mysql-treiber installiert ist:
nochmal auf die fatals zu sprechen zu kommen,
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
habe ich probiert aber an einem hartnäckigen Internal Server Error ändert sich nichts. Er verweist mich ständig auf des error log und da steht dann: Premature end of script headers. Am besten ich poste das mal. Es ist ein test.cgi und überprüft lediglich ob der mysql-treiber installiert ist:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
print "Content-type: text/html\n\n";
use DBI;
my @drivers = DBI->available_drivers();
foreach my $driver ( @drivers ) {
if ($driver eq "mysql")
{
print "<p>Everything seems OK, your server has the programs needed to run this script</p>";
}
}
$temp = $ENV{'PATH'};
$ENV{'PATH'} = "/bin:/usr/bin";
$the_id = `id`;
$whoami = `whoami`;
$ENV{'PATH'} = $temp;
print qq~
Scripts are running under id: $the_id<br>
Unix 'whoami' responds with: $whoami<br>
~;
exit;