equal
deleted
inserted
replaced
2 |
2 |
3 use strict; |
3 use strict; |
4 use warnings; |
4 use warnings; |
5 use CGI; |
5 use CGI; |
6 |
6 |
7 my ($input,$q,$key,$wert,$param,%result); |
7 my ( $input, $q, $key, $wert, $param, %result ); |
|
8 |
8 #read(STDIN, $input, $ENV{'CONTENT_LENGTH'})or die "error in read: $!"; |
9 #read(STDIN, $input, $ENV{'CONTENT_LENGTH'})or die "error in read: $!"; |
9 $q=new CGI; |
10 $q = new CGI; |
10 |
11 |
11 $anhang=$q->param('POSTDATA'); |
12 $anhang = $q->param('POSTDATA'); |
12 |
13 |
13 my @params = split(/&/,$anhang); |
14 my @params = split( /&/, $anhang ); |
14 |
15 |
15 foreach (@params){ |
16 foreach (@params) { |
16 ($key,$wert)=split(/=/,$_); |
17 ( $key, $wert ) = split( /=/, $_ ); |
17 $result{$key}=$wert; |
18 $result{$key} = $wert; |
18 } |
19 } |
19 |
20 |
20 # Folgend SSL-Script |
21 # Folgend SSL-Script |