• Utils.pm

    600 601  
    20 20 $VERSION = '0.1';
    21 21
    22 22 use Data::Dumper;
    23 use CGI;
    24 23 use locale;
    25 24 use File::Find;
    26 25 use Time::Local;
    … …  
    116 115 %no_encode = map { $_ => 1; } @$no_urlencode if $no_urlencode ;
    117 116 }
    118 117
    119 my $one_param = sub { my ($k,$v)=@_; "$k=". ($no_encode{$k} ? $v : CGI::escape($v)) };
    118 my $one_param = sub { my ($k,$v)=@_; "$k=". ($no_encode{$k} ? $v : URI::Escape::uri_escape($v)) };
    120 119
    121 120 my $params = join('&',
    122 121 map { my $k=$_; ref ($Args{$k}) eq 'ARRAY' ? join('&', map { &$one_param($k, $_) } @{$Args{$k}}) : &$one_param($k, $Args{$k}) }