diff -r 0ed8b6a9da49 -r 892a4fac1939 bin/receive_a.test --- a/bin/receive_a.test Tue Jan 29 14:06:27 2013 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,21 +0,0 @@ -#!/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