OK, ich habe folgendes verbrochen:
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
29
30
31
32
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use DBI;
use CGI::Carp qw ( fatalsToBrowser );
use HTML::Template::Compiled;
use constant TMPL_FILE => "$ENV{DOCUMENT_ROOT}/db/templates/neue_auktion.tmpl";
...
...
# hier wird eine Datenbank geöffnet und die Rückgabe in "result" gepeichert.
$result->execute() or die "Abfrage nicht ausfuehrbar -kategorie!\n";
while ( $zeile = $result->fetchrow_arrayref )
{
push ( @kategorien, $zeile->[0] );
}
$result->finish();
$tmpl = new HTML::Template::Compiled ( filename => TMPL_FILE );
$tmpl->param ( vorname => $vorname,
nachname => $nachname,
kategorien => \@kategorien );
print $tmpl->output;
$dbh->disconnect();
exit;
Das Template siht jetzt so aus:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<HTML>
<HEAD>
<TITLE> Persoenliche Startseite von <TMPL_VAR NAME="vorname"> <TMPL_VAR NAME="nachname"> </TITLE>
</HEAD>
<BODY BGCOLOR="yellow">
<BR>
<HR>
<H3> Herzlich Willkommen <TMPL_VAR NAME="vorname"> <TMPL_VAR NAME="nachname"> </H3>
<BR>
<BR>
<BR>
<SELECT NAME="kategorien" SIZE="1">
<TMPL_LOOP NAME="kategorien">
<OPTION><TMPL_VAR NAME="_"></OPTION>
</TMPL_LOOP>
</SELECT>
</BODY>
</HTML>
Aber vom Server bekomme ich diese Meldung:
Quote[Fri Feb 17 17:22:57 2006] [error] [client 127.0.0.1] malformed header from script. Bad header=<HTML>: /usr/lib/cgi-bin/neue_auktion.cgi
Gruss Christian
Ein Betriebssystem sie zu knechten, sie alle zu finden, Ins Dunkel zu treiben und ewig zu binden.
William Gates III