Prepare 0.8 release, limit connection rate

README.pod

@@ -129,6 +129,8 @@ Ryan Baumann
 
 Paul Robins E<lt>alice@mon.gsE<gt>
 
+Clint Ecker
+
 =head1 COPYRIGHT
 
 Copyright 2009 by Lee Aylward E<lt>leedo@cpan.orgE<gt>

lib/App/Alice.pm

@@ -11,7 +11,7 @@ use App::Alice::Logger;
 use Any::Moose;
 use File::Copy;
 
-our $VERSION = '0.06';
+our $VERSION = '0.08';
 
 has cond => (
   is       => 'rw',

lib/App/Alice.pod

@@ -129,6 +129,8 @@ Ryan Baumann
 
 Paul Robins E<lt>alice@mon.gsE<gt>
 
+Clint Ecker
+
 =head1 COPYRIGHT
 
 Copyright 2009 by Lee Aylward E<lt>leedo@cpan.orgE<gt>

lib/App/Alice/IRC.pm

@@ -47,7 +47,7 @@ has 'reconnect_timer' => (
   is => 'rw'
 );
 
-has 'reconnect_count' => (
+has [qw/reconnect_count connect_time/] => (
   is  => 'rw',
   isa => 'Int',
   default   => 0,
@@ -182,6 +182,7 @@ sub connected {
   }
   else {
     $self->reset_reconnect_count;
+    $self->connect_time(time);
     $self->is_connected(1);
   }
 }
@@ -192,6 +193,11 @@ sub reconnect {
     $self->log_info("too many failed reconnects, giving up");
     return;
   }
+  my $interval = time - $self->connect_time;
+  if ($interval < 30) {
+    $time = 30 - $interval;
+    $self->log_info("last attempt was within 30 seconds, delaying $time seconds")
+  }
   $time = 60 unless $time >= 0;
   $self->log_info("reconnecting in $time seconds");
   $self->reconnect_timer(