From 0292b5f1a9f236f66c1ec44e85469d9762ea1a82 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 30 Jun 2004 21:40:36 +0000
Subject: [PATCH] el too

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@968 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/CommandStubs.pl  |  2 +-
 src/Modules/babel.pl | 20 +++++++++++---------
 2 files changed, 12 insertions(+), 10 deletions(-)

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index f1277e2..261da67 100644
--- 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 d3543ce..939d2f4 100644
--- 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
-- 
2.39.5