New method of translation.

bin/auto

@@ -14,8 +14,10 @@ use Data::Dumper;
 use FindBin qw($Bin);
 our $Bin = $Bin;
 unshift(@INC, "$Bin/../src");
+require API::Std;
 #require DB::Flatfile;
 require Parser::Config;
+require Parser::Lang;
 #require Parser::IRC;
 #require IRC::Standard;
 #require Sys::Full;
@@ -30,3 +32,10 @@ use constant {
 
 our $CONF = Parser::Config->new("auto.conf") or print "Failed to open configuration file.\n" and exit;
 our %SETTINGS = $CONF->parse;
+
+my @lclv = API::Std::conf_get("locale");
+our $LOCALE = $lclv[0][0];
+my @lang = split('_', $LOCALE);
+Parser::Lang::parse($lang[0]) or print ".\n" and exit;
+undef @lang;
+undef @lclv;