From a1229776442a152419f7c45a44ae96884a7c0c25 Mon Sep 17 00:00:00 2001
From: Matthew Barksdale <matthew@matt-tech.info>
Date: Thu, 14 Apr 2011 03:27:58 -0400
Subject: [PATCH 1/4] Added deoper subroutine to deoper Auto on a server

---
 modules/Oper.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/modules/Oper.pm b/modules/Oper.pm
index ee6bd53..a3cca3d 100644
--- a/modules/Oper.pm
+++ b/modules/Oper.pm
@@ -70,6 +70,15 @@ sub oper {
     return 1;
 }
 
+# Deopers Auto on the specified server.
+sub deoper {
+    my ($svr) = @_;
+    Auto::socksnd($svr, "MODE $State::IRC::botinfo{$svr}{nick} -o");
+    return 1;
+}
+
+# End of the API
+
 # Start initialization.
 API::Std::mod_init('Oper', 'Xelhua', '1.01', '3.0.0a10');
 # build: perl=5.010000

From 363a724ed3bd3f8494c2c7ec4c0a62455b7164b6 Mon Sep 17 00:00:00 2001
From: Matthew Barksdale <matthew@matt-tech.info>
Date: Thu, 14 Apr 2011 03:34:27 -0400
Subject: [PATCH 2/4] Added french help translation

---
 modules/IsItUp.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/modules/IsItUp.pm b/modules/IsItUp.pm
index 9b8ba9e..1ecec91 100644
--- a/modules/IsItUp.pm
+++ b/modules/IsItUp.pm
@@ -31,6 +31,7 @@ sub _void
 # Help hashes.
 our %HELP_ISITUP = (
     'en' => "This command will check if a website appears up or down to the bot. \002Syntax:\002 ISITUP <url>",
+    'fr' => "Cette commande va vérifier si un site Web semble être vers le haut ou vers le bas pour le bot. \002Syntaxe:\002 ISITUP <url>",
 );
 
 # Callback for ISITUP command.

From 58447eb40af84b54390392b335fc071bd47032c8 Mon Sep 17 00:00:00 2001
From: Matthew Barksdale <matthew@matt-tech.info>
Date: Thu, 14 Apr 2011 03:41:40 -0400
Subject: [PATCH 3/4] Added more French translations

---
 modules/AUR.pm     | 1 +
 modules/Eval.pm    | 1 +
 modules/LOLCAT.pm  | 1 +
 modules/Weather.pm | 1 +
 4 files changed, 4 insertions(+)

diff --git a/modules/AUR.pm b/modules/AUR.pm
index 0d8f787..962995d 100644
--- a/modules/AUR.pm
+++ b/modules/AUR.pm
@@ -30,6 +30,7 @@ sub _void {
 our %HELP_AUR = (
     en => "This command allows you to lookup a module in the Arch Linux AUR. \2Syntax:\2 AUR <module>",
     de => "Dieser Befehl ermoeglicht du auf nachschlagst ein Modul in der Arch Linux AUR. \2Syntax:\2 AUR <module>",
+    fr => "Cette commande vous permet de rechercher un module dans le Arch Linux AUR. \2Syntaxe:\2 AUR <module>",
 );
 
 # Callback for AUR command.
diff --git a/modules/Eval.pm b/modules/Eval.pm
index 30f0a97..e459646 100644
--- a/modules/Eval.pm
+++ b/modules/Eval.pm
@@ -30,6 +30,7 @@ sub _void {
 our %HELP_EVAL = (
     en => "This command allows you to eval Perl code. USE WITH CAUTION. \2Syntax:\2 EVAL <expression>",
     de => "Dieser Befehl ermoeglicht du auf bewertst Perl Code. GEBRAUCH MIT VORSICHT. \2Syntax:\2 EVAL <expression>",
+    fr => "Cette commande vous permet d'évaluer du code Perl. UTILISER AVEC PRUDENCE. \2Syntaxe:\2 EVAL <expression>",
 );
 
 # Callback for EVAL command.
diff --git a/modules/LOLCAT.pm b/modules/LOLCAT.pm
index abbf8d1..c4a45ce 100644
--- a/modules/LOLCAT.pm
+++ b/modules/LOLCAT.pm
@@ -27,6 +27,7 @@ sub _void {
 # Help for LOLCAT.
 our %HELP_LOLCAT = (
     en => "This command will translate English to LOLCAT speak. \2Syntax:\2 LOLCAT <text>",
+    fr => "Cette commande va traduire l'anglais vers LOLCAT parler. \2Syntaxe:\2 LOLCAT <texte",
 );
 
 # Callback for LOLCAT command.
diff --git a/modules/Weather.pm b/modules/Weather.pm
index 587a02a..42f096e 100644
--- a/modules/Weather.pm
+++ b/modules/Weather.pm
@@ -32,6 +32,7 @@ sub _void
 # Help hashes.
 our %HELP_WEATHER = (
     'en' => "This command will retrieve the weather via Wunderground for the specified location. \002Syntax:\002 WEATHER <location>",
+    'fr' => "Cette commande permet de récupérer la météo via Wunderground pour l'emplacement spécifié. \002Syntaxe:\002 WEATHER <emplacement>",
 );
 
 # Callback for Weather command.

From f0b49acbd000f9862d8826602144a9511c0f4392 Mon Sep 17 00:00:00 2001
From: Matthew Barksdale <matthew@matt-tech.info>
Date: Thu, 14 Apr 2011 03:53:19 -0400
Subject: [PATCH 4/4] Added cleaning up inconsistencies in modules to TODO

---
 doc/TODO | 1 +
 1 file changed, 1 insertion(+)

diff --git a/doc/TODO b/doc/TODO
index 412d563..0c1302d 100644
--- a/doc/TODO
+++ b/doc/TODO
@@ -10,6 +10,7 @@ Legend:
 
  [ ] Cleanup
      [ ] Replace println with Perl 5.10's say.
+     [ ] Fix inconsistencies in official modules
 
  [X] Language
      [X] Create method of translation.