1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 |
2 |
3 use strict; |
3 use strict; |
4 use warnings; |
4 use warnings; |
5 |
5 |
6 my ($Daten, $value,$name, $text,$anhang,$input,$q,$key,$wert,$param,%result); |
6 my ( |
7 my $i=0; |
7 $Daten, $value, $name, $text, $anhang, $input, |
|
8 $q, $key, $wert, $param, %result |
|
9 ); |
|
10 my $i = 0; |
8 my %Formular; |
11 my %Formular; |
9 my @Formularfelder; |
12 my @Formularfelder; |
10 |
13 |
11 $anhang= $ENV{'QUERY_STRING'}; |
14 $anhang = $ENV{'QUERY_STRING'}; |
12 read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'}); |
15 read( STDIN, $Daten, $ENV{'CONTENT_LENGTH'} ); |
13 &verarbeiten; |
16 &verarbeiten; |
|
17 |
14 sub verarbeiten { |
18 sub verarbeiten { |
15 @Formularfelder = split(/&/, $Daten); |
19 @Formularfelder = split( /&/, $Daten ); |
16 foreach my $Feld (@Formularfelder) { |
20 foreach my $Feld (@Formularfelder) { |
17 ($name, $value) = split(/=/, $Feld); |
21 ( $name, $value ) = split( /=/, $Feld ); |
18 $value =~ tr/+/ /; |
22 $value =~ tr/+/ /; |
19 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; |
23 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; |
20 $Formular{$name} = $value; |
24 $Formular{$name} = $value; |
21 } |
25 } |
22 } |
26 } |
23 my @schluessel=keys(%Formular); |
27 my @schluessel = keys(%Formular); |
24 my @values=values(%Formular); |
28 my @values = values(%Formular); |
25 open (OUT,">test"); |
29 open( OUT, ">test" ); |
26 print OUT ("\@schluessel: @schluessel\n\@values: @values\n"); |
30 print OUT ("\@schluessel: @schluessel\n\@values: @values\n"); |
27 close OUT; |
31 close OUT; |
|
32 |
28 # Folgend SSL-Script |
33 # Folgend SSL-Script |