#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my ($Daten, $value,$name, $text,$anhang,$input,$q,$key,$wert,$param,%result);
my $i=0;
my %Formular;
my @Formularfelder;


$anhang= $ENV{'QUERY_STRING'};
read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
&verarbeiten;
sub verarbeiten {
@Formularfelder = split(/&/, $Daten);
foreach my $Feld (@Formularfelder) {
  ($name, $value) = split(/=/, $Feld);
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $Formular{$name} = $value;
 }
}
my @schluessel=keys(%Formular);
@schluessel=reverse @schluessel;
my @values=values(%Formular);
@values=reverse @values;
open (OUT,">test");
print OUT ("\@schluessel: @schluessel\n\@values: @values\n");
close OUT;
# Folgend SSL-Script

# Test
my $x=0;
open (OUT,">/var/www/index.html");
print OUT ('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US"><head>
<title>CGI-Feedback</title><body><h1>CGI-Feedback vom Programm  <i>recieve</i></h1>');
foreach (@schluessel){
print OUT ('<p><B>Feldname: </B>'.$schluessel[$x].' <B> Inhalt: </B>'.$values[$x].'<br>');
$x++;
}
print OUT ('</body></html>');
close OUT;
