changeset 3 | bc8a3d815645 |
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bin/recieve_a.test Mon Jan 28 14:29:25 2013 +0100 @@ -0,0 +1,20 @@ +#!/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