package Protection::Plugin;

my $last_mode_change_time;
my @last_mode_changer;

my $nick = 0;
my $chan = 1;
my $mode = 2;
my $target = 3;

sub get_hooks {
    return { mode => \&modechange };
}

sub modechange {
    my $conn = shift;
    my $event = shift;
    my $current_mode_change_time;
    my $mintime = 10;
    my $maxdeops = 2;
    my $timedif = 0;

    my $deop_ratio = $maxdeops / $mintime;

    my $curnick = (split('!', $event->{from}))[0];

    my $curchan = $event->{to}[0];

    my $curmode = $event->{args}[0];
    my $curtarget = $event->{args}[1];

    $current_mode_change_time = time();

    if(!$last_mode_change_time || !@last_mode_changer) {

	$last_mode_change_time = $current_mode_change_time;
    
	$last_mode_changer[$nick] = $curnick;
	$last_mode_changer[$chan] = $curchan;
	$last_mode_changer[$mode] = $curmode;
	$last_mode_changer[$target] = $curtarget;

	return;
    }

    $timedif = $current_mode_change_time - $last_mode_change_time;

    if($last_mode_changer[$nick] eq $curnick) {
#	if(($curmode eq '-o') && ($last_mode_changer[$mode] eq '-o')) {
#	    if($timedif < $mintime) {
#		$conn->mode($curchan, "-o", $curnick);
#		return;
#	    }
#	}

      if(($curmode =~ /-o/) && ($last_mode_changer[$mode] =~ /-o/)) {
	$curmode =~ s/[+|-]//g;
	my @modes = split(/\s*/, $curmode);

	if((@modes / $mintime) > $deop_ratio) {
	  $conn->mode($curchan, "-o", $curnick);
	}
      }

    }

    $last_mode_change_time = $current_mode_change_time;
    
    $last_mode_changer[$nick] = $curnick;
    $last_mode_changer[$chan] = $curchan;
    $last_mode_changer[$mode] = $curmode;
    $last_mode_changer[$target] = $curtarget;

}

1;