diff -r 0ed8b6a9da49 -r 892a4fac1939 htdocs/cgi-bin/receive_a.test --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/htdocs/cgi-bin/receive_a.test Tue Jan 29 15:36:24 2013 +0100 @@ -0,0 +1,21 @@ +#!/usr/bin/perl + +use strict; +use warnings; +use CGI; + +my ( $input, $q, $key, $wert, $param, %result ); + +#read(STDIN, $input, $ENV{'CONTENT_LENGTH'})or die "error in read: $!"; +$q = new CGI; + +$anhang = $q->param('POSTDATA'); + +my @params = split( /&/, $anhang ); + +foreach (@params) { + ( $key, $wert ) = split( /=/, $_ ); + $result{$key} = $wert; +} + +# Folgend SSL-Script