1 package Onis::Plugins::Weekdays;
6 use Onis::Config (qw(get_config));
7 use Onis::Html (qw(get_filehandle));
8 use Onis::Language (qw(translate));
9 use Onis::Data::Core (qw(register_plugin get_main_nick nick_to_ident nick_to_name));
10 use Onis::Data::Persistent ();
12 register_plugin ('TEXT', \&add);
13 register_plugin ('ACTION', \&add);
14 register_plugin ('OUTPUT', \&output);
16 our $WeekdayCache = Onis::Data::Persistent->new ('WeekdayCache', 'nick',
26 our $WeekdayData = {};
27 our @Weekdays = (qw(sun mon tue wed thu fri sat));
30 if (get_config ('bar_height'))
32 my $tmp = get_config ('bar_height');
34 $BarHeight = $tmp if ($tmp >= 10);
37 our @VImages = get_config ('vertical_images');
38 if (scalar (@VImages) != 4)
40 @VImages = qw#images/ver0n.png images/ver1n.png images/ver2n.png images/ver3n.png#;
44 print STDERR $/, __FILE__, ": $VERSION" if ($::DEBUG);
51 my $nick = $data->{'nick'};
52 my $time = $data->{'epoch'};
53 my $hour = int ($data->{'hour'} / 6);
54 my $chars = length ($data->{'text'});
55 my $day = (localtime ($time))[6];
56 my $index = ($day * 4) + $hour;
58 my @data = $WeekdayCache->get ($nick) || (qw(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0));
59 $data[$index] += $chars;
60 $WeekdayCache->put ($nick, @data);
62 @data = $WeekdayCache->get ('<TOTAL>') || (qw(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0));
63 $data[$index] += $chars;
64 $WeekdayCache->put ('<TOTAL>', @data);
69 for ($WeekdayCache->keys ())
72 my $main = $nick eq '<TOTAL>' ? '<TOTAL>' : get_main_nick ($nick);
73 my @data = $WeekdayCache->get ($nick);
75 if (!defined ($WeekdayData->{$main}))
77 $WeekdayData->{$main} =
89 for (my $i = 0; $i < 7; $i++)
91 my $day = $Weekdays[$i];
92 for (my $j = 0; $j < 4; $j++)
94 my $idx = ($i * 4) + $j;
95 $WeekdayData->{$main}{$day}[$j] += $data[$idx];
104 return (undef) unless (%$WeekdayData);
108 [1, 'mon', 'Monday'],
109 [2, 'tue', 'Tuesday'],
110 [3, 'wed', 'Wednesday'],
111 [4, 'thu', 'Thursday'],
112 [5, 'fri', 'Friday'],
113 [6, 'sat', 'Saturday'],
117 my $data = $WeekdayData->{'<TOTAL>'};
119 my $fh = get_filehandle ();
126 my ($num, $abbr, $name) = @$_;
127 my $sum = $data->{$abbr}[0] + $data->{$abbr}[1] + $data->{$abbr}[2] + $data->{$abbr}[3];
129 $max = $sum if ($max < $sum);
132 $bar_factor = $BarHeight / $max;
134 print $fh qq#<table class="plugin weekdays">\n <tr class="bars">\n#;
137 my ($num, $abbr, $name) = @$_;
138 my $sum = $data->{$abbr}[0] + $data->{$abbr}[1] + $data->{$abbr}[2] + $data->{$abbr}[3];
140 print $fh qq# <td class="bar $abbr">$sum<br />\n #;
141 for (my $i = 0; $i < 4; $i++)
143 my $num = $data->{$abbr}[$i];
144 my $height = int (0.5 + $num * $bar_factor) || 1;
145 my $img = $VImages[$i];
147 print $fh qq(<img src="$img" alt="" style="height: ${height}px;" />);
149 print $fh "\n </td>\n";
151 print $fh qq( </tr>\n <tr class="numeration">\n);
154 my ($num, $abbr, $name) = @$_;
155 print $fh qq( <td class="numeration $abbr">$name</td>\n);
157 print $fh " </tr>\n</table>\n\n";