Merge branch 'master' of vc.linet-services.de:public/lx-office-erp

[kivitendo-erp.git] / SL / Request.pm

diff --git a/SL/Request.pm b/SL/Request.pm
index 0045b19283acf68b9e682d169e35ee313a14d31b..d4f2d88501b43a99208ea032ae6f8f653c83490c 100644 (file)
--- a/SL/Request.pm
+++ b/SL/Request.pm
@@ -199,9 +199,6 @@ sub read_cgi_input {
   if ($ENV{CONTENT_LENGTH}) {
     my $content;
     read STDIN, $content, $ENV{CONTENT_LENGTH};
   if ($ENV{CONTENT_LENGTH}) {
     my $content;
     read STDIN, $content, $ENV{CONTENT_LENGTH};

-    open my $fh, '>:raw', '/tmp/blubb.bin' or die;
-    print $fh $content;
-    close $fh;

     if ($ENV{'CONTENT_TYPE'} && $ENV{'CONTENT_TYPE'} =~ /multipart\/form-data/) {
       # multipart formdata can bring it's own encoding, so give it both
       # and let ti decide on it's own
     if ($ENV{'CONTENT_TYPE'} && $ENV{'CONTENT_TYPE'} =~ /multipart\/form-data/) {
       # multipart formdata can bring it's own encoding, so give it both
       # and let ti decide on it's own


@@ -222,8 +219,6 @@ sub read_cgi_input {
     _store_value($target, $_, $temp_form{$_}) for keys %temp_form;
   }
 
     _store_value($target, $_, $temp_form{$_}) for keys %temp_form;
   }
 

-  map { $target->{$_} = $temp_target->{$_} } keys %{ $temp_target };
-

   $::lxdebug->leave_sub;
 
   return $target;
   $::lxdebug->leave_sub;
 
   return $target;