--- a/htdocs/cgi-bin/receive	Wed Feb 06 13:22:28 2013 +0100
+++ b/htdocs/cgi-bin/receive	Thu Feb 07 11:45:50 2013 +0100
@@ -10,16 +10,14 @@
     $Daten, $value, $name, $text,  $anhang, $input,
     $q,     $key,   $wert, $param, %result, $uid
 );
-my %Formular;
 my @Formularfelder;
-
+my %field;
 read( STDIN, $Daten, $ENV{'CONTENT_LENGTH'} );
-print $Daten;
 &verarbeiten;
 
 sub verarbeiten {
     @Formularfelder = split( /&/, $Daten );
-    foreach my $Feld (@Formularfelder) {
+   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;
@@ -27,38 +25,37 @@
 		$value =~ s/\<25\>/\%/g;
 		$value =~ s/\<2B\>/\+/g;
 		$value =~ s/\<26\>/\&/g;
-        $Formular{$name} = $value;
+		$value =~ s/\<n\>/\\n/g;
+		$field{$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
-
-if ($Formular{req} ne ''){
-	open (OUT, ">$uid.pem");
-	print OUT "$Formular{req}";
-	close OUT;
-}
-
-open OUT,">$uid";
+#$"=" .:. ";
+$uid=$field{id};
+chomp ($uid);
+open (OUT,">/var/www/tmp/$uid") or die "$!\n";
 print OUT "\@schluessel:\t=\t\@werte:\n";
 print OUT "------------\t\t-------\n\n";
-for(my $x=0;$x<=$#schluessel;$x++){
-print OUT "$schluessel[$x]\t\t=\t$values[$x]\n";
+foreach (sort keys %field) {
+	print OUT "$_:\t\t\t $field{$_}\n";
 }
+print OUT $Daten;
 close OUT;
 
 my $scp=Net::SCP->new();
-$scp->scp($uid,'root@192.168.0.138:/var/www/download/');
-unlink $uid, "$uid.pem";
+$scp->scp("/var/www/tmp/$uid",'root@192.168.0.138:/var/www/download/');
+#unlink grep { -M > 3/(24*36) } glob("/var/www/tmp/*");
 __END__
 
+#$uid=$Formular{ID};
+#chomp$uid;
+#my @test=$Formular{req};
+#my @schluessel = keys(%Formular);
+#@schluessel = reverse @schluessel;
+#my @values = values(%Formular);
+#@values = reverse @values;
+
 # Test
 my $x=0;
 open( OUT, ">/var/www/$uid.html" );
@@ -76,3 +73,11 @@
 }
 print OUT ('</body></html>');
 close OUT;
+
+# Folgend Test-Script
+
+#if ($Formular{req} ne ''){
+#	open (OUT, ">$uid.pem");
+#	print OUT "$Formular{req}";
+#	close OUT;
+#}