diff -r bc8a3d815645 -r 4bc929b9563f bin/recieve_a.test --- a/bin/recieve_a.test Mon Jan 28 14:29:25 2013 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,20 +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