Leser: 3
![]() |
|< 1 2 3 4 5 >| | ![]() |
50 Einträge, 5 Seiten |
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
33
34
35
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $cgi = CGI->new();
my @names = $cgi->param;
my %Formular = ();
$Formular{uc($_}} = $cgi->param($_} foreach (@names);
print $cgi->header('text/html');
print qq~
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html><head><title>CGI-Feedback</title></head>
<body>
<h1>Kundenerfassung<i>comments.pl</i></h1>
<p><b>Kurzname:</b> $Formular{KURZNAME}</p>
<p><b>Name1:</b> $Formular{NAME1}</p>
<p><b>Name2:</b> $Formular{NAME2}<p><b>Name3:</b> $Formular{NAME3}</p>
<p><b>Straße:</b> $Formular{STRASSE}</p>
<p><b>Land:</b> $Formular{LAND}</p>
<p><b>PLZ:</b> $Formular{PLZ}</p>
<p><b>Ort:</b> $Formular{ORT}</p>
<p><b>Postfach:</b> $Formular{POSTFACH}<p><b>Postfach-Plz:</b> $Formular{POSTFACH-PLZ}</p>
<p><b>Telefon:</b> $Formular{TELEFON}</p>
<p><b>Fax:</b> $Formular{FAX}</p>
<p><b>Mobil:</b> $Formular{MOBIL}</p>
</body></html>
~;
print $cgi->start_html(-title => 'CGI-Feedback');
![]() |
|< 1 2 3 4 5 >| | ![]() |
50 Einträge, 5 Seiten |