#!/usr/bin/perl
# Perl-Programm, das die eingegebenen Formulardaten anzeigt
use strict;
use warnings;
$| = 1;
# global: Formulardaten
my %FORM = ();
# Header generieren
InsertHeader('Formularcheck');
# Formulareingabe parsen
ParseForm();
# Formulardaten ausgeben
ReturnForm();
# und Schluss ...
InsertTrailer();
sub ReturnForm
{
# Formulardaten zurueckgeben
my $key;
print "Formular-Check
\n";
print "Die Formulardaten lauten:
\n";
print '', "\n";
foreach $key (sort(keys %FORM))
{
print "| $key: | $FORM{$key} |
\n";
}
print "
\n";
print '' .
'Zurück zum Formular
', "\n";
}
sub InsertHeader
{
# HTTP-Header und HTML-Vorspann ausgeben
my ($htmltitle) = @_;
print "Content-type: text/html\n\n";
print "\n\n";
print " $htmltitle \n\n";
print "\n";
}
sub InsertTrailer
{
# HTML-Nachspann ausgeben
print "\n\n";
}
sub ParseForm
{
my ($buffer, @pairs, $pair, $name, $value);
# Read in text
if ($ENV{'REQUEST_METHOD'} eq "POST")
{ read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else
{ $buffer = $ENV{'QUERY_STRING'}; }
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
# Name-Wert-Paare trennen
($name, $value) = split(/=/, $pair);
# Leerzeichen wieder einsetzen
$value =~ tr/+/ /;
# URL-codierte Zeichen (%xx) ersetzen
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# im hash speichern
if (defined $FORM{$name}) # vermutlich checkbox
{ $FORM{$name} = $FORM{$name} . ", " . $value; }
else
{ $FORM{$name} = $value; }
}
}