diff -r 4bc929b9563f -r 0ed8b6a9da49 bin/receive_test --- a/bin/receive_test Tue Jan 29 09:48:10 2013 +0100 +++ b/bin/receive_test Tue Jan 29 14:06:27 2013 +0100 @@ -5,41 +5,51 @@ use CGI; use CGI::Carp qw(fatalsToBrowser); -my ($Daten, $value,$name, $text,$anhang,$input,$q,$key,$wert,$param,%result); -my $i=0; +my ( + $Daten, $value, $name, $text, $anhang, $input, + $q, $key, $wert, $param, %result +); +my $i = 0; my %Formular; my @Formularfelder; +$anhang = $ENV{'QUERY_STRING'}; +read( STDIN, $Daten, $ENV{'CONTENT_LENGTH'} ); +print $Daten; +&verarbeiten; -$anhang= $ENV{'QUERY_STRING'}; -read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'}); -&verarbeiten; sub verarbeiten { -@Formularfelder = split(/&/, $Daten); -foreach my $Feld (@Formularfelder) { - ($name, $value) = split(/=/, $Feld); - $value =~ tr/+/ /; - $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; - $Formular{$name} = $value; - } + @Formularfelder = split( /&/, $Daten ); + foreach my $Feld (@Formularfelder) { + ( $name, $value ) = split( /=/, $Feld ); + $value =~ tr/+/ /; + $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; + $Formular{$name} = $value; + } } -my @schluessel=keys(%Formular); -@schluessel=reverse @schluessel; -my @values=values(%Formular); -@values=reverse @values; -open (OUT,">test"); -print OUT ("\@schluessel: @schluessel\n\@values: @values\n"); -close OUT; -# Folgend SSL-Script +my @schluessel = keys(%Formular); +@schluessel = reverse @schluessel; +my @values = values(%Formular); +@values = reverse @values; + +# Folgend Test-Script + + # Test -my $x=0; -open (OUT,">/var/www/index.html"); -print OUT ('
-Feldname: '.$schluessel[$x].' Inhalt: '.$values[$x].'
');
-$x++;
+my $x = 0;
+open( OUT, ">/var/www/index.html" );
+print OUT (
+'
Feldname: '
+ . $schluessel[$x]
+ . ' Inhalt: '
+ . $values[$x]
+ . '
' );
+ $x++;
}
print OUT ('');
close OUT;