X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=lib%2FOnis%2FPlugins%2FInterestingnumbers.pm;fp=lib%2FOnis%2FPlugins%2FInterestingnumbers.pm;h=a397bd7ccb68a9c5b504a94f7fb2abaaae90e036;hb=29beb25ba6496e8eb5073f65dccd029ce7d2181d;hp=0000000000000000000000000000000000000000;hpb=1ba6fd4ec25afd063c87ec1a4c1c6f9ba2601524;p=onis.git

diff --git a/lib/Onis/Plugins/Interestingnumbers.pm b/lib/Onis/Plugins/Interestingnumbers.pm
new file mode 100644
index 0000000..a397bd7
--- /dev/null
+++ b/lib/Onis/Plugins/Interestingnumbers.pm
@@ -0,0 +1,347 @@
+package Onis::Plugins::Interestingnumbers;
+
+use strict;
+use warnings;
+
+use Onis::Config (qw(get_config));
+use Onis::Html (qw(html_escape get_filehandle));
+use Onis::Language (qw(translate));
+use Onis::Data::Core (qw(nick_to_ident register_plugin));
+
+our $SOLILOQUIES = {};
+
+register_plugin ('ACTION', \&add_action);
+register_plugin ('JOIN', \&add_join);
+register_plugin ('KICK', \&add_kick);
+register_plugin ('MODE', \&add_mode);
+register_plugin ('TEXT', \&add_text);
+register_plugin ('OUTPUT', \&output);
+
+our $InterestingNumbersCache = ('InterestingNumbersCache', 'nick', qw(actions joins kicks_given kicks_received modes soliloquies));
+
+our $SOLILOQUIES_COUNT = 5;
+if (get_config ('soliloquies_count'))
+{
+	my $tmp = get_config ('soliloquies_count');
+	$tmp =~ s/\D//g;
+
+	$SOLILOQUIES_COUNT = $tmp if ($tmp);
+}
+		
+my $VERSION = '$Id$';
+print STDERR $/, __FILE__, ": $VERSION" if ($::DEBUG);
+
+return (1);
+
+sub add_action
+{
+	my $data = shift;
+	my $nick = $data->{'nick'};
+
+	my $ident = $data->{'ident'};
+	
+	$DATA->{'byident'}{$ident}{'actions'}++;
+	
+	return (1);
+}
+
+sub add_join
+{
+	my $data = shift;
+
+	my $ident = $data->{'ident'};
+	
+	$DATA->{'byident'}{$ident}{'joins'}++;
+	
+	return (1);
+}
+
+sub add_kick
+{
+	my $data = shift;
+
+	my $ident_give = $data->{'ident'};
+	my $ident_rcvt = nick_to_ident ($data->{'nick_received'});
+
+	$DATA->{'byident'}{$ident_give}{'kick_given'}++;
+
+	if ($ident_rcvt)
+	{
+		$DATA->{'byident'}{$ident_rcvt}{'kick_received'}++;
+	}
+	
+	return (1);
+}
+
+sub add_mode
+{
+	my $data = shift;
+
+	my $ident = $data->{'ident'};
+	my $text = $data->{'mode'};
+	
+	my ($mode) = split (m/\s+/, $text);
+	my $modifier = '';
+
+	for (split (m//, $mode))
+	{
+		my $tmp = $_;
+		if (($tmp eq '-') or ($tmp eq '+'))
+		{
+			$modifier = $tmp;
+			next;
+		}
+		elsif (!$modifier)
+		{
+			next;
+		}
+
+		if ($tmp eq 'o')
+		{
+			if ($modifier eq '-')
+			{
+				$DATA->{'byident'}{$ident}{'op_taken'}++;
+			}
+			else # ($modifier eq '+')
+			{
+				$DATA->{'byident'}{$ident}{'op_given'}++;
+			}
+		}
+	}
+
+	return (1);
+}
+
+sub add_text
+{
+	my $data = shift;
+
+	my $ident = $data->{'ident'};
+
+	if (!defined ($SOLILOQUIES->{'ident'}))
+	{
+		$SOLILOQUIES->{'ident'} = $ident;
+		$SOLILOQUIES->{'count'} = 1;
+	}
+	else
+	{
+		if ($SOLILOQUIES->{'ident'} eq $ident)
+		{
+			my $count = ++$SOLILOQUIES->{'count'};
+			if ($count == $SOLILOQUIES_COUNT)
+			{
+				$DATA->{'byident'}{$ident}{'soliloquies'}++;
+			}
+		}
+		else
+		{
+			$SOLILOQUIES->{'ident'} = $ident;
+			$SOLILOQUIES->{'count'} = 1;
+		}
+	}
+
+	return (1);
+}
+
+sub output
+{
+	my $first;
+	my $second;
+
+	my $fh = get_filehandle ();
+
+	my $trans = translate ('Interesting Numbers');
+	
+	print $fh <<EOF;
+<table class="plugin interestingnumbers">
+  <tr>
+    <th>$trans</th>
+  </tr>
+EOF
+	($first, $second) = sort_by_field ('kick_received');
+	if ($first)
+	{
+		my $num = $DATA->{'byname'}{$first}{'kick_received'};
+		$trans = translate ('kick_received0: %s %u');
+
+		print $fh "  <tr>\n    <td>";
+		printf $fh ($trans, $first, $num);
+		
+		if ($second)
+		{
+			$num = $DATA->{'byname'}{$second}{'kick_received'};
+			$trans = translate ('kick_received1: %s %u');
+
+			print $fh "<br />\n",
+			qq#      <span class="small">#;
+			printf $fh ($trans, $second, $num);
+			print $fh '</span>';
+		}
+		
+		print $fh "</td>\n  </tr>\n";
+	}
+
+	($first, $second) = sort_by_field ('kick_given');
+	if ($first)
+	{
+		my $num = $DATA->{'byname'}{$first}{'kick_given'};
+		$trans = translate ('kick_given0: %s %u');
+
+		print $fh "  <tr>\n    <td>";
+		printf $fh ($trans, $first, $num);
+
+		if ($second)
+		{
+			$num = $DATA->{'byname'}{$second}{'kick_given'};
+			$trans = translate ('kick_given1: %s %u');
+
+			print $fh "<br />\n",
+			qq#      <span class="small">#;
+			printf $fh ($trans, $second, $num);
+			print $fh '</span>';
+		}
+
+		print $fh "</td>\n  </tr>\n";
+	}
+
+	($first, $second) = sort_by_field ('op_given');
+	if ($first)
+	{
+		my $num = $DATA->{'byname'}{$first}{'op_given'};
+		$trans = translate ('op_given0: %s %u');
+
+		print $fh "  <tr>\n    <td>";
+		printf $fh ($trans, $first, $num);
+		
+		if ($second)
+		{
+			$num = $DATA->{'byname'}{$second}{'op_given'};
+			$trans = translate ('op_given1: %s %u');
+
+			print $fh "<br />\n",
+			qq#      <span class="small">#;
+			printf $fh ($trans, $second, $num);
+			print $fh '</span>';
+		}
+		
+		print $fh "</td>\n  </tr>\n";
+	}
+
+	($first, $second) = sort_by_field ('op_taken');
+	if ($first)
+	{
+		my $num = $DATA->{'byname'}{$first}{'op_taken'};
+		$trans = translate ('op_taken0: %s %u');
+
+		print $fh "  <tr>\n    <td>";
+		printf $fh ($trans, $first, $num);
+		
+		if ($second)
+		{
+			$num = $DATA->{'byname'}{$second}{'op_taken'};
+			$trans = translate ('op_taken1: %s %u');
+
+			print $fh "<br />\n",
+			qq#      <span class="small">#;
+			printf $fh ($trans, $second, $num);
+			print $fh '</span>';
+		}
+		
+		print $fh "</td>\n  </tr>\n";
+	}
+
+	($first, $second) = sort_by_field ('actions');
+	if ($first)
+	{
+		my $num = $DATA->{'byname'}{$first}{'actions'};
+		$trans = translate ('action0: %s %u');
+
+		print $fh "  <tr>\n    <td>";
+		printf $fh ($trans, $first, $num);
+		
+		if ($second)
+		{
+			$num = $DATA->{'byname'}{$second}{'actions'};
+			$trans = translate ('action1: %s %u');
+
+			print $fh "<br />\n",
+			qq#      <span class="small">#;
+			printf $fh ($trans, $second, $num);
+			print $fh '</span>';
+		}
+
+		print $fh "</td>\n  </tr>\n";
+	}
+	
+	($first, $second) = sort_by_field ('soliloquies');
+	if ($first)
+	{
+		my $num = $DATA->{'byname'}{$first}{'soliloquies'};
+		$trans = translate ('soliloquies0: %s %u');
+
+		print $fh "  <tr>\n    <td>";
+		printf $fh ($trans, $first, $num);
+		
+		if ($second)
+		{
+			$num = $DATA->{'byname'}{$second}{'soliloquies'};
+			$trans = translate ('soliloquies1: %s %u');
+
+			print $fh "<br />\n",
+			qq#      <span class="small">#;
+			printf $fh ($trans, $second, $num);
+			print $fh '</span>';
+		}
+
+		print $fh "</td>\n  </tr>\n";
+	}
+	
+	($first, $second) = sort_by_field ('joins');
+	if ($first)
+	{
+		my $num = $DATA->{'byname'}{$first}{'joins'};
+		$trans = translate ('joins0: %s %u');
+
+		print $fh "  <tr>\n    <td>";
+		printf $fh ($trans, $first, $num);
+		
+		if ($second)
+		{
+			$num = $DATA->{'byname'}{$second}{'joins'};
+			$trans = translate ('joins1: %s %u');
+
+			print $fh "<br />\n",
+			qq#      <span class="small">#;
+			printf $fh ($trans, $second, $num);
+			print $fh '</span>';
+		}
+
+		print $fh "</td>\n  </tr>\n";
+	}
+
+	print $fh "</table>\n\n";
+}
+
+sub sort_by_field
+{
+	my $field = shift;
+	
+	my @retval = sort
+	{
+		$DATA->{'byname'}{$b}{$field}
+		<=>
+		$DATA->{'byname'}{$a}{$field}
+	} grep
+	{
+		defined ($DATA->{'byname'}{$_}{$field})
+			and defined ($DATA->{'byname'}{$_}{'lines'})
+			and ($DATA->{'byname'}{$_}{'lines'} >= 100)
+	} (keys (%{$DATA->{'byname'}}));
+
+	while (scalar (@retval) < 2)
+	{
+		push (@retval, '');
+	}
+	
+	return (@retval);
+}