Leser: 22
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 -w
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI 1.41 ();
my $dbh;
my $sth;
my $baz;
my @row;
my $nCNID = 40;
#my $DBTYP = 'DBI:InterBase';
my $dbname = "/home/hd-arbeit/BWM/bwmdb.fdb";
my $dialect = 3;
print header();
#print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN',"\n";
#print ' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">',"\n";
#print '<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">',"\n";
#print '<head>',"\n";
print '<title>Bienwald Marathon Kandel - ANMELDUNG</title>',"\n";
#print '<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />',"\n";
#print '<meta name="keywords" content="">',"\n";
#print '<meta name="description" content=""><link href="css/styles1.css" rel="stylesheet" type="text/css">',"\n";
print start_html();
print "Hallo Welt!! ;-)<br>\n";
1
2
3
4
5
6
7
8
9
10
11
<title>Bienwald Marathon Kandel - ANMELDUNG</title>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
Hallo Welt!! ;-)<br>
2011-01-06T16:31:43 heidieswiWenn ich den anfang selber bauen will, wegen <titel> und der <meta> bekomme ich im Browser Fehlermeldungen
1
2
3
4
5
6
7
8
9
10
# CREATING THE HTML DOCUMENT HEADER
print start_html(-title=>'Secrets of the Pyramids',
-author=>'fred@capricorn.org',
-base=>'true',
-target=>'_blank',
-meta=>{'keywords'=>'pharaoh secret mummy',
'copyright'=>'copyright 1996 King Tut'},
-style=>{'src'=>'/styles/style1.css'},
-BGCOLOR=>'blue');
Content-Type: text/html
CGI::header()
header()