#!/usr/bin/perl -w use strict; use CGI::Carp qw(fatalsToBrowser); read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'}); my @Formularfelder = split(/&/, $Daten); my ($Feld, $Name, $Wert); my %Formular; foreach $Feld (@Formularfelder) { (my $Name, my $Wert) = split(/=/, $Feld); $Wert =~ tr/+/ /; $Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $Wert =~ s//>/g; $Formular{$Name} = $Wert; } print "Content-type: text/html\n\n"; print '', "\n"; print "CGI-Feedback\n"; print "

Kundenerfassung comments.pl

\n"; print "

Kurzname: $Formular{KURZNAME}

\n"; print "

Name1: $Formular{NAME1}

\n"; print "

Name2": $Formular{NAME2}

\n"; print "

Name3: $Formular{NAME3}

\n"; print "

Straße: $Formular{STRASSE}

\n"; print "

Land: $Formular{LAND}

\n"; print "

PLZ: $Formular{PLZ}

\n"; print "

Ort: $Formular{ORT}

\n"; print "

Postfach: $Formular{POSTFACH}

\n"; print "

Postfach-Plz: $Formular{POSTFACH-PLZ}

\n"; print "

Telefon: $Formular{TELEFON}

\n"; print "

Fax: $Formular{FAX}

\n"; print "

Mobil: $Formular{MOBIL}

\n"; print "\n";