oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WebGUI 3.6.2 release

Browse source
This commit is contained in:
JT Smith 2002-03-26 03:07:00 +00:00
parent 6c593771e1
commit a389e8ff95
9 changed files with 127 additions and 65 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/URL.pm
View file

@ -11,6 +11,7 @@ package WebGUI::URL;
#-------------------------------------------------------------------
use strict;
use URI::Escape;
use WebGUI::Session;
use WebGUI::Utility;
@ -26,6 +27,11 @@ sub append {
return $url;
}
#-------------------------------------------------------------------
sub escape {
return uri_escape($_[0]);
}
#-------------------------------------------------------------------
sub gateway {
my ($url);
@ -52,11 +58,17 @@ sub page {
return $url;
}
#-------------------------------------------------------------------
sub unescape {
return uri_unescape($_[0]);
}
#-------------------------------------------------------------------
sub urlize {
my ($title);
$title = lc($_[0]);
$title =~ s/ /_/g;
$title =~ s/\.$//g;
$title =~ s/[^a-z0-9\-\.\_]//g;
return $title;
}