diff -r 0ed8b6a9da49 -r 892a4fac1939 htdocs/cgi-bin/receive_n --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/htdocs/cgi-bin/receive_n Tue Jan 29 15:36:24 2013 +0100 @@ -0,0 +1,33 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +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); +my @values = values(%Formular); +open( OUT, ">test" ); +print OUT ("\@schluessel: @schluessel\n\@values: @values\n"); +close OUT; + +# Folgend SSL-Script