  # Initialize this hour's message count.
  has 'messages_sent_today'     => (isa => 'HashRef', is => 'ro', default => sub{{(localtime)[7] => {(localtime)[2] => 0}}});
  
-@@ -294,6 +299,18 @@
+@@ -294,6 +303,18 @@
  
  safetey: 166
  

--- Bot.pm.old	2016-01-09 19:49:41.801668822 +0300
+++ Bot.pm	2016-04-03 15:41:32.029288021 +0300
@@ -12,7 +12,7 @@
 use Time::HiRes;
 use Sys::Hostname;
 use Log::Log4perl qw(:easy);
-#use Data::Dumper; #For testing only.
+#use Data::Dumper; #For @ret;
 
 
 coerce Bool, from Str, 
@@ -49,17 +49,18 @@
 has 'loop_sleep_time'     => (isa => PosNum, is => 'rw', default => 5);
 has 'process_timeout'     => (isa => PosNum, is => 'rw', default => 5);
 has 'from_full'           => (isa => Str, is => 'rw', default => sub{my $self = shift;

 =back
 
 =cut
@@ -422,7 +443,7 @@
     $self->Process(5);
 
     foreach my $forum (keys %{$self->forums_and_responses}) {
