#!/usr/bin/perl -T
#
require('./cgi-lib.pl');
#######
#
if ( $ENV{'REQUEST_METHOD'} eq "POST" ) {
#######
#
# Sicherheitsabfrage: CONTENT_LENGTH <= 100
#
#######
if ( $ENV{'CONTENT_LENGTH'} >= 100 ) {
print <<"HTML_SEITE3";
Content-type: text/html
Fehlermeldung
Ihre Eingabe ist zu lang!
HTML_SEITE3
} else {
#######
#
# Der Variablen "$Vorname" wird der Wert des FORM-Parameters "Vorname" zugewiesen
# Der Variablen "$Nachname" wird der Wert des FORM-Parameters "Nachname" zugewiesen
# Der Variablen "$Submit" wird der Wert des FORM-Parameters "Submit" zugewiesen
#
#######
&ReadParse(*formParameter);
$Vorname = $formParameter{'Vorname'};
$Nachname = $formParameter{'Nachname'};
$Submit = $formParameter{'Submit'};
#######
#
# < in der Eingabe von Vor- und Nachnamen wird ersetzt durch <
# > in der Eingabe von Vor- und Nachnamen wird ersetzt durch >
#
#######
$Vorname =~ s//\>/g;
$Nachname =~ s//\>/g;
#######
#
# Die "Antwortseite" ausgeben
#
#######
print <<"HTML_SEITE2";
Content-type: text/html
Antwortseite
Hallo $Vorname
$Nachname !
HTML_SEITE2
} ## ende if ( $ENV{'CONTENT_LENGTH'} >= 100 )
} else {
#######
#
# Das "Formular" ausgeben
#
#######
print <<"HTML_SEITE1";
Content-type: text/html
Formular
Perl-Script, cgi-lib.pl wird eingebunden
HTML_SEITE1
} # ende if ($Submit=="test it")
##