/[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 250 by dpavlin, Thu Nov 26 19:02:01 2009 UTC revision 251 by dpavlin, Fri Nov 27 13:48:01 2009 UTC
# Line 6  use strict; Line 6  use strict;
6  my $debug = 1;  my $debug = 1;
7    
8  use Data::Dump qw(dump);  use Data::Dump qw(dump);
9    use URI::Escape;
10    
11  sub static {}  sub static {}
12    
# Line 22  sub request { Line 23  sub request {
23                  if ( $method =~ s{\?(.+)}{} ) {                  if ( $method =~ s{\?(.+)}{} ) {
24                          foreach my $p ( split(/[&;]/, $1) ) {                          foreach my $p ( split(/[&;]/, $1) ) {
25                                  my ($n,$v) = split(/=/, $p, 2);                                  my ($n,$v) = split(/=/, $p, 2);
26                                    $v = uri_unescape($v);
27                                  if ( defined $param->{$n} ) {                                  if ( defined $param->{$n} ) {
28                                          if ( ref $param->{$n} eq 'ARRAY' ) {                                          if ( ref $param->{$n} eq 'ARRAY' ) {
29                                                  push @{ $param->{$n} }, $v;                                                  push @{ $param->{$n} }, $v;
Legend:
Removed from v.250  
changed lines
  Added in v.251
  ViewVC Help
Powered by ViewVC 1.1.26