Ausgabe Perl Script in Browser (2. Versuch)

Ausgabe Perl Script in Browser (2. Versuch)

Impressum | Werbung

Geizhals » Forum » Programmierung »

Ausgabe Perl Script in Browser (2. Versuch) (10 Beiträge, 69 Mal gelesen)

Top-100 | Fresh-100

Du bist nicht angemeldet. [ Login/Registrieren ]

Ich habe ein Problem mit der Ausgabe eines PERL-Skriptes im Browser. Das Skript scheint richtig zu sein, wenn ich es in der Entwicklungsumgebung teste, kommt auch keine Fehlermeldung, sobald ich es allerdings im Browser aufrufe, kommt eine Fehlermeldung: HTTP 500, Site kann nicht angezeigt werden.

Das Skript schaut folgendermaßen aus:

#!/usr/bin/perl
use DBI;
require "/usr/logins/usercgi/oracle_setup.pl";
use CGI;
$cgi=new CGI;
$dbh = DBI-]connect('DBI:Oracle:', 'xxxxxxxx', 'xxxxxxxx' );
$nummer=$cgi-]param('text');
$sth = $dbh-]prepare("select
datum,nr,title,speaker1,speaker2,speaker3,speaker4,speaker5,
topic1,topic2,topic3,topic4,topic5,file1,file2,file3,file4,file5 from events where nr=$nummer");
$sth-]execute;
$sth-]bind_columns(\$datum,\$nr,\$title,\$speaker1,\$speaker2,\$speaker3,\$speaker4,\$speaker5,
\$topic1,\$topic2,\$topic3,\$topic4,\$topic5,
\$file1,\$file2,\$file3,\$file4,\$file5);
print "[body bgcolor=#CCCCCC text=#FFFFFF link=#66FFFF vlink=#66FFFF alink=#66FFFF][form action=xxxxxx][table border=0 align=center cellpadding=10 cellspacing=0 width=775]\n\n";
while (@row=$sth-]fetchrow_array) {
print"[tr][td width=2%][font face=Arial] [/font][/td]
[td colspan=6 bgcolor=#000066][div align=center][strong]
[font size=4 face=Arial]change event-entry[/font][/strong][/div][/td]
[td width=2%] [/td]
[/tr]
[tr]
[td width=2%][font face=Arial] [/font][/td]
[td width=13% bgcolor=#336699][div align=left]
[font face=Arial]Datum:[/font][/div][/td]
[td width=19% bgcolor=#336699][font face=Arial]
[input type=text name=datum value=$datum maxlength=10][/font][/td]
[td width=10% bgcolor=#336699][font face=Arial] [/font][/td]
[td width=19% bgcolor=#336699] [/td]
[td width=7% bgcolor=#336699] [/td]
[td width=19% bgcolor=#336699]
[input type=text name=nr maxlength=0 value=$nr][/td]
[td width=2%] [/td]
[/tr]
[tr]
[td width=2%][font face=Arial] [/font][/td]
[td width=13% bgcolor=#336699][font face=Arial]Title[/font][/td]
[td width=19% bgcolor=#336699][font face=Arial]
[input type=text name=title value=$itle maxlength=100][/font][/td]
[td width=10% bgcolor=#336699][font face=Arial] [/font][/td]
[td width=19% bgcolor=#336699] [/td]
[td width=7% bgcolor=#336699] [/td]
[td width=19% bgcolor=#336699] [/td]
[td width=2%] [/td]
[/tr]
[tr]
[td width=2%][font face=Arial] [/font][/td]
[td colspan=2 bgcolor=#336699]
[div align=center][font face=Arial size=4][b]Speakers[/font][/b][/font][/div][/td]
[td colspan=2 bgcolor=#336699]
[div align=center][font face=Arial size=4][b]Topics[/font][/b][/font][/div][/td]
[td colspan=2 bgcolor=#336699]
[div align=center][b][font face=Arial size=4]Files[/font][/b][/div][/td]
[td width=2%] [/td]
[/tr]
[tr]
[td width=2%] [/td]
[td width=13% bgcolor=#336699][font face=Arial]Speaker 1:[/font][/td]
[td width=19% bgcolor=#336699][font face=Arial]
[input type=text name=speaker1 value=$speaker1 maxlength=100][/font][/td]
[td width=10% bgcolor=#336699][font face=Arial]Topic 1:[/font][/td]
[td width=19% bgcolor=#336699][font face=Arial]
[input type=text name=topic1 value=$topic1 maxlength=100][/font][/td]
[td width=7% bgcolor=#336699][font face=Arial]File1:[/font][/td]
[td width=19% bgcolor=#336699][font face=Arial]
[input type=text name=file1 value=$file1 maxlength=100][/font][/td]
[td width=2%] [/td]
[/tr]
.
.
.
[tr]
[td width=2%][font face=Arial] [/font][/td]
[td colspan=6][font face=Arial][input type=submit value=change][/font][/td]
[td width=2%] [/td]
[/tr]";
}
print "[/table][/form]";

$sth-]finish;
$dbh-]disconnect;

da wo die . . . sind musste ich ein wenig kürzen (sonst zu langes posting).

weiß jemand rat? Bin für jeden Hinweis dankbar.

mfg

Penguin

Re: Ausgabe Perl Script in Browser (2. Versuch) (Penguin am 13.11.2002, 20:36:08)

Vom Autor zurückgezogen oder Autor hat seine Registrierung nicht bestätigt (Sn0t am 13.11.2002, 20:41:00)

Re(2): Ausgabe Perl Script in Browser (2. Versuch) (Penguin am 13.11.2002, 20:43:20)

Vom Autor zurückgezogen oder Autor hat seine Registrierung nicht bestätigt (Sn0t am 13.11.2002, 20:50:56)

Re(4): Ausgabe Perl Script in Browser (2. Versuch) (Penguin am 13.11.2002, 20:54:04)

Vom Autor zurückgezogen oder Autor hat seine Registrierung nicht bestätigt (Sn0t am 13.11.2002, 21:02:04)

Vom Autor zurückgezogen oder Autor hat seine Registrierung nicht bestätigt (Sn0t am 13.11.2002, 20:43:32)

Re: Ausgabe Perl Script in Browser (2. Versuch) (Eisvogel am 13.11.2002, 22:09:02)

Re(2): Ausgabe Perl Script in Browser (2. Versuch) (Penguin am 14.11.2002, 09:56:43)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung