]>
git.p6c8.net - selfforum.git/blob - selfforum-cgi/shared/Template/_query.pm
8d1d8ecdb093bc04c126b82806dc7c33b87e53e5
1 package Template
::_query
;
3 ################################################################################
5 # File: shared/Template/_query.pm #
7 # Authors: André Malo <nd@o3media.de>, 2001-06-16 #
9 # Description: compose a query string #
11 ################################################################################
19 ################################################################################
23 $VERSION = do { my @r =(q
$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x
$#r, @r };
25 ################################################################################
29 use base
qw(Exporter);
30 @EXPORT = qw(query_string);
32 ### url_encode () ##############################################################
35 # (more or less from CGI.pm)
37 # Params: $string - string to encode
39 # Return: encoded string
43 $string=~s/([^a-zA-Z\d_.-])/uc sprintf('%%%02x',ord($1))/eg;
48 ### query_string () ############################################################
50 # compose a query string
52 # Params: $parlist - hashref
54 # Return: scalar: query string
56 sub query_string
($) {
59 my $string = '?'.join ('&' =>
62 ?
map{url_encode
($_).'='.url_encode
($parlist -> {$_})} @
{$parlist -> {$_}}
63 : url_encode
($_).'='.url_encode
($parlist -> {$_})
71 # keep 'require' happy
76 ### end of Template::_query ####################################################
patrick-canterino.de