el too

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@968 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index f1277e26570e3000821cec6c7b0ca4f3d064abbb..261da67e877c482d2b7272dd6b022845931b4741 100644 (file)
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -14,7 +14,7 @@ use vars qw(%channels %cache %mask %userstats %myModules %cmdstats
 # FIX THE FOLLOWING:
 use vars qw($total $x $type $i $good);
 
-$babel_lang_regex = "fr|sp|es|po|pt|it|ge|de|gr|en|zh|ja|jp|ko|kr|nl|ru";
+$babel_lang_regex = "de|ge|gr|el|sp|es|en|fr|it|ja|jp|ko|kr|nl|po|pt|ru|zh|zt";
 $w3search_regex   = "google";
 
 ### COMMAND HOOK IMPLEMENTATION.

diff --git a/src/Modules/babel.pl b/src/Modules/babel.pl
index d3543ce61c2b02f681aaa573462a2127a156693b..939d2f46aefe67431bb1b5ae4fb093d1b970475c 100644 (file)
--- a/src/Modules/babel.pl
+++ b/src/Modules/babel.pl
@@ -27,23 +27,25 @@ BEGIN {
   # expects.
     use vars qw!%lang_code $lang_regex!;
     %lang_code = (
-               'fr' => 'fr',
+               'de' => 'de',
+               'ge' => 'de',
+               'gr' => 'el',
+               'el' => 'el',
                'sp' => 'es',
                'es' => 'es',
-               'po' => 'pt',
-               'pt' => 'pt',
-               'it' => 'it',
-               'ge' => 'de',
-               'de' => 'de',
-               'gr' => 'de',
                'en' => 'en',
-               'zh' => 'zh',
+               'fr' => 'fr',
+               'it' => 'it',
                'ja' => 'ja',
                'jp' => 'ja',
                'ko' => 'ko',
                'kr' => 'ko',
                'nl' => 'nl',
-               'ru' => 'ru'
+               'po' => 'pt',
+               'pt' => 'pt',
+               'ru' => 'ru',
+               'zh' => 'zh',
+               'zt' => 'zt'
               );
 
   # Here's how we recognize the language you're asking for.  It looks