diff -r bc8a3d815645 -r 4bc929b9563f bin/receive_n --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bin/receive_n Tue Jan 29 09:48:10 2013 +0100 @@ -0,0 +1,28 @@ +#!/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