X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=lib%2FOnis%2FPlugins%2FUserdetails.pm;h=1d12dc86fb7bae3f020b1ca822b2e14713841300;hb=7e3c4b5eacb8bcbfff65fdd4d5def64e079991b7;hp=75f91e296ccecc23ad0550de50894ace0b56698f;hpb=29beb25ba6496e8eb5073f65dccd029ce7d2181d;p=onis.git diff --git a/lib/Onis/Plugins/Userdetails.pm b/lib/Onis/Plugins/Userdetails.pm index 75f91e2..1d12dc8 100644 --- a/lib/Onis/Plugins/Userdetails.pm +++ b/lib/Onis/Plugins/Userdetails.pm @@ -6,8 +6,15 @@ 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)); +use Onis::Data::Core (qw(get_main_nick register_plugin nick_to_name get_most_recent_time)); +use Onis::Users (qw(get_link get_image)); + +use Onis::Plugins::Core (qw(get_core_nick_counters get_sorted_nicklist)); +use Onis::Plugins::Weekdays (qw(get_weekdays)); +use Onis::Plugins::Longterm (qw(get_longterm)); +use Onis::Plugins::Conversations (qw(get_conversations)); +use Onis::Plugins::Bignumbers (qw(get_bignumbers)); +use Onis::Plugins::Interestingnumbers (qw(get_interestingnumbers)); our $DISPLAY_IMAGES = 0; our $DEFAULT_IMAGE = ''; @@ -122,6 +129,14 @@ if (get_config ('bar_width')) $BAR_WIDTH = $tmp if ($tmp >= 10); } +our $LongtermDays = 7; +if (get_config ('userdetails_longterm_days')) +{ + my $tmp = get_config ('userdetails_longterm_days'); + $tmp =~ s/\D//g; + $LongtermDays = $tmp if ($tmp); +} + my $VERSION = '$Id: Userdetails.pm,v 1.5 2005/03/14 18:40:25 octo Exp $'; print STDERR $/, __FILE__, ": $VERSION" if ($::DEBUG); @@ -129,17 +144,7 @@ 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 $nicks_ref = get_sorted_nicklist (); my $fh = get_filehandle (); @@ -148,67 +153,79 @@ sub output my $max_time = 0; my $max_conv = 0; + my $max_weekdays = 0; + my $max_longterm = 0; + + my @nicks = @$nicks_ref; + my $nick_data = {}; - for (@names) + splice (@nicks, $PLUGIN_MAX) if (scalar (@nicks) > $PLUGIN_MAX); + + for (@nicks) { - my $name = $_; + my $nick = $_; + + $nick_data->{$nick} = get_core_nick_counters ($nick); + $nick_data->{$nick}{'weekdays'} = get_weekdays ($nick); + $nick_data->{$nick}{'longterm'} = get_longterm ($nick); + $nick_data->{$nick}{'conversations'} = get_conversations ($nick); + $nick_data->{$nick}{'bignumbers'} = get_bignumbers ($nick); + $nick_data->{$nick}{'interestingnumbers'} = get_interestingnumbers ($nick); - if (defined ($DATA->{'byname'}{$name}{'chars_time'})) + for (my $i = 0; $i < 24; $i++) { - for (0..23) + $num = $nick_data->{$nick}{'chars'}[$i]; + $max_time = $num if ($max_time < $num); + } + + for (keys %{$nick_data->{$nick}{'conversations'}}) + { + my $other = $_; + my $ptr = $nick_data->{$nick}{'conversations'}{$other}{'nicks'}{$nick}; + $num = $ptr->[0] + $ptr->[1] + $ptr->[2] + $ptr->[3]; + $max_conv = $num if ($max_conv < $num); + } + + for (keys %{$nick_data->{$nick}{'weekdays'}}) + { + my $ptr = $nick_data->{$nick}{'weekdays'}{$_}; + for (my $i = 0; $i < 4; $i++) { - next unless (defined ($DATA->{'byname'}{$name}{'chars_time'}{$_})); - if ($DATA->{'byname'}{$name}{'chars_time'}{$_} > $max_time) - { - $max_time = $DATA->{'byname'}{$name}{'chars_time'}{$_}; - } + $max_weekdays = $ptr->[$i] if ($max_weekdays < $ptr->[$i]); } } - if (defined ($DATA->{'byname'}{$name}{'conversations'})) + + if (@{$nick_data->{$nick}{'longterm'}}) { - my @others = keys (%{$DATA->{'byname'}{$name}{'conversations'}}); - for (@others) - { - my $o = $_; - my $num = 0; + my $num = scalar (@{$nick_data->{$nick}{'longterm'}}); + $LongtermDays = $num if ($LongtermDays > $num); - for (0..3) - { - $num += $DATA->{'byname'}{$name}{'conversations'}{$o}[$_]; - } + for (my $i = $num - $LongtermDays; $i < $num; $i++) + { + my $ptr = $nick_data->{$nick}{'longterm'}[$i]; - if ($num > $max_conv) + for (my $j = 0; $j < 4; $j++) { - $max_conv = $num; + $max_longterm = $ptr->[$j] if ($max_longterm < $ptr->[$j]); } } } } - 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#, qq# \n#; - for (@names) + for (@nicks) { - my $name = $_; + my $nick = $_; + my $name = nick_to_name ($nick); + my $print = $name ? $name : $nick; + my $ptr = $nick_data->{$nick}; print $fh qq# \n#, - qq# \n#, + qq# \n#, qq# \n#, qq# \n#; @@ -229,7 +246,7 @@ sub output { print $fh qq##; } - print $fh qq#$name#; + print $fh qq#$print#; if ($link) { print $fh ""; @@ -244,186 +261,116 @@ sub output print $fh qq# \n \n \n \n \n \n \n \n#, + qq# \n \n \n#, + qq# \n#; + + for (@days) + { + my $day = $_; + my $trans = translate ($day); + + print $fh qq# \n#; + } + + print $fh qq# \n#, + qq#
$trans$trans
$name$print
\n#; - $num = $DATA->{'byname'}{$name}{'lines'}; - $trans = translate ('Has written %u lines'); - printf $fh (" $trans
\n", $num); + { + my $lines; + my $words; + my $chars; - $num = $DATA->{'byname'}{$name}{'words'}; - $trans = translate ('Has written %u words'); - printf $fh (" $trans
\n", $num); + $lines = $ptr->{'lines_total'}; + $trans = translate ('Has written %u lines'); + printf $fh (" $trans
\n", $lines); - $num = $DATA->{'byname'}{$name}{'chars'}; - $trans = translate ('Has written %u chars'); - printf $fh (" $trans
\n", $num); + $words = $ptr->{'words_total'}; + $trans = translate ('Has written %u words'); + printf $fh (" $trans
\n", $words); - if ($DATA->{'byname'}{$name}{'lines'}) - { - $num = $DATA->{'byname'}{$name}{'words'} / $DATA->{'byname'}{$name}{'lines'}; + $chars = $ptr->{'chars_total'}; + $trans = translate ('Has written %u chars'); + printf $fh (" $trans
\n", $chars); + + $lines ||= 1; + + $num = $words / $lines; $trans = translate ('Has written %.1f words per line'); printf $fh (" $trans
\n", $num); - $num = $DATA->{'byname'}{$name}{'chars'} / $DATA->{'byname'}{$name}{'lines'}; + $num = $chars / $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'})) + if (%{$ptr->{'interestingnumbers'}}) { - $num = $DATA->{'byname'}{$name}{'op_given'}; $trans = translate ('Has given %u ops'); - - printf $fh (" $trans
\n", $num); - } + printf $fh (" $trans
\n", $ptr->{'interestingnumbers'}{'op_given'}); - if (defined ($DATA->{'byname'}{$name}{'op_taken'})) - { - $num = $DATA->{'byname'}{$name}{'op_taken'}; $trans = translate ('Has taken %u ops'); + printf $fh (" $trans
\n", $ptr->{'interestingnumbers'}{'op_taken'}); - 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); - } + printf $fh (" $trans
\n", $ptr->{'interestingnumbers'}{'kick_given'}); - 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", $ptr->{'interestingnumbers'}{'kick_received'}); - printf $fh (" $trans
\n", $num); + $trans = translate ('Has performed %u actions'); + printf $fh (" $trans
\n", $ptr->{'interestingnumbers'}{'actions'}); } - - if (defined ($DATA->{'byname'}{$name}{'questions'})) + + if (%{$ptr->{'bignumbers'}}) { - $num = 100 * $DATA->{'byname'}{$name}{'questions'} / $DATA->{'byname'}{$name}{'lines'}; + $num = 100 * $ptr->{'bignumbers'}{'questions'} / $ptr->{'lines_total'}; $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'); + $num = 100 * $ptr->{'bignumbers'}{'uppercase'} / $ptr->{'lines_total'}; + $trans = translate ("Uppercase ratio: %.1f%%"); printf $fh (" $trans
\n", $num); - } - - if (defined ($DATA->{'byname'}{$name}{'actions'})) - { - $num = $DATA->{'byname'}{$name}{'actions'}; - $trans = translate ('Has performed %u actions'); + $num = 100 * $ptr->{'bignumbers'}{'smiley_happy'} / $ptr->{'lines_total'}; + $trans = translate ("Happy smiley ratio: %.1f%%"); 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 ' '; + $num = 100 * $ptr->{'bignumbers'}{'smiley_sad'} / $ptr->{'lines_total'}; + $trans = translate ("Sad smiley ratio: %.1f%%"); + printf $fh (" $trans
\n", $num); } - print $fh qq# 		\n#; + print $fh qq# \n#; - if (defined ($DATA->{'byname'}{$name}{'conversations'})) + if (%{$ptr->{'conversations'}}) { my $i; - my $data = $DATA->{'byname'}{$name}{'conversations'}; - my @names = sort + my @others = sort { - ($data->{$b}[0] + $data->{$b}[1] + $data->{$b}[2] + $data->{$b}[3]) + ($ptr->{'conversations'}{$b}{'nicks'}{$nick}[0] + + $ptr->{'conversations'}{$b}{'nicks'}{$nick}[1] + + $ptr->{'conversations'}{$b}{'nicks'}{$nick}[2] + + $ptr->{'conversations'}{$b}{'nicks'}{$nick}[3]) <=> - ($data->{$a}[0] + $data->{$a}[1] + $data->{$a}[2] + $data->{$a}[3]) + ($ptr->{'conversations'}{$a}{'nicks'}{$nick}[0] + + $ptr->{'conversations'}{$a}{'nicks'}{$nick}[1] + + $ptr->{'conversations'}{$a}{'nicks'}{$nick}[2] + + $ptr->{'conversations'}{$a}{'nicks'}{$nick}[3]) } - keys (%$data); + (keys %{$ptr->{'conversations'}}); $trans = translate ('Talks to'); print $fh < + EOF - $i = 0; - for (@names) + for (my $i = 0; $i < $PLUGIN_MAX and $i < scalar (@others); $i++) { - my $this_name = $_; + my $other = $others[$i]; + my $other_name = nick_to_name ($other) || $other; my $total = 0; print $fh " \n", - qq# \n#, - qq# \n#, + qq# \n \n"; + } + + print $fh "
$trans:
$this_name#; + qq# $other_name#; - for (0..3) + for (my $k = 0; $k < 4; $k++) { - my $k = $_; - my $img = $H_IMAGES[$k]; - my $width = int (0.5 + ($conv_factor * $data->{$this_name}[$_])); - if (!$width) - { - $width = 1; - } + my $num = $ptr->{'conversations'}{$other}{'nicks'}{$nick}[$k]; + my $width = sprintf ("%.2f", 95 * $num / $max_conv); print $fh qq##; + print $fh qq#style="width: $width\%;" />#; } print $fh "
\n"; + } + else + { + print $fh ' '; + } + print $fh qq#
\n#; + + if (defined ($ptr->{'chars'})) + { + print $fh qq# \n \n#; + + for (my $i = 0; $i < 24; $i++) + { + $num = 0; + + my $img = $V_IMAGES[int ($i / 6)]; + my $height; - $i++; + $num = $ptr->{'chars'}[$i]; - if ($i >= $PLUGIN_MAX) + $height = sprintf ("%.2f", 95 * $num / $max_time); + + print $fh qq# \n#; + } + + print $fh < + + + + + + +
$num chars
0-56-1112-1718-23
+EOF + } + else + { + print $fh "  \n"; + } + + print $fh qq# 		\n#; + + #weekly + if (%{$nick_data->{$nick}{'weekdays'}}) + { + my $data = $nick_data->{$nick}{'weekdays'}; + my @days = (qw(mon tue wed thu fri sat sun)); + + print $fh qq# \n#, + qq# \n#; + + for (@days) + { + my $day = $_; + for (my $i = 0; $i < 4; $i++) { - last; + my $num = $nick_data->{$nick}{'weekdays'}{$day}[$i]; + my $height = sprintf ("%.2f", 95 * $num / $max_weekdays); + my $img = $V_IMAGES[$i]; + + print $fh qq# \n#; } } - print $fh "
#, + qq##, + qq#
\n"; + print $fh qq#
$trans
\n#; } else { - print $fh ' '; + print $fh "  \n"; } - $max--; - if ($max <= 0) + print $fh qq# \n \n#; + + #longterm + if (@{$nick_data->{$nick}{'longterm'}}) { - last; + my $num_fields = scalar (@{$nick_data->{$nick}{'longterm'}}); + my $now_epoch = get_most_recent_time (); + my $now_day = int ($now_epoch / 86400); + my $last_day; + + my @weekdays = (qw(sun mon tue wed thu fri sat)); + + $LongtermDays = $num_fields if ($LongtermDays > $num_fields); + $last_day = 1 + $now_day - $LongtermDays; + + print $fh qq# \n#, + qq# \n#; + + for (my $i = $num_fields - $LongtermDays; $i < $num_fields; $i++) + { + for (my $j = 0; $j < 4; $j++) + { + my $num = $nick_data->{$nick}{'longterm'}[$i][$j]; + my $height = sprintf ("%.2f", 95 * $num / $max_longterm); + my $img = $V_IMAGES[$j]; + + print $fh qq# \n#; + } + } + + print $fh qq# \n#, + qq# \n#; + + for (my $i = 0; $i < $LongtermDays; $i++) + { + my $epoch = ($last_day + $i) * 86400; + my ($day, $wd) = (localtime ($epoch))[3,6]; + $wd = $weekdays[$wd]; + + print $fh qq# \n#; + } + + print $fh qq# \n#, + qq#
#, + qq##, + qq#
$day.
\n#; } + else + { + print $fh "  \n"; + } + + print $fh qq# \n \n#; } print $fh "\n\n";