JSON-Payload: Content-Type-Header richtig parsen

Content-Type kann auch noch Attribute wie »; charset=UTF-8«
enthalten. Muss ignoriert werden.

diff --git a/SL/Request.pm b/SL/Request.pm
index 0808bd1da9328aae5e2bf972492458e098927038..c33b6b3e514dc5619b0c2af63ce6924a48b21f05 100644 (file)
--- a/SL/Request.pm
+++ b/SL/Request.pm
@@ -308,7 +308,7 @@ sub read_cgi_input {
 
       $target->{$_} = $self->post_data->{$_} for keys %{ $self->post_data };
 
 
       $target->{$_} = $self->post_data->{$_} for keys %{ $self->post_data };
 

-    } elsif (($ENV{CONTENT_TYPE} // '') eq 'application/json') {
+    } elsif (($ENV{CONTENT_TYPE} // '') =~ m{^application/json}i) {

       $self->post_data(_parse_json_formdata($content));
 
     } else {
       $self->post_data(_parse_json_formdata($content));
 
     } else {