From: octo <octo>
Date: Sun, 10 Apr 2005 22:34:28 +0000 (+0000)
Subject: Onis::Plugins::{Userdetails,Interestingnumbers} have been looked at for a start.... 
X-Git-Tag: Release-0.8.0~20^2~26
X-Git-Url: https://git.verplant.org/?a=commitdiff_plain;h=29beb25ba6496e8eb5073f65dccd029ce7d2181d;p=onis.git

Onis::Plugins::{Userdetails,Interestingnumbers} have been looked at for a start. Nowhere near complete though..
---

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);
+}
diff --git a/lib/Onis/Plugins/Userdetails.pm b/lib/Onis/Plugins/Userdetails.pm
new file mode 100644
index 0000000..75f91e2
--- /dev/null
+++ b/lib/Onis/Plugins/Userdetails.pm
@@ -0,0 +1,465 @@
+package Onis::Plugins::Userdetails;
+
+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(get_main_nick register_plugin));
+use Onis::Users (qw(ident_to_name get_link get_image));
+
+our $DISPLAY_IMAGES = 0;
+our $DEFAULT_IMAGE = '';
+
+register_plugin ('OUTPUT', \&output);
+
+our $SORT_BY = 'lines';
+if (get_config ('sort_by'))
+{
+	my $tmp = get_config ('sort_by');
+	$tmp = lc ($tmp);
+
+	if (($tmp eq 'lines') or ($tmp eq 'words') or ($tmp eq 'chars'))
+	{
+		$SORT_BY = $tmp;
+	}
+	else
+	{
+		# The Core plugin already complained about this..
+	}
+}
+our $PLUGIN_MAX = 10;
+if (get_config ('plugin_max'))
+{
+	my $tmp = get_config ('plugin_max');
+	$tmp =~ s/\D//g;
+	$PLUGIN_MAX = $tmp if ($tmp);
+}
+if (get_config ('display_images'))
+{
+	my $tmp = get_config ('display_images');
+
+	if ($tmp =~ m/true|on|yes/i)
+	{
+		$DISPLAY_IMAGES = 1;
+	}
+	elsif ($tmp =~ m/false|off|no/i)
+	{
+		$DISPLAY_IMAGES = 0;
+	}
+	else
+	{
+		print STDERR $/, __FILE__, ": ``display_times'' has been set to the invalid value ``$tmp''. ",
+		$/, __FILE__, ": Valid values are ``true'' and ``false''. Using default value ``false''.";
+	}
+}
+if (get_config ('default_image'))
+{
+	$DEFAULT_IMAGE = get_config ('default_image');
+}
+
+our @H_IMAGES = qw#dark-theme/h-red.png dark-theme/h-blue.png dark-theme/h-yellow.png dark-theme/h-green.png#;
+if (get_config ('horizontal_images'))
+{
+	my @tmp = get_config ('horizontal_images');
+	my $i;
+	
+	if (scalar (@tmp) != 4)
+	{
+		# Do nothing:
+		# The core-pligin already complained about this..
+	}
+
+	for ($i = 0; $i < 4; $i++)
+	{
+		if (!defined ($tmp[$i]))
+		{
+			next;
+		}
+
+		$H_IMAGES[$i] = $tmp[$i];
+	}
+}
+
+our @V_IMAGES = qw#images/ver0n.png images/ver1n.png images/ver2n.png images/ver3n.png#;
+if (get_config ('vertical_images'))
+{
+	my @tmp = get_config ('vertical_images');
+	my $i;
+	
+	if (scalar (@tmp) != 4)
+	{
+		# Do nothing:
+		# Hopefully someone complained by now..
+	}
+
+	for ($i = 0; $i < 4; $i++)
+	{
+		if (!defined ($tmp[$i]))
+		{
+			next;
+		}
+
+		$V_IMAGES[$i] = $tmp[$i];
+	}
+}
+
+our $BAR_HEIGHT = 130;
+if (get_config ('bar_height'))
+{
+	my $tmp = get_config ('bar_height');
+	$tmp =~ s/\D//g;
+	$BAR_HEIGHT = $tmp if ($tmp >= 10);
+}
+#$BAR_HEIGHT = int ($BAR_HEIGHT / 2);
+
+our $BAR_WIDTH  = 100;
+if (get_config ('bar_width'))
+{
+	my $tmp = get_config ('bar_width');
+	$tmp =~ s/\D//g;
+	$BAR_WIDTH = $tmp if ($tmp >= 10);
+}
+
+my $VERSION = '$Id: Userdetails.pm,v 1.5 2005/03/14 18:40:25 octo Exp $';
+print STDERR $/, __FILE__, ": $VERSION" if ($::DEBUG);
+
+return (1);
+
+sub output
+{
+	my @names = sort
+	{
+		$DATA->{'byname'}{$b}{$SORT_BY} <=> $DATA->{'byname'}{$a}{$SORT_BY}
+	} grep
+	{
+		defined ($DATA->{'byname'}{$_}{'words'})
+	} (keys (%{$DATA->{'byname'}}));
+
+	return (undef) unless (@names);
+	
+	my $max = $PLUGIN_MAX;
+	
+	my $fh = get_filehandle ();
+
+	my $trans = translate ('Detailed nick stats');
+	my $num;
+
+	my $max_time = 0;
+	my $max_conv = 0;
+
+	for (@names)
+	{
+		my $name = $_;
+		
+		if (defined ($DATA->{'byname'}{$name}{'chars_time'}))
+		{
+			for (0..23)
+			{
+				next unless (defined ($DATA->{'byname'}{$name}{'chars_time'}{$_}));
+				if ($DATA->{'byname'}{$name}{'chars_time'}{$_} > $max_time)
+				{
+					$max_time = $DATA->{'byname'}{$name}{'chars_time'}{$_};
+				}
+			}
+		}
+		if (defined ($DATA->{'byname'}{$name}{'conversations'}))
+		{
+			my @others = keys (%{$DATA->{'byname'}{$name}{'conversations'}});
+			for (@others)
+			{
+				my $o = $_;
+				my $num = 0;
+
+				for (0..3)
+				{
+					$num += $DATA->{'byname'}{$name}{'conversations'}{$o}[$_];
+				}
+
+				if ($num > $max_conv)
+				{
+					$max_conv = $num;
+				}
+			}
+		}
+	}
+
+	my $time_factor = 0;
+	my $conv_factor = 0;
+
+	if ($max_time)
+	{
+		$time_factor = $BAR_HEIGHT / $max_time;
+	}
+
+	if ($max_conv)
+	{
+		$conv_factor = $BAR_WIDTH / $max_conv;
+	}
+	
+	print $fh qq#<table class="plugin userdetails">\n#,
+	qq#  <tr>\n#,
+	qq#    <th colspan="#, $DISPLAY_IMAGES ? 3 : 2, qq#">$trans</th>\n#,
+	qq#  </tr>\n#;
+
+	for (@names)
+	{
+		my $name = $_;
+
+		print $fh qq#  <tr>\n#,
+		qq#    <th colspan="#, $DISPLAY_IMAGES ? 3 : 2, qq#" class="nick">$name</th>\n#,
+		qq#  </tr>\n#,
+		qq#  <tr>\n#;
+
+		if ($DISPLAY_IMAGES)
+		{
+			my $link = get_link ($name);
+			my $image = get_image ($name);
+			
+			if ($DEFAULT_IMAGE and !$image)
+			{
+				$image = $DEFAULT_IMAGE;
+			}
+
+			print $fh qq#    <td class="image" rowspan="2">#;
+			if ($image)
+			{
+				if ($link)
+				{
+					print $fh qq#<a href="$link">#;
+				}
+				print $fh qq#<img src="$image" alt="$name" />#;
+				if ($link)
+				{
+					print $fh "</a>";
+				}
+			}
+			else
+			{
+				print $fh '&nbsp;';
+			}
+			print $fh "</td>\n";
+		}
+
+		print $fh qq#    <td class="counters">\n#;
+
+		$num = $DATA->{'byname'}{$name}{'lines'};
+		$trans = translate ('Has written %u lines');
+		printf $fh ("      $trans<br />\n", $num);
+
+		$num = $DATA->{'byname'}{$name}{'words'};
+		$trans = translate ('Has written %u words');
+		printf $fh ("      $trans<br />\n", $num);
+
+		$num = $DATA->{'byname'}{$name}{'chars'};
+		$trans = translate ('Has written %u chars');
+		printf $fh ("      $trans<br />\n", $num);
+
+		if ($DATA->{'byname'}{$name}{'lines'})
+		{
+			$num = $DATA->{'byname'}{$name}{'words'} / $DATA->{'byname'}{$name}{'lines'};
+			$trans = translate ('Has written %.1f words per line');
+			printf $fh ("      $trans<br />\n", $num);
+
+			$num = $DATA->{'byname'}{$name}{'chars'} / $DATA->{'byname'}{$name}{'lines'};
+			$trans = translate ('Has written %.1f characters per line');
+			printf $fh ("      $trans<br />\n", $num);
+		}
+
+		print $fh qq#    </td>\n    <td class="numbers">\n#;
+
+		if (defined ($DATA->{'byname'}{$name}{'op_given'}))
+		{
+			$num = $DATA->{'byname'}{$name}{'op_given'};
+			$trans = translate ('Has given %u ops');
+
+			printf $fh ("      $trans<br />\n", $num);
+		}
+		
+		if (defined ($DATA->{'byname'}{$name}{'op_taken'}))
+		{
+			$num = $DATA->{'byname'}{$name}{'op_taken'};
+			$trans = translate ('Has taken %u ops');
+
+			printf $fh ("      $trans<br />\n", $num);
+		}
+		
+		if (defined ($DATA->{'byname'}{$name}{'kick_given'}))
+		{
+			$num = $DATA->{'byname'}{$name}{'kick_given'};
+			$trans = translate ('Has kicked out %u people');
+
+			printf $fh ("      $trans<br />\n", $num);
+		}
+		
+		if (defined ($DATA->{'byname'}{$name}{'kick_received'}))
+		{
+			$num = $DATA->{'byname'}{$name}{'kick_received'};
+			$trans = translate ('Has been kicked out %u times');
+
+			printf $fh ("      $trans<br />\n", $num);
+		}
+		
+		if (defined ($DATA->{'byname'}{$name}{'questions'}))
+		{
+			$num = 100 * $DATA->{'byname'}{$name}{'questions'} / $DATA->{'byname'}{$name}{'lines'};
+			$trans = translate ("Question ratio: %.1f%%");
+
+			printf $fh ("      $trans<br />\n", $num);
+		}
+
+		if (defined ($DATA->{'byname'}{$name}{'topics'}))
+		{
+			$num = $DATA->{'byname'}{$name}{'topics'};
+			$trans = translate ('Has set %u topics');
+
+			printf $fh ("      $trans<br />\n", $num);
+		}
+
+		if (defined ($DATA->{'byname'}{$name}{'actions'}))
+		{
+			$num = $DATA->{'byname'}{$name}{'actions'};
+			$trans = translate ('Has performed %u actions');
+
+			printf $fh ("      $trans<br />\n", $num);
+		}
+
+		# actions # TODO
+		# exclamation ratio # TODO
+		# # of nicks
+		#
+		# chats with
+		# lines per day
+
+		print $fh qq#    </td>\n  </tr>\n  <tr>\n    <td class="houractivity">\n#;
+		
+		if (defined ($DATA->{'byname'}{$name}{'chars_time'}))
+		{
+			print $fh qq#      <table class="hours_of_day">\n        <tr>\n#;
+			
+			for (0..11)
+			{
+				my $hour = 2 * $_;
+				my $num = 0;
+
+				my $img = $V_IMAGES[int ($hour / 6)];
+				my $height;
+
+				if (defined ($DATA->{'byname'}{$name}{'chars_time'}{$hour}))
+				{
+					$num = $DATA->{'byname'}{$name}{'chars_time'}{$hour};
+				}
+				if (defined ($DATA->{'byname'}{$name}{'chars_time'}{1 + $hour}))
+				{
+					$num = $DATA->{'byname'}{$name}{'chars_time'}{1 + $hour};
+				}
+
+				$height = int (0.5 + ($time_factor * $num));
+				if (!$height)
+				{
+					$height = 1;
+				}
+
+				print $fh qq#          <td><img src="$img" alt="$num chars" #,
+				qq#style="height: ${height}px;" /></td>\n#;
+			}
+
+			print $fh <<EOF;
+        </tr>
+	<tr class="hour_row">
+	  <td colspan="3">0-5</td>
+	  <td colspan="3">6-11</td>
+	  <td colspan="3">12-17</td>
+	  <td colspan="3">18-23</td>
+	</tr>
+      </table>
+EOF
+		}
+		else
+		{
+			print $fh '&nbsp;';
+		}
+
+		print $fh qq#    </td>\n    <td class="convpartners">\n#;
+		
+		if (defined ($DATA->{'byname'}{$name}{'conversations'}))
+		{
+			my $i;
+			my $data = $DATA->{'byname'}{$name}{'conversations'};
+			my @names = sort
+			{
+				($data->{$b}[0] + $data->{$b}[1] + $data->{$b}[2] + $data->{$b}[3])
+				<=>
+				($data->{$a}[0] + $data->{$a}[1] + $data->{$a}[2] + $data->{$a}[3])
+			}
+			keys (%$data);
+
+			$trans = translate ('Talks to');
+
+			print $fh <<EOF;
+      <table>
+        <tr>
+	  <td colspan="2">$trans:</td>
+	</tr>
+EOF
+
+			$i = 0;
+			for (@names)
+			{
+				my $this_name = $_;
+				my $total = 0;
+
+				print $fh "        <tr>\n",
+				qq#          <td class="nick">$this_name</td>\n#,
+				qq#          <td class="bar">#;
+
+				for (0..3)
+				{
+					my $k = $_;
+					
+					my $img = $H_IMAGES[$k];
+					my $width = int (0.5 + ($conv_factor * $data->{$this_name}[$_]));
+					if (!$width)
+					{
+						$width = 1;
+					}
+					
+					print $fh qq#<img src="$img" alt="" #;
+					if ($k == 0)
+					{
+						print $fh qq#class="first" #;
+					}
+					elsif ($k == 3)
+					{
+						print $fh qq#class="last" #;
+					}
+					print $fh qq#style="width: ${width}px;" />#;
+				}
+				
+				print $fh "</td>\n        </tr>\n";
+
+				$i++;
+
+				if ($i >= $PLUGIN_MAX)
+				{
+					last;
+				}
+			}
+
+			print $fh "      </table>\n";
+		}
+		else
+		{
+			print $fh '&nbsp;';
+		}
+
+		$max--;
+		if ($max <= 0)
+		{
+			last;
+		}
+	}
+
+	print $fh "</table>\n\n";
+}