diff -r 892a4fac1939 -r 2f11b54a69fe htdocs/cgi-bin/receive
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/htdocs/cgi-bin/receive Tue Feb 05 08:05:54 2013 +0100
@@ -0,0 +1,65 @@
+#!/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, $uid
+);
+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=~ s/\<26\>/&/;
+ $value =~ tr/+/ /;
+ $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+ $Formular{$name} = $value;
+ }
+}
+$uid=$Formular{ID};
+chomp$uid;
+my @test=$Formular{req};
+my @schluessel = keys(%Formular);
+@schluessel = reverse @schluessel;
+my @values = values(%Formular);
+@values = reverse @values;
+
+# Folgend Test-Script
+
+open OUT,">test";
+print OUT "\@schluessel: @schluessel\n\@werte: @values\n\n";
+print OUT $Daten;
+close OUT;
+
+# Test
+$uid=$uid.'.html';
+my $x=0;
+open( OUT, ">/var/www/$uid" );
+print OUT (
+'
+CGI-FeedbackCGI-Feedback vom Programm recieve
'
+);
+foreach (@schluessel) {
+ print OUT ( 'Feldname: '
+ . $schluessel[$x]
+ . ' Inhalt: '
+ . $values[$x]
+ . '
' );
+ $x++;
+}
+print OUT ('');
+close OUT;
+sleep(180);
+system "rm /var/www/$uid";
+__END__