27 lines
925 B
Perl
27 lines
925 B
Perl
package WebGUI::i18n::PigLatin;
|
|
|
|
use strict;
|
|
|
|
|
|
our $LANGUAGE = {
|
|
label => 'PigLatin',
|
|
toolbar => 'bullet',
|
|
languageAbbreviation => 'en', # used by plugins such as javascript helpers and third-party perl modules
|
|
locale => 'US' # same as above
|
|
};
|
|
|
|
sub makeUrlCompliant {
|
|
my $value = shift;
|
|
$value =~ s/\s+$//; #removes trailing whitespace
|
|
$value =~ s/^\s+//; #removes leading whitespace
|
|
$value =~ s/ /-/g; #replaces whitespace with hyphens
|
|
$value =~ s/\.$//; #removes trailing period
|
|
$value =~ s/[^A-Za-z0-9\-\.\_\/]//g; #removes all funky characters
|
|
$value =~ s/^\///; #removes a leading /
|
|
$value =~ s/\/$//; #removes a trailing /
|
|
$value =~ s/\/\//\//g; #removes double /
|
|
return $value;
|
|
}
|
|
|
|
|
|
1;
|