From 29beb25ba6496e8eb5073f65dccd029ce7d2181d Mon Sep 17 00:00:00 2001 From: octo Date: Sun, 10 Apr 2005 22:34:28 +0000 Subject: [PATCH] Onis::Plugins::{Userdetails,Interestingnumbers} have been looked at for a start. Nowhere near complete though.. --- lib/Onis/Plugins/Interestingnumbers.pm | 347 ++++++++++++++++++++++++ lib/Onis/Plugins/Userdetails.pm | 465 +++++++++++++++++++++++++++++++++ 2 files changed, 812 insertions(+) create mode 100644 lib/Onis/Plugins/Interestingnumbers.pm create mode 100644 lib/Onis/Plugins/Userdetails.pm 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 < + + $trans + +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 " \n "; + printf $fh ($trans, $first, $num); + + if ($second) + { + $num = $DATA->{'byname'}{$second}{'kick_received'}; + $trans = translate ('kick_received1: %s %u'); + + print $fh "
\n", + qq# #; + printf $fh ($trans, $second, $num); + print $fh ''; + } + + print $fh "\n \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 " \n "; + printf $fh ($trans, $first, $num); + + if ($second) + { + $num = $DATA->{'byname'}{$second}{'kick_given'}; + $trans = translate ('kick_given1: %s %u'); + + print $fh "
\n", + qq# #; + printf $fh ($trans, $second, $num); + print $fh ''; + } + + print $fh "\n \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 " \n "; + printf $fh ($trans, $first, $num); + + if ($second) + { + $num = $DATA->{'byname'}{$second}{'op_given'}; + $trans = translate ('op_given1: %s %u'); + + print $fh "
\n", + qq# #; + printf $fh ($trans, $second, $num); + print $fh ''; + } + + print $fh "\n \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 " \n "; + printf $fh ($trans, $first, $num); + + if ($second) + { + $num = $DATA->{'byname'}{$second}{'op_taken'}; + $trans = translate ('op_taken1: %s %u'); + + print $fh "
\n", + qq# #; + printf $fh ($trans, $second, $num); + print $fh ''; + } + + print $fh "\n \n"; + } + + ($first, $second) = sort_by_field ('actions'); + if ($first) + { + my $num = $DATA->{'byname'}{$first}{'actions'}; + $trans = translate ('action0: %s %u'); + + print $fh " \n "; + printf $fh ($trans, $first, $num); + + if ($second) + { + $num = $DATA->{'byname'}{$second}{'actions'}; + $trans = translate ('action1: %s %u'); + + print $fh "
\n", + qq# #; + printf $fh ($trans, $second, $num); + print $fh ''; + } + + print $fh "\n \n"; + } + + ($first, $second) = sort_by_field ('soliloquies'); + if ($first) + { + my $num = $DATA->{'byname'}{$first}{'soliloquies'}; + $trans = translate ('soliloquies0: %s %u'); + + print $fh " \n "; + printf $fh ($trans, $first, $num); + + if ($second) + { + $num = $DATA->{'byname'}{$second}{'soliloquies'}; + $trans = translate ('soliloquies1: %s %u'); + + print $fh "
\n", + qq# #; + printf $fh ($trans, $second, $num); + print $fh ''; + } + + print $fh "\n \n"; + } + + ($first, $second) = sort_by_field ('joins'); + if ($first) + { + my $num = $DATA->{'byname'}{$first}{'joins'}; + $trans = translate ('joins0: %s %u'); + + print $fh " \n "; + printf $fh ($trans, $first, $num); + + if ($second) + { + $num = $DATA->{'byname'}{$second}{'joins'}; + $trans = translate ('joins1: %s %u'); + + print $fh "
\n", + qq# #; + printf $fh ($trans, $second, $num); + print $fh ''; + } + + print $fh "\n \n"; + } + + print $fh "\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#\n#, + qq# \n#, + qq# \n#, + qq# \n#; + + for (@names) + { + my $name = $_; + + print $fh qq# \n#, + qq# \n#, + qq# \n#, + qq# \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# \n"; + } + + print $fh qq# \n \n \n \n \n + + +EOF + + $i = 0; + for (@names) + { + my $this_name = $_; + my $total = 0; + + print $fh " \n", + qq# \n#, + qq# \n \n"; + + $i++; + + if ($i >= $PLUGIN_MAX) + { + last; + } + } + + print $fh "
$trans
$name
#; + if ($image) + { + if ($link) + { + print $fh qq##; + } + print $fh qq#$name#; + if ($link) + { + print $fh ""; + } + } + else + { + print $fh ' '; + } + print $fh "\n#; + + $num = $DATA->{'byname'}{$name}{'lines'}; + $trans = translate ('Has written %u lines'); + printf $fh (" $trans
\n", $num); + + $num = $DATA->{'byname'}{$name}{'words'}; + $trans = translate ('Has written %u words'); + printf $fh (" $trans
\n", $num); + + $num = $DATA->{'byname'}{$name}{'chars'}; + $trans = translate ('Has written %u chars'); + printf $fh (" $trans
\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
\n", $num); + + $num = $DATA->{'byname'}{$name}{'chars'} / $DATA->{'byname'}{$name}{'lines'}; + $trans = translate ('Has written %.1f characters per line'); + printf $fh (" $trans
\n", $num); + } + + print $fh qq#
\n#; + + if (defined ($DATA->{'byname'}{$name}{'op_given'})) + { + $num = $DATA->{'byname'}{$name}{'op_given'}; + $trans = translate ('Has given %u ops'); + + printf $fh (" $trans
\n", $num); + } + + if (defined ($DATA->{'byname'}{$name}{'op_taken'})) + { + $num = $DATA->{'byname'}{$name}{'op_taken'}; + $trans = translate ('Has taken %u ops'); + + printf $fh (" $trans
\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
\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
\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
\n", $num); + } + + if (defined ($DATA->{'byname'}{$name}{'topics'})) + { + $num = $DATA->{'byname'}{$name}{'topics'}; + $trans = translate ('Has set %u topics'); + + printf $fh (" $trans
\n", $num); + } + + if (defined ($DATA->{'byname'}{$name}{'actions'})) + { + $num = $DATA->{'byname'}{$name}{'actions'}; + $trans = translate ('Has performed %u actions'); + + printf $fh (" $trans
\n", $num); + } + + # actions # TODO + # exclamation ratio # TODO + # # of nicks + # + # chats with + # lines per day + + print $fh qq#
\n#; + + if (defined ($DATA->{'byname'}{$name}{'chars_time'})) + { + print $fh qq# \n \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# \n#; + } + + print $fh < + + + + + + +
$num chars
0-56-1112-1718-23
+EOF + } + else + { + print $fh ' '; + } + + print $fh qq#
\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 < +
$trans:
$this_name#; + + 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##; + } + + print $fh "
\n"; + } + else + { + print $fh ' '; + } + + $max--; + if ($max <= 0) + { + last; + } + } + + print $fh "\n\n"; +} -- 2.11.0