diff options
| author | Andreas Brachold <vdr07@deltab.de> | 2007-12-01 17:17:53 +0000 |
|---|---|---|
| committer | Andreas Brachold <vdr07@deltab.de> | 2007-12-01 17:17:53 +0000 |
| commit | 470bbc6be3a5ffa1f890aa3c507f6ef489110b73 (patch) | |
| tree | 851ae458f80acf2e1c9871b0c1bde2c8259cd662 /lib/Tools.pm | |
| parent | 1acb7bfd3d1ef3d4c45218c2d797341e1f34a816 (diff) | |
| download | xxv-470bbc6be3a5ffa1f890aa3c507f6ef489110b73.tar.gz xxv-470bbc6be3a5ffa1f890aa3c507f6ef489110b73.tar.bz2 | |
* CONFIG: Warn if real modul name missed
* RECORDS: Redirect encode url
* RECORDS: Option 'undefined channel' was'nt showed
Diffstat (limited to 'lib/Tools.pm')
| -rw-r--r-- | lib/Tools.pm | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/lib/Tools.pm b/lib/Tools.pm index b8d65f0..155de0a 100644 --- a/lib/Tools.pm +++ b/lib/Tools.pm @@ -21,9 +21,10 @@ our $BENCH = {}; our $LOGCALLB = sub{ }; our $DBH = {}; -@EXPORT = qw(&datum &stackTrace &lg &event &debug &error &panic &rep2str &dumper &getFromSocket &fields - &load_file &save_file &tableUpdated &buildsearch &deleteDir &getip &convert &int &entities &reentities &bench - &fmttime &getDataByTable &getDataById &getDataBySearch &getDataByFields &touch); +@EXPORT = qw(&datum &stackTrace &lg &event &debug &error &panic &rep2str &dumper + &getFromSocket &fields &load_file &save_file &tableUpdated &buildsearch + &deleteDir &getip &convert &int &entities &reentities &bench &fmttime + &getDataByTable &getDataById &getDataBySearch &getDataByFields &touch &url); # ------------------ @@ -607,4 +608,12 @@ sub touch { || error sprintf("Couldn't touch '%s' : %s",$file,$!); } +# ------------------ +sub url{ +# ------------------ + my $s = shift; # string + $s =~ s/([^a-z0-9A-Z])/sprintf('%%%X', ord($1))/seg; + return $s; +} + 1; |