package Perlbot::Plugin::Protection;

use Perlbot::Plugin;
@ISA = qw(Perlbot::Plugin);

our $VERSION = '1.0.0';

sub init {
  my $self = shift;

  $self->want_fork(0);

  $self->{deoppers} = {};

  $self->hook_event('mode', \&modechange);
}

sub modechange {
  my $self = shift;
  my $event = shift;
  my $modestring = $event->{args}[0];

  $self->config() or return;

  my $deopper = $event->nick();
  my $mintime = $self->config->value('mintimebetweendeops');

  if ($deopper eq $self->perlbot->curnick) { return; }

  if ($modestring =~ /-o/) {
    my $numdeops = length(($modestring =~ /-(o+)/g)[0]);

    if ($numdeops > 1 && $mintime > 0) {
      $self->perlbot->deop($event->{to}[0], $event->nick());
    } elsif ($self->{deoppers}{$deopper} &&
             (time() - $self->{deoppers}{$event->nick()}) < $mintime) {
      $self->perlbot->deop($event->{to}[0], $event->nick());
    }

    $self->{deoppers}{$event->nick()} = time();

    foreach my $deopper (keys(%{$self->{deoppers}})) {
      if (time() - $self->{deoppers}{$deopper} > $mintime) {
        delete $self->{deoppers}{$deopper};
      }
    }
  }
}

1;