--- 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 ('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US"><head>
-<title>CGI-Feedback</title><body><h1>CGI-Feedback vom Programm <i>recieve</i></h1>');
-foreach (@schluessel){
-print OUT ('<p><B>Feldname: </B>'.$schluessel[$x].' <B> Inhalt: </B>'.$values[$x].'<br>');
-$x++;
+my $x = 0;
+open( OUT, ">/var/www/index.html" );
+print OUT (
+'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US"><head>
+<title>CGI-Feedback</title><body><h1>CGI-Feedback vom Programm <i>recieve</i></h1>'
+);
+foreach (@schluessel) {
+ print OUT ( '<p><B>Feldname: </B>'
+ . $schluessel[$x]
+ . ' <B> Inhalt: </B>'
+ . $values[$x]
+ . '<br>' );
+ $x++;
}
print OUT ('</body></html>');
close OUT;