28 lines
1.1 KiB
Text
28 lines
1.1 KiB
Text
package WebGUI::i18n::LanguageName; # change LanguageName to your language
|
|
|
|
use strict;
|
|
|
|
|
|
our $LANGUAGE = {
|
|
label => 'English', # the language as it will appear to and users
|
|
toolbar => 'metal', # choose a toolbar from www/extras/toolbar/
|
|
languageAbbreviation => 'en', # used by plugins such as javascript helpers and third-party perl modules
|
|
locale => 'US' # same as above
|
|
};
|
|
|
|
sub makeUrlCompliant { # you have to have this method, but it can do URL transcoding for your language
|
|
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;
|
|
#vim:ft=perl
|