just a little cleanup of colin's skels

lib/WebGUI/i18n/English/_i18n.skeleton

@@ -3,12 +3,14 @@ package WebGUI::i18n::English::_i18n;  ##Be sure to change the package name to m
 our $I18N = { ##hashref of hashes
 	'key1' => { ##key that will be used to reference this entry.  Do not translate this.
 		message => q|Internationalized message.  WebGUI Macros work in here.  Please use XHTML format for markup|,
-		lastUpdated => 1131394070, #seconds from the epoch, 
+		lastUpdated => 1131394070, #seconds from the epoch
+		context => q|Provide some context to let the translator know what this message is used for.|
 	},
 
 	'key2' => {
 		message => q|Second message.|,
 		lastUpdated => 1131394072,
+		context => q|Provide some context to let the translator know what this message is used for.|
 	},
 };
 

lib/WebGUI/i18n/_language.skeleton

@@ -0,0 +1,27 @@
+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;