X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=lib%2FOnis%2FPlugins%2FLongterm.pm;fp=lib%2FOnis%2FPlugins%2FLongterm.pm;h=0ca0f6b79cbf56720fbeca1efbd563cd1ae60dd1;hb=bf61c85ba4eb614a955c607b39e310fde9463cc3;hp=0000000000000000000000000000000000000000;hpb=b35e3c4286bacccb72237b1550b6281418f772d8;p=onis.git

diff --git a/lib/Onis/Plugins/Longterm.pm b/lib/Onis/Plugins/Longterm.pm
new file mode 100644
index 0000000..0ca0f6b
--- /dev/null
+++ b/lib/Onis/Plugins/Longterm.pm
@@ -0,0 +1,190 @@
+package Onis::Plugins::Weekdays;
+
+use strict;
+use warnings;
+
+use Onis::Config (qw(get_config));
+use Onis::Html (qw(get_filehandle));
+use Onis::Language (qw(translate));
+use Onis::Data::Core (qw(register_plugin get_main_nick nick_to_ident nick_to_name));
+use Onis::Data::Persistent ();
+
+register_plugin ('TEXT', \&add);
+register_plugin ('ACTION', \&add);
+register_plugin ('OUTPUT', \&output);
+
+our $LongtermLastSeen = Onis::Data::Persistent->new ('LongtermLastSeen', 'nick', 'day');
+our $LongtermCache    = Onis::Data::Persistent->new ('LongtermCache', 'key', qw(time0 time1 time2 time3));
+
+=head1 CONFIGURATION OPTIONS
+
+=over 4
+
+=item B<vertical_images>: I<image0>, I<image1>, I<image2>, I<image3>;
+
+Sets the images to use for vertical graphs.
+
+=cut
+
+our @VImages = get_config ('vertical_images');
+if (scalar (@VImages) != 4)
+{
+	@VImages = qw#images/ver0n.png images/ver1n.png images/ver2n.png images/ver3n.png#;
+}
+
+=item B<longterm_days>: I<31>;
+
+Sets the number of days displayed by this plugin.
+
+=cut
+
+our $DisplayDays = 31;
+if (get_config ('longterm_days'))
+{
+	my $tmp = get_config ('longterm_days');
+	$tmp =~ s/\D//g;
+	$DisplayDays = $tmp if ($tmp);
+}
+
+=back
+
+=cut
+
+my $VERSION = '$Id$';
+print STDERR $/, __FILE__, ": $VERSION" if ($::DEBUG);
+
+return (1);
+
+sub add
+{
+	my $data = shift;
+	my $nick = $data->{'nick'};
+	my $time = $data->{'epoch'};
+	my $hour = int ($data->{'hour'} / 6);
+	my $chars = length ($data->{'text'});
+	my $day   = int ($time / 86400);
+	my $index = ($day * 4) + $hour;
+
+	my ($lastseen) = $LongtermLastSeen->get ($nick);
+	$lastseen ||= $day;
+	
+	for (my $i = $lastseen; $i < $day; $i++)
+	{
+		my $last = $i - $DisplayDays;
+		$LongtermCache->del ($nick . ':' . $last);
+
+		if ($i != $lastseen)
+		{
+			$LongtermCache->put ($nick . ':' . $i, qw(0 0 0 0));
+		}
+	}
+
+	my @data = $LongtermCache->get ($nick . ':' . $day);
+	@data = (qw(0 0 0 0)) unless (@data);
+	$data[$hour] += $chars;
+	$LongtermCache->put ($nick . ':' . $day, @data);
+
+	$LongtermLastSeen->put ($nick, $day);
+}
+
+sub calculate
+{
+	for ($WeekdayCache->keys ())
+	{
+		my $nick = $_;
+		my $main = $nick eq '<TOTAL>' ? '<TOTAL>' : get_main_nick ($nick);
+		my @data = $WeekdayCache->get ($nick);
+
+		if (!defined ($WeekdayData->{$main}))
+		{
+			$WeekdayData->{$main} =
+			{
+				sun => [0, 0, 0, 0],
+				mon => [0, 0, 0, 0],
+				tue => [0, 0, 0, 0],
+				wed => [0, 0, 0, 0],
+				thu => [0, 0, 0, 0],
+				fri => [0, 0, 0, 0],
+				sat => [0, 0, 0, 0]
+			};
+		}
+
+		for (my $i = 0; $i < 7; $i++)
+		{
+			my $day = $Weekdays[$i];
+			for (my $j = 0; $j < 4; $j++)
+			{
+				my $idx = ($i * 4) + $j;
+				$WeekdayData->{$main}{$day}[$j] += $data[$idx];
+			}
+		}
+	}
+}
+
+sub output
+{
+	calculate ();
+	return (undef) unless (%$WeekdayData);
+
+	my @order =
+	(
+		[1, 'mon', 'Monday'],
+		[2, 'tue', 'Tuesday'],
+		[3, 'wed', 'Wednesday'],
+		[4, 'thu', 'Thursday'],
+		[5, 'fri', 'Friday'],
+		[6, 'sat', 'Saturday'],
+		[0, 'sun', 'Sunday']
+	);
+
+	my $data = $WeekdayData->{'<TOTAL>'};
+
+	my $fh = get_filehandle ();
+	
+	my $max = 0;
+	my $total = 0;
+	my $bar_factor = 0;
+
+	for (@order)
+	{
+		my ($num, $abbr, $name) = @$_;
+
+		for (my $i = 0; $i < 4; $i++)
+		{
+			$max = $data->{$abbr}[$i] if ($max < $data->{$abbr}[$i]);
+			$total += $data->{$abbr}[$i];
+		}
+	}
+	
+	$bar_factor = $BarHeight / $max;
+	
+	print $fh qq#<table class="plugin weekdays">\n  <tr class="bars">\n#;
+	for (@order)
+	{
+		my ($num, $abbr, $name) = @$_;
+		for (my $i = 0; $i < 4; $i++)
+		{
+			my $num = $data->{$abbr}[$i];
+			my $height = sprintf ("%.2f", (95 * $num / $max));
+			my $img = $VImages[$i];
+
+			print $fh qq#    <td class="bar vertical $abbr">#,
+			qq(<img src="$img" alt="" class="first last" style="height: ${height}%;" /></td>\n);
+		}
+	}
+	print $fh qq(  </tr>\n  <tr class="counter">\n);
+	for (@order)
+	{
+		my ($num, $abbr, $name) = @$_;
+		my $sum = $data->{$abbr}[0] + $data->{$abbr}[1] + $data->{$abbr}[2] + $data->{$abbr}[3];
+		my $pct = sprintf ("%.1f", (100 * $sum / $total));
+		print $fh qq(    <td colspan="4" class="counter $abbr">$pct%</td>\n);
+	}
+	print $fh qq(  </tr>\n  <tr class="numeration">\n);
+	for (@order)
+	{
+		my ($num, $abbr, $name) = @$_;
+		print $fh qq(    <td colspan="4" class="numeration $abbr">$name</td>\n);
+	}
+	print $fh "  </tr>\n</table>\n\n";
+}