#!/usr/bin/perl -T
#
use CGI qw/:standard /; # CGI-Funktionen laden
use CGI::Carp qw(fatalsToBrowser); # Fehlermeldungen werden im
# BrowserWindow 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" ) { # nur POST-Requests werden abgearbeitet
#######
#
# Sicherheitsabfrage: CONTENT_LENGTH < MAX
#
#######
$MAX=40;
if ( $ENV{'CONTENT_LENGTH'} > $MAX ) {
print <<"HTML_SEITE1";
Content-type: text/html
Fehlermeldung
Maximale Anzahl der Zeichen, die übertragen werden: $MAX
Anzahl der übertragenen Zeichen: $ENV{'CONTENT_LENGTH'}
Ihre Eingabe ist zu lang!
Try it again!
HTML_SEITE1
} else {
#######
#
# Der Perl-Variablen "$Vorname" wird der Wert des
# FORM-Parameters "Vorname" zugewiesen
#
#######
$Vorname = param('Vorname');
#######
#
# < in der Eingabe von Vor- und Nachnamen wird ersetzt durch <
# > in der Eingabe von Vor- und Nachnamen wird ersetzt durch >
#
#######
$Vorname =~ s//\>/g; # als HTML-Tag interpretiert wird
#######
#
# "Antwortseite" ausgeben
#
#######
$query_string = query_string(); # CGI.pm Funktion, gibt den String der
# Zustandsinformationen zurueck
print <<"HTML_SEITE2";
Content-type: text/html
Antwortseite
Hallo $Vorname !
Übertragen wurden $ENV{'CONTENT_LENGTH'} Zeichen :
$query_string
HTML_SEITE2
} ## ende "if ( $ENV{'CONTENT_LENGTH'} > $MAX )"
} else { # HTML-Code bei GET-Request wird ausgegeben
print <<"HTML_SEITE3";
Content-type: text/html
Antwortseite
Es sind nur POST-Requests erlaubt!
HTML_SEITE3
} ## ende "if ($ENV{'REQUEST_METHOD'} eq "POST")"
##