Updated.

NEWS

@@ -7,18 +7,26 @@
 
           3.0
 
-
 The future of IRC bots is here! Xelhua gives to you, Auto 3.0, a new version of
 the popular Auto IRC bot.
 
-In this alpha9 release, we have added:
+In this alpha10 release, we have added:
 
-None
+* German translation for AUR command help.
+* German translation for Bitly command help.
+* German translation for Calc command help.
+* German translation for Dictionary command help.
+* German translation for EightBall command help.
+* German translation for Eval command help.
+* German translation for FML command help.
+* German translation for Greet command help.
+* Aliases now work in PM's to the bot too.
 
 Bug fixes:
 
-* UNO: Fixed a formatting issue in duration.
-* QDB: Fixed an exploit in QDB RAND.
+* Fixed parsing of host masks with a / in them.
+* Security exploit (causes fatal error) in the HELP command.
+* Security exploit (wide characters) in plaintext socket management.
 
 Incompatibilities:
 
@@ -32,4 +40,4 @@ created by anyone and uploaded there for everyone to use.
 Auto's goal is to create an efficient, stable and highly customizable IRC bot
 in Perl. To offer an alternative to other platforms.
 
-Enjoy Auto 3.0.0 Alpha 9!
+Enjoy Auto 3.0.0 Alpha 10!

bin/auto

@@ -9,7 +9,6 @@ use strict;
 use warnings;
 no feature qw(state);
 use POSIX;
-use locale;
 use English qw(-no_match_vars);
 use Sys::Hostname;
 use IO::Socket;
@@ -147,15 +146,11 @@ API::Std::event_add('on_sighup');
 our ($DEBUG, $NUC);
 my ($opt_help, $opt_version, $USECONFIG);
 GetOptions(
-    'nuc'      => \$NUC,
-    'c=s'      => \$USECONFIG,
-    'config=s' => \$USECONFIG,
-    'h'        => \$opt_help,
-    'help'     => \$opt_help,
-    'd'        => \$DEBUG,
-    'debug'    => \$DEBUG,
-    'v'        => \$opt_version,
-    'version'  => \$opt_version
+    'nuc'        => \$NUC,
+    'config|c=s' => \$USECONFIG,
+    'h|help'     => \$opt_help,
+    'debug|d'    => \$DEBUG,
+    'version|v'  => \$opt_version,
 );
 
 # If we were passed -h, print help.
@@ -306,18 +301,6 @@ given (lc((conf_get('database:format'))[0][0])) {
                 (conf_get('database:username'))[0][0], (conf_get('database:password'))[0][0]) or err(2, 'Failed to connect to database!', 1);;
         }
     }
-    # CSV no work. :(
-    #when ('csv') {
-    #    # CSV.
-    #    if ($ENFEAT !~ /csv/) { err(2, 'Auto not built with CSV support.', 1) }
-    #    if (!conf_get('database:dir')) { err(2, 'Missing required configuration value database:dir. Aborting.', 1) }
-    #
-    #    # Import DBD::CSV.
-    #    require DBD::CSV;
-    #
-    #    # Connect to database.
-    #    $DB = DBI->connect("dbi:CSV:f_dir=$bin{etc}/".(conf_get('database:dir'))[0][0]) or err(2, 'Failed to connect to database!', 1);
-    #}
     when ('pgsql') {
         # PostgreSQL.
         if ($ENFEAT !~ /pgsql/) { err(2, 'Auto not built with PostgreSQL support. Aborting.', 1) }
@@ -568,7 +551,7 @@ sub socksnd {
     my ($svr, $data) = @_;
 
     if (defined $SOCKET{$svr}) {
-        syswrite $SOCKET{$svr}, $data."\r\n", POSIX::BUFSIZ, 0;
+        syswrite $SOCKET{$svr}, "$data\r\n", POSIX::BUFSIZ, 0;
         dbug "$svr << $data";
         return 1;
     }

doc/CHANGELOG

@@ -5,6 +5,39 @@ Auto IRC Bot 3.0: Change Log
 ===============================================================================
 
 
+3.0 Alpha 10
+===============================================================================
+    * Werewolf moved to unstable/ for exclusion from alpha10.
+    * Werewolf: Fixed a bug causing double lynches occasionally.
+    * Werewolf: One bug fix and multiple bullets.
+    * Werewolf: Fixed timeout bug.
+    * Werewolf: Fixed various warnings.
+    * Werewolf: Handful of bugs fixed, timeouts rewritten, wolf assignment
+      rewritten. (see ROLES:Werewolf)
+    * Werewolf: Fixed an annoyance in VOTES.
+    * Werewolf: Fixed another round of bugs.
+    * Werewolf: Fixed a grammatical error. Thanks TAD!
+    * Werewolf: Fixed a bug that occasionally caused a person to get wolf
+      twice in the same game.
+    * Werewolf: Fixed a typo that broke the gun on occasion.
+    * Fixed a minor retract bug in Werewolf.
+    * Fixed two major bugs in Werewolf that messed up game play.
+    * Fixed several bugs and changed around JOIN/START/BEGIN in Werewolf.
+    * Fixed parsing of host masks with / in them. (if it was broken)
+    * Werewolf: Fixed a leave before game begin bug.
+    * Aliases now work in PM's to the bot too.
+    * Added an epic, Werewolf module.
+    * Made slog() saner.
+    * Syntax for mod_init() changed. Package name is no longer required.
+    * Added German translation to Greet help hash. - nridley
+    * Added German translation to FML help hash. - nridley
+    * Added German translation to Eval help hash. - nridley
+    * Added German translation to EightBall help hash. - nridley
+    * Added German translation to Dictionary help hash. - nridley
+    * Added German translation to Calc help hash. - nridley
+    * Added German translation to Bitly help hash. - nridley
+    * Added German translation to AUR help hash. - nridley
+
 3.0 Alpha 9
 ===============================================================================
     * Bug fix: Fixed an exploit in QDB RAND.

doc/CREDITS

@@ -9,6 +9,10 @@ Chazz "Alexandria" Wolcott <alyx@woomoo.org>
 
 Matthew "Mab879" Burket <matthew@assignitapp.com>
 - Spanish translations
+Noah "nridley" Ridley <nridley44@gmail.com>
+- Various.
+Eitan "variable" Adler <lists@eitanadler.com>
+- Werewolf improvements.
 
 -----------------------------------------------
 

doc/TODO

@@ -42,18 +42,18 @@ Legend:
 
  [!] Features
      [X] Weather module
-     [!] Urban Dictionary module
+     [ ] Urban Dictionary module
      [X] UNO module
      [ ] Google Search module
      [ ] IRC Relay module
      [ ] (Google?) News module
      [X] QDB module
-     [ ] Tumblr module
+     [!] Tumblr module
      [X] Google Calculator module
      [ ] YouTube Search module
      [ ] Twitter module
      [X] Advanced Topics module
-     [ ] Custom Triggers module
+     [!] Custom Triggers module
      [X] Shorten URL (bit.ly?) module
      [?] Bot Talk module
      [O] Minecraft<->IRC module

lib/API/IRC.pm

@@ -216,9 +216,10 @@ sub match_mask {
     $mh =~ s/\./\\\./gxsm;
     $mh =~ s/\?/\./gxsm;
     $mh =~ s/\*/\.\*/gxsm;
+    $mh =~ s/\//\\\//gxsm;
     $mh = q{^}.$mh.q{$};
 
-    # Let's grep the user's mask.
+    # Let's match the user's mask.
     if ($mu =~ m/$mh/xsm) {
         return 1;
     }

lib/API/Log.pm

@@ -113,6 +113,9 @@ sub slog
     if (conf_get('logchan')) {
         # It is, continue.
 
+        # Don't even bother with continuing if there are *NO* connections.
+        if (!keys %Auto::SOCKET) { return }
+
         # Split the network and channel.
         my ($net, $chan) = split m/[\/]/xsm, (conf_get('logchan'))[0][0];
         $chan = lc $chan;

lib/API/Std.pm

@@ -17,7 +17,8 @@ our @EXPORT_OK = qw(conf_get trans err awarn timer_add timer_del cmd_add
 
 # Initialize a module.
 sub mod_init {
-    my ($name, $author, $version, $autover, $pkg) = @_;
+    my ($name, $author, $version, $autover) = @_;
+    my $pkg = caller 0;
 
     # Log/debug.
     API::Log::dbug('MODULES: Attempting to load '.$name.' (version '.$version.') by '.$author.'...');
@@ -25,7 +26,7 @@ sub mod_init {
     if (keys %Auto::SOCKET) { API::Log::slog('MODULES: Attempting to load '.$name.' (version '.$version.') by '.$author.'...') }
 
     # Check if this module is compatible with this version of Auto.
-    if ($autover !~ m/^3\.0\.0a(7|8|9)$/xsm) {
+    if ($autover !~ m/^3\.0\.0a(7|8|9|10)$/xsm) {
         API::Log::dbug('MODULES: Failed to load '.$name.': Incompatible with your version of Auto.');
         API::Log::alog('MODULES: Failed to load '.$name.': Incompatible with your version of Auto.');
         if (keys %Auto::SOCKET) { API::Log::slog('MODULES: Failed to load '.$name.': Incompatible with your version of Auto.') }

lib/Core/Cmd.pm

@@ -265,7 +265,7 @@ sub cmd_help
         # Help for a specific command was requested. Lets get it.
         my $rcm = uc($argv[0]);
 
-        if (defined $API::Std::CMDS{$rcm}{help}) {
+        if (exists $API::Std::CMDS{$rcm}{help}) {
             # If there is help for this command.
             
             # Check for necessary privileges.
@@ -282,13 +282,13 @@ sub cmd_help
                 # Get the language.
                 my ($lang, undef) = split('_', $Auto::LOCALE);
 
-                if (defined ${ $API::Std::CMDS{$rcm}{help} }{$lang}) {
+                if (exists ${ $API::Std::CMDS{$rcm}{help} }{$lang}) {
                     # If help for this command is available in the configured language.
                     notice($src->{svr}, $src->{nick}, "Help for \002".$rcm."\002: ".${ $API::Std::CMDS{$rcm}{help} }{$lang});
                 }
                 else {
                     # If it isn't, default to English.
-                    if (defined ${ $API::Std::CMDS{$rcm}{help} }{en}) {
+                    if (exists ${ $API::Std::CMDS{$rcm}{help} }{en}) {
                         # If help for this command is available in English.
                         notice($src->{svr}, $src->{nick}, "Help for \002".$rcm."\002: ".${ $API::Std::CMDS{$rcm}{help} }{en});
                     }

lib/Core/IRC.pm

@@ -26,7 +26,7 @@ hook_add("on_uprivmsg", "ctcp_version_reply", sub {
     return 1;
 });
 
-# Command alias parsing.
+# Command alias parsing for channel messages.
 hook_add('on_cprivmsg', 'irc.commands.aliases', sub {
     my (($src, $chan, ($cmd, @args))) = @_;
 
@@ -61,6 +61,33 @@ hook_add('on_cprivmsg', 'irc.commands.aliases', sub {
     return 1;
 });
                         
+# Command alias parsing for private messages.
+hook_add('on_uprivmsg', 'irc.commands.aliases', sub {
+    my (($src, ($cmd, @args))) = @_;
+
+    # Check for an alias.
+    if (defined $API::Std::ALIASES{uc $cmd}) {
+        # Get aliased command.
+        my @actual;
+        if ($API::Std::ALIASES{uc $cmd} =~ m/ /xsm) { @actual = split /\s/xsm, $API::Std::ALIASES{uc $cmd} }
+        else { @actual = ($API::Std::ALIASES{uc $cmd}) }
+        # Prepare data.
+        my @msg = (
+            q{:}.$src->{nick}.q{!}.$src->{user}.q{@}.$src->{host},
+            'PRIVMSG',
+            $State::IRC::botinfo{$src->{svr}}{nick},
+            q{:}.$actual[0],
+        );
+        # Rest of the data.
+        if (scalar @actual > 1) { for (1..$#actual) { push @msg, $actual[$_] } }
+        if (defined $args[0]) { foreach (@args) { push @msg, $_ } }
+        # Simulate a PRIVMSG.
+        Proto::IRC::privmsg($src->{svr}, @msg);
+    }
+
+    return 1;
+});
+                        
 # QUIT hook; delete user from chanusers.
 hook_add("on_quit", "quit_update_chanusers", sub {
     my (($src, undef)) = @_;

lib/Lib/Auto.pm

@@ -211,6 +211,7 @@ sub ircsock {
             $Auto::SOCKET{$svrname} = IO::Socket::INET->new(%conndata) or # Or error.
             err(2, 'Failed to connect to server ('.$ERRNO.'): '.$svrname.' ['.$cdata->{'host'}[0].q{:}.$cdata->{'port'}[0].']', 0)
             and delete $Auto::SOCKET{$svrname} and next;
+            binmode($Auto::SOCKET{$svrname}, ':encoding(UTF-8)');
         }
     }
 

lib/Lib/Install.pm

@@ -123,7 +123,7 @@ sub installmods
     chomp $response;
     if (lc $response eq 'y') {
         println 'What modules would you like to install? (separate by commas)';
-        println 'Available modules: AUR, Badwords, Bitly, BotStats, Calc, ChanTopics, Dictionary, EightBall, Eval, FML, Greet, HelloChan, IsItUp, LinkTitle, LOLCAT, Oper, QDB, SASLAuth, UNO, Weather';
+        println 'Available modules: AUR, Badwords, Bitly, BotStats, Calc, ChanTopics, Dictionary, EightBall, Eval, FML, Greet, HelloChan, IsItUp, LinkTitle, LOLCAT, Oper, QDB, SASLAuth, UNO, Weather, Werewolf';
         print '> ';
         my $modules = <STDIN>; chomp $modules;
         $modules =~ s/ //g;

modules/AUR.pm

@@ -26,9 +26,10 @@ sub _void {
 }
 
 
-# Help hash for AUR. Spanish, French and German translations needed.
+# Help hash for AUR. Spanish and French translations needed.
 our %HELP_AUR = (
-    'en' => "This command allows you to lookup a module in the Arch Linux AUR. \002Syntax:\002 AUR <module>",
+    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>",
 );
 
 # Callback for AUR command.
@@ -63,7 +64,7 @@ sub cmd_aur {
 }
 
 # Start initialization.
-API::Std::mod_init('AUR', 'Xelhua', '1.00', '3.0.0a8', __PACKAGE__);
+API::Std::mod_init('AUR', 'Xelhua', '1.00', '3.0.0a10');
 # build: cpan=WWW::AUR perl=5.010000
 
 __END__

modules/Badwords.pm

@@ -70,7 +70,7 @@ sub actonbadword
 }
 
 
-API::Std::mod_init('Badwords', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('Badwords', 'Xelhua', '1.00', '3.0.0a10');
 # build: perl=5.010000
 
 __END__
@@ -121,7 +121,7 @@ Changing the obvious to your wish.
 
 =over
 
-This module is compatible with Auto version 3.0.0a7+.
+This module is compatible with Auto version 3.0.0a10+.
 
 =back
 

modules/Bitly.pm

@@ -38,10 +38,12 @@ sub _void
 
 # Help hashes.
 our %HELP_SHORTEN = (
-    'en' => "This command will shorten an URL using Bit.ly. \002Syntax:\002 SHORTEN <url>",
+    en => "This command will shorten an URL using Bit.ly. \2Syntax:\2 SHORTEN <url>",
+    de => "Dieser Befehl wird eine URL verkuerzen. \2Syntax:\2 SHORTEN <url>",
 );
 our %HELP_REVERSE = (
-    'en' => "This command will expand a Bit.ly URL. \002Syntax:\002 REVERSE <url>",
+    en => "This command will expand a Bit.ly URL. \2Syntax:\2 REVERSE <url>",
+    de => "Dieser Befehl wird eine URL erweitern. \2Syntax:\2 REVERSE <url>",
 );
 
 # Callback for SHORTEN command.
@@ -118,7 +120,7 @@ sub reverse
 
 
 # Start initialization.
-API::Std::mod_init('Bitly', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('Bitly', 'Xelhua', '1.00', '3.0.0a10');
 # build: cpan=LWP::UserAgent,URI::Escape perl=5.010000
 
 __END__
@@ -167,7 +169,7 @@ Add Bitly to module auto-load and the following to your configuration file:
 
 =over
 
-* Add Spanish, French and German translations for the help hashes.
+* Add Spanish and German translations for the help hashes.
 
 =back
 
@@ -178,7 +180,7 @@ Add Bitly to module auto-load and the following to your configuration file:
 This module adds extra dependencies: LWP::UserAgent and URI::Escape. You can
 get it from the CPAN <http://www.cpan.org>.
 
-This module is compatible with Auto version 3.0.0a7+.
+This module is compatible with Auto version 3.0.0a10+.
 
 =back
 

modules/BotStats.pm

@@ -72,7 +72,7 @@ sub stats {
 }
 
 
-API::Std::mod_init('BotStats', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('BotStats', 'Xelhua', '1.00', '3.0.0a10');
 # build: perl=5.010000
 
 __END__
@@ -89,7 +89,7 @@ BotStats - General information about the bot
 
  <starcoder> !stats
  <blue> I have been running for 0 days, 0 hours, 1 minutes, and 5 seconds.
- <blue> I am running Auto IRC Bot (version 3.0.0a7) for Perl v5.12.3 on linux.
+ <blue> I am running Auto IRC Bot (version 3.0.0a10) for Perl v5.12.3 on linux.
  <blue> I am on 2 channels, across 1 networks.
 
 =head1 DESCRIPTION
@@ -97,7 +97,7 @@ BotStats - General information about the bot
 This module creates the STATS command, for returning general information about
 the bot such as uptime, version, etc.
 
-This module is compatible with Auto v3.0.0a7+.
+This module is compatible with Auto v3.0.0a10+.
 
 =head1 AUTHOR
 

modules/Calc.pm

@@ -32,7 +32,8 @@ sub _void
 
 # Help hash.
 our %FHELP_CALC = (
-    'en' => "This command will calculate an expression using Google Calculator. \002Syntax:\002 CALC <expression>",
+    en => "This command will calculate an expression using Google Calculator. \2Syntax:\2 CALC <expression>",
+    de => "Dieser Befehl berechnet einen Ausdruck mit den Google Rechner. \2Syntax:\2 CALC <expression>",
 );
 
 # Callback for CALC command.
@@ -78,7 +79,7 @@ sub calc
 }
 
 # Start initialization.
-API::Std::mod_init('Calc', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('Calc', 'Xelhua', '1.00', '3.0.0a10');
 # build: cpan=LWP::UserAgent,URI::Escape,JSON,JSON::PP perl=5.010000
 
 __END__
@@ -107,7 +108,7 @@ Google Calculator.
 
 =over
 
-* Add Spanish, French and German translations for the help hash.
+* Add Spanish and French translations for the help hash.
 
 =back
 
@@ -118,7 +119,7 @@ Google Calculator.
 This module requires LWP::UserAgent, URI::Escape and JSON/JSON::PP. 
 All are obtainable from the CPAN <http://www.cpan.org>.
 
-This module is compatible with Auto version 3.0.0a7+.
+This module is compatible with Auto version 3.0.0a10+.
 
 =back
 

modules/ChanTopics.pm

@@ -282,7 +282,7 @@ sub _getdata
 }
 
 
-API::Std::mod_init('ChanTopics', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('ChanTopics', 'Xelhua', '1.00', '3.0.0a10');
 # build: perl=5.010000
 
 __END__
@@ -337,7 +337,7 @@ This module adds no extra dependencies.
 
 This module is not compatible with PostgreSQL, yet.
 
-This module is compatible with Auto v3.0.0a7+.
+This module is compatible with Auto v3.0.0a10+.
 
 Ported from v1.0.
 

modules/Dictionary.pm

@@ -31,7 +31,8 @@ sub _void
 
 # Help hash for DICT. Spanish, French and German translations needed.
 our %HELP_DICT = (
-    'en' => "This command allows you to lookup a word through Dict.org. \002Syntax:\002 DICT <word>",
+    en => "This command allows you to lookup a word through Dict.org. \2Syntax:\2 DICT <word>",
+    de => "Dieser Befehl ermoeglicht du auf nachschlagst ein Wort durch Dict.org. \2Syntax:\2 DICT <word>",
 );
 
 # Callback for DICT command.
@@ -75,7 +76,7 @@ sub cmd_dict
 
 
 # Start initialization.
-API::Std::mod_init('Dictionary', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('Dictionary', 'Xelhua', '1.00', '3.0.0a10');
 # build: cpan=Net::Dict perl=5.010000
 
 __END__
@@ -98,7 +99,7 @@ DICT command.
 This module adds an extra dependency: Net::Dict. You can get it from the CPAN
 <http://www.cpan.org>.
 
-This module is compatible with Auto v3.0.0a7+.
+This module is compatible with Auto v3.0.0a10+.
 
 =back
 

modules/EightBall.pm

@@ -45,10 +45,12 @@ sub _void {
 
 # Help hashes.
 our %HELP_8BALL = (
-    'en' => "This command will ask the magic 8-Ball your question. \002Syntax:\002 8BALL <question>",
+    en => "This command will ask the magic 8-Ball your question. \2Syntax:\2 8BALL <question>",
+    de => "Dieser Befehl fragt die magische 8-Kugel eine Frage. \2Syntax:\2 8BALL <question>",
 );
 our %HELP_RIGBALL = (
-    'en' => "This command will \"rig\" (set) the answer of the next 8-Ball question. \002Syntax:\002 RIGBALL <answer>",
+    en => "This command will \"rig\" (set) the answer of the next 8-Ball question. \2Syntax:\2 RIGBALL <answer>",
+    de => "Dieser Befehl wird festgelegt die Antwort der naechsten 8-Kugel Frage. \2Syntax:\2 RIGBALL <answer>",
 );
 
 # Callback for 8BALL command.
@@ -98,7 +100,7 @@ sub rigball {
 
 
 # Start initialization.
-API::Std::mod_init('EightBall', 'Xelhua', '2.00', '3.0.0a8', __PACKAGE__);
+API::Std::mod_init('EightBall', 'Xelhua', '2.00', '3.0.0a10');
 # build: perl=5.010000
 
 __END__

modules/Eval.pm

@@ -26,9 +26,10 @@ sub _void {
     return 1;
 }
 
-# Help hash for EVAL command. Spanish, German and French translations are needed.
+# Help hash for EVAL command. Spanish and French translations are needed.
 our %HELP_EVAL = (
-    'en' => "This command allows you to eval Perl code. USE WITH CAUTION. \2Syntax:\2 EVAL <expression>",
+    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>",
 );
 
 # Callback for EVAL command.
@@ -63,7 +64,7 @@ sub cmd_eval {
 
 
 # Start initialization.
-API::Std::mod_init('Eval', 'Xelhua', '1.01', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('Eval', 'Xelhua', '1.01', '3.0.0a10');
 # build: perl=5.010000
 
 __END__
@@ -88,7 +89,7 @@ IRC, returning the output via notice.
 
 This command requires the cmd.eval privilege.
 
-This module is compatible with Auto v3.0.0a7+.
+This module is compatible with Auto v3.0.0a10+.
 
 =head1 AUTHOR
 

modules/FML.pm

@@ -30,7 +30,8 @@ sub _void
 
 # Help hash.
 our %HELP_FML = (
-    'en' => "This command will return a random FML quote. \002Syntax:\002 FML",
+    en => "This command will return a random FML quote. \2Syntax:\2 FML",
+    de => "Dieser Befehl liefert eine zufaellige Zitat von FML. \2Syntax:\2 FML",
 );
 
 # Callback for FML command.
@@ -67,7 +68,7 @@ sub fml
 }
 
 # Start initialization.
-API::Std::mod_init('FML', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('FML', 'Xelhua', '1.00', '3.0.0a10');
 # build: cpan=LWP::UserAgent perl=5.010000
 
 __END__
@@ -98,7 +99,7 @@ have my hand back?" FML
 
 =over
 
-* Add Spanish, French and German translations for the help hash.
+* Add Spanish and French translations for the help hash.
 
 =back
 
@@ -109,7 +110,7 @@ have my hand back?" FML
 This module adds an extra dependency: LWP::UserAgent. You can get it from
 the CPAN <http://www.cpan.org>.
 
-This module is compatible with Auto version 3.0.0a7+.
+This module is compatible with Auto version 3.0.0a10+.
 
 Ported from Auto 2.0.
 

modules/Greet.pm

@@ -37,9 +37,10 @@ sub _void
     return 1;
 }
 
-# Help hash for GREET. Spanish, French and German translation needed.
+# Help hash for GREET. Spanish and French translation needed.
 our %HELP_GREET = (
-    'en' => "This command allows management of greets. \002Syntax:\002 GREET (ADD|DEL) [nick] [greet]",
+    en => "This command allows management of greets. \2Syntax:\2 GREET (ADD|DEL) [nick] [greet]",
+    de => "Dieser Befehl ermoeglicht die Verwaltung von Gruesse. \2Syntax:\2 GREET (ADD|DEL) [nick] [greet]",
 );
 # Callback for GREET.
 sub cmd_greet
@@ -125,7 +126,7 @@ sub hook_rcjoin
 }
 
 # Start initialization.
-API::Std::mod_init('Greet', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('Greet', 'Xelhua', '1.00', '3.0.0a10');
 # build: perl=5.010000
 
 __END__
@@ -145,7 +146,7 @@ user that has a greet in the database joins a channel the bot is in.
 
 =over
 
-* Add Spanish, French and German translations for the help hash.
+* Add Spanish and French translations for the help hash.
 
 =back
 
@@ -153,7 +154,7 @@ user that has a greet in the database joins a channel the bot is in.
 
 =over
 
-This module is compatible with Auto version 3.0.0a7+.
+This module is compatible with Auto version 3.0.0a10+.
 
 =back
 

modules/HelloChan.pm

@@ -36,7 +36,7 @@ sub hello
 
 
 # Start initialization.
-API::Std::mod_init('HelloChan', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('HelloChan', 'Xelhua', '1.00', '3.0.0a10');
 # build: perl=5.010000
 
 __END__

modules/IsItUp.pm

@@ -69,7 +69,7 @@ sub check
 }
 
 # Start initialization.
-API::Std::mod_init('IsItUp', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('IsItUp', 'Xelhua', '1.00', '3.0.0a10');
 # build: cpan=LWP::UserAgent perl=5.010000
 
 __END__
@@ -109,7 +109,7 @@ appears up or down to Auto.
 This module requires LWP::UserAgent. You can get it from
 the CPAN <http://www.cpan.org>.
 
-This module is compatible with Auto version 3.0.0a7+.
+This module is compatible with Auto version 3.0.0a10+.
 
 =back
 

modules/LOLCAT.pm

@@ -46,7 +46,7 @@ sub cmd_lolcat {
 }
 
 # Start initialization.
-API::Std::mod_init('LOLCAT', 'Xelhua', '1.00', '3.0.0a8', __PACKAGE__);
+API::Std::mod_init('LOLCAT', 'Xelhua', '1.00', '3.0.0a10');
 # build: perl=5.010000 cpan=Acme::LOLCAT
 
 __END__

modules/LinkTitle.pm

@@ -69,7 +69,7 @@ sub gettitle
 }
 
 # Start initialization.
-API::Std::mod_init('LinkTitle', 'Xelhua', '1.01', '3.0.0a8', __PACKAGE__);
+API::Std::mod_init('LinkTitle', 'Xelhua', '1.01', '3.0.0a10');
 # build: cpan=LWP::UserAgent,HTML::Entities perl=5.010000
 
 __END__

modules/Oper.pm

@@ -71,7 +71,7 @@ sub oper {
 }
 
 # Start initialization.
-API::Std::mod_init('Oper', 'Xelhua', '1.01', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('Oper', 'Xelhua', '1.01', '3.0.0a10');
 # build: perl=5.010000
 
 __END__

modules/QDB.pm

@@ -211,7 +211,7 @@ sub cmd_qdb
 }
 
 
-API::Std::mod_init('QDB', 'Xelhua', '1.04', '3.0.0a9', __PACKAGE__);
+API::Std::mod_init('QDB', 'Xelhua', '1.04', '3.0.0a10');
 # build: perl=5.010000
 
 __END__

modules/SASLAuth.pm

@@ -111,7 +111,7 @@ sub handle_906
 }
 
 # Start initialization.
-API::Std::mod_init('SASLAuth', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('SASLAuth', 'Xelhua', '1.00', '3.0.0a10');
 # build: perl=5.010000
 
 __END__
@@ -168,7 +168,7 @@ block(s) you wish to use SASL with:
 This adds an extra dependency: You must build Auto with the 
 --enable-sasl option.
 
-This module is compatible with Auto v3.0.0a7+.
+This module is compatible with Auto v3.0.0a10+.
 
 =back
 

modules/UNO.pm

@@ -23,7 +23,7 @@ sub _init {
         return;
     }
     $EDITION = (conf_get('uno:edition'))[0][0];
-    $EDITION = uc(substr $EDITION, 0, 1).substr $EDITION, 1;
+    $EDITION = ucfirst $EDITION;
 
     # Check if the edition is valid.
     if ($EDITION !~ m/^(Original|Super|Advanced|Any)$/xsm) {
@@ -1444,7 +1444,7 @@ sub sendmsg {
 }
 
 # Start initialization.
-API::Std::mod_init('UNO', 'Xelhua', '1.10', '3.0.0a9', __PACKAGE__);
+API::Std::mod_init('UNO', 'Xelhua', '1.10', '3.0.0a10');
 # build: perl=5.010000
 
 __END__
@@ -1505,7 +1505,7 @@ The commands this adds are:
 
 All of which describe themselves quite well with just the name.
 
-This module is compatible with Auto v3.0.0a9+.
+This module is compatible with Auto v3.0.0a10+.
 
 =head1 INSTALL
 

modules/Weather.pm

@@ -78,7 +78,7 @@ sub weather
 }
 
 # Start initialization.
-API::Std::mod_init('Weather', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('Weather', 'Xelhua', '1.00', '3.0.0a10');
 # build: cpan=LWP::UserAgent,XML::Simple perl=5.010000
 
 __END__
@@ -120,7 +120,7 @@ From the NE at 9 MPH Gusting to 22 MPH Conditions: Overcast
 This module requires LWP::UserAgent and XML::Simple. Both are 
 obtainable from CPAN <http://www.cpan.org>.
 
-This module is compatible with Auto version 3.0.0a7+.
+This module is compatible with Auto version 3.0.0a10+.
 
 =back