25 lines
789 B
Perl
25 lines
789 B
Perl
package WebGUI::i18n::English;
|
|
|
|
use strict;
|
|
|
|
|
|
our $LANGUAGE = {
|
|
label => 'English',
|
|
toolbar => 'metal'
|
|
};
|
|
|
|
sub makeUrlCompliant {
|
|
my $value = shift;
|
|
$value =~ s/\s+$//; #removes trailing whitespace
|
|
$value =~ s/^\s+//; #removes leading whitespace
|
|
$value =~ s/^\\//; #removes leading slash
|
|
$value =~ s/ /_/g; #replaces whitespace with underscores
|
|
$value =~ s/\.$//; #removes trailing period
|
|
$value =~ s/[^A-Za-z0-9\-\.\_\/]//g; #removes all funky characters
|
|
$value =~ s/^\///; #removes a preceeding /
|
|
$value =~ s/\/\//\//g; #removes double /
|
|
return $value;
|
|
}
|
|
|
|
|
|
1;
|