chiark / gitweb /
get_params hook: actually DTRT for multiple-valued parameters
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Thu, 21 Mar 2013 17:08:57 +0000 (17:08 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Thu, 21 Mar 2013 17:08:57 +0000 (17:08 +0000)
cgi-auth-flexible.pm

index 9144501..ccce71c 100644 (file)
@@ -77,10 +77,11 @@ sub has_a_param ($$) {
 
 sub get_params ($) {
     my ($r) = @_;
-    my %p;
     my $c = $r->{Cgi};
-    foreach my $name ($c->param()) {
-       $p{$name} = [ $c->param($name) ];
+    my $vars = $c->Vars();
+    my %p;
+    foreach my $name (keys %$vars) {
+       $p{$name} = [ split "\0", $vars->{$name} ];
     }
     return \%p;
 }