Fix logging, update sample config, implement !horse !лошадка !frog !лягушка !snail !улитка commands

* Make logging use features of Log::Any and log as it should be done via this module
+ Add loglevel parameter to sample config
+ Implement !horse !лошадка !frog !лягушка !snail !улитка commands

lib/BotLib/Drink.pm

@@ -7,12 +7,12 @@ use utf8;
 use open qw (:std :utf8);
 use English qw ( -no_match_vars );
 use Encode;
-use Carp qw (cluck);
 use CHI;
 use CHI::Driver::BerkeleyDB;
 use DateTime;
 use HTTP::Tiny;
 use HTML::TokeParser;
+use Log::Any qw ($log);
 use POSIX qw (strftime);
 use BotLib::Conf qw (LoadConf);
 
@@ -66,7 +66,7 @@ sub Drink {
 				$ret = join "\n", @holiday;
 			}
 		} else {
-			cluck sprintf 'Server return status %s with message: %s', $r->{status}, $r->{reason};
+			$log->warn (sprintf '[WARN] Server return status %s with message: %s', $r->{status}, $r->{reason});
 			return undef;
 		}