3 # ====================================================
4 # Autor: n.d.p. / 2000-12-30
5 # lm : n.d.p. / 2001-02-04
6 # ====================================================
8 # Erzeugen eines Querystrings
9 # ====================================================
13 package Template
::_query
;
15 # ====================================================
17 # ====================================================
19 use base
qw(Exporter);
20 @Template::_query
::EXPORT
= qw(query_string);
22 ################################
25 # Querystring erzeugen
26 ################################
28 sub query_string
($) {
31 my $string = '?'.join ('&',
32 map {(ref)?
map{&url_encode
($_).'='.&url_encode
($parlist -> {$_})} @
{$parlist -> {$_}}:
33 &url_encode
($_).'='.&url_encode
($parlist -> {$_})}
40 # ====================================================
42 # ====================================================
44 ################################
48 # (mehr oder weniger aus
50 ################################
54 $string=~s/([^a-zA-Z\d_.-])/uc sprintf('%%%02x',ord($1))/eg;
59 # ====================================================
60 # Modulinitialisierung
61 # ====================================================
63 # making require happy
66 # ====================================================
67 # end of Template::_query
68 # ====================================================
patrick-canterino.de