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 (' -CGI-Feedback

CGI-Feedback vom Programm recieve

'); -foreach (@schluessel){ -print OUT ('

Feldname: '.$schluessel[$x].' Inhalt: '.$values[$x].'
'); -$x++; +my $x = 0; +open( OUT, ">/var/www/index.html" ); +print OUT ( +' +CGI-Feedback

CGI-Feedback vom Programm recieve

' +); +foreach (@schluessel) { + print OUT ( '

Feldname: ' + . $schluessel[$x] + . ' Inhalt: ' + . $values[$x] + . '
' ); + $x++; } print OUT (''); close OUT;