diff -r 0e2b0e64bc21 -r bd470c2d0a0a htdocs/cgi-bin/receive --- 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/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 (''); close OUT; + +# Folgend Test-Script + +#if ($Formular{req} ne ''){ +# open (OUT, ">$uid.pem"); +# print OUT "$Formular{req}"; +# close OUT; +#}