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-FeedbackCGI-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-FeedbackCGI-Feedback vom Programm recieve
'
+);
+foreach (@schluessel) {
+ print OUT ( 'Feldname: '
+ . $schluessel[$x]
+ . ' Inhalt: '
+ . $values[$x]
+ . '
' );
+ $x++;
}
print OUT ('');
close OUT;