bin/recieve_a.test
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