/[Sack]/trunk/lib/Sack/Server/HTTP.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Sack/Server/HTTP.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 244 by dpavlin, Sun Nov 22 20:36:53 2009 UTC revision 245 by dpavlin, Thu Nov 26 19:02:01 2009 UTC
# Line 22  sub request { Line 22  sub request {
22                  if ( $method =~ s{\?(.+)}{} ) {                  if ( $method =~ s{\?(.+)}{} ) {
23                          foreach my $p ( split(/[&;]/, $1) ) {                          foreach my $p ( split(/[&;]/, $1) ) {
24                                  my ($n,$v) = split(/=/, $p, 2);                                  my ($n,$v) = split(/=/, $p, 2);
25                                  $param->{$n} = $v;                                  if ( defined $param->{$n} ) {
26                                            if ( ref $param->{$n} eq 'ARRAY' ) {
27                                                    push @{ $param->{$n} }, $v;
28                                            } else {
29                                                    $param->{$n} = [ $param->{$n}, $v ];
30                                            }
31                                    } else {
32                                            $param->{$n} = $v;
33                                    }
34                          }                          }
35                          warn "WEB << param: ",dump( $param ) if $debug;                          warn "WEB << param: ",dump( $param ) if $debug;
36                  }                  }
Legend:
Removed from v.244  
changed lines
  Added in v.245
  ViewVC Help
Powered by ViewVC 1.1.26