diff -r 0ed8b6a9da49 -r 892a4fac1939 htdocs/cgi-bin/receive_test
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/htdocs/cgi-bin/receive_test Tue Jan 29 15:36:24 2013 +0100
@@ -0,0 +1,55 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use CGI;
+use CGI::Carp qw(fatalsToBrowser);
+
+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;
+
+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;
+ }
+}
+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++;
+}
+print OUT ('');
+close OUT;