#!/usr/bin/perl -T
#
use CGI qw/:standard -private_tempfiles/; # CGI-Routinen laden
use CGI::Carp qw(fatalsToBrowser); # Fehlermeldungen werden im
# Browser Window ausgegeben
$CGI::DISABLE_UPLOADS = 1; # keine Uploads erlaubt
$CGI::POST_MAX=1024*500; # max 0.5 MB bei POST-Request
#######
#
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 der FORM-Variablen "Vorname" zugewiesen
# Der Variablen "$Nachname" wird der Wert der FORM-Variablen "Nachname" zugewiesen
# Der Variablen "$Submit" wird der Wert der FORM-Variablen "Submit" zugewiesen
#
#######
$Vorname = param('Vorname');
$Nachname = param('Nachname');
$Submit = param('Submit');
#######
#
# < in der Eingabe von Vor- und Nachnamen wird ersetzt durch <
# > in der Eingabe von Vor- und Nachnamen wird ersetzt durch >
#
#######
$Vorname =~ s/\</g;
$Vorname =~ s/>/\>/g;
$Nachname =~ 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-Modul wird eingebunden
HTML_SEITE1
} # ende if ($ENV{'REQUEST_METHOD'} eq "POST")
##