| … | |
… | |
| 143 | |
143 | |
| 144 | sub encode(@) { |
144 | sub encode(@) { |
| 145 | my %hash = @_; |
145 | my %hash = @_; |
| 146 | my $string; |
146 | my $string; |
| 147 | foreach (keys %hash) { |
147 | foreach (keys %hash) { |
|
|
148 | $hash{$_} = "" unless defined $hash{$_}; # promote undef to "" |
| 148 | $hash{$_} =~ s/(=|&)/\\$1/; # escape & and = |
149 | $hash{$_} =~ s/(=|&)/\\$1/; # escape & and = |
| 149 | $string .= "$_=$hash{$_}&"; |
150 | $string .= "$_=$hash{$_}&"; |
| 150 | } |
151 | } |
| 151 | chop $string; # remove final '&' from string for old code :p |
152 | chop $string; # remove final '&' from string for old code :p |
| 152 | return $string; |
153 | return $string; |
Parent Directory
| 
Revision Log
| 
Patch