Merge branch 'indev' of github.com:Xelhua/Auto into indev

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.

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.

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.

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.

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.

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

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.