+ print $fh qq# </td>\n </tr>\n#,
+ qq# <tr>\n <td>\n#;
+
+ if (defined ($ptr->{'chars'}))
+ {
+ print $fh qq# <table class="hours">\n <tr class="bars">\n#;
+
+ for (my $i = 0; $i < 24; $i++)
+ {
+ $num = 0;
+
+ my $img = $VerticalImages[int ($i / 6)];
+ my $height;
+
+ $num = $ptr->{'chars'}[$i];
+
+ $height = sprintf ("%.2f", 95 * $num / $max_time);
+
+ print $fh qq# <td class="bar vertical"><img src="$img" alt="$num chars" #,
+ qq#class="first last" style="height: $height\%;" /></td>\n#;
+ }
+
+ print $fh <<EOF;
+ </tr>
+ <tr class="numeration">
+ <td colspan="6" class="numeration">0-5</td>
+ <td colspan="6" class="numeration">6-11</td>
+ <td colspan="6" class="numeration">12-17</td>
+ <td colspan="6" class="numeration">18-23</td>
+ </tr>
+ </table>
+EOF
+ }
+ else
+ {
+ print $fh " \n";
+ }
+
+ print $fh qq# </td>\n <td>\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# <table class="weekdays">\n#,
+ qq# <tr class="bars">\n#;
+
+ for (@days)
+ {
+ my $day = $_;
+ for (my $i = 0; $i < 4; $i++)
+ {
+ my $num = $nick_data->{$nick}{'weekdays'}{$day}[$i];
+ my $height = sprintf ("%.2f", 95 * $num / $max_weekdays);
+ my $img = $VerticalImages[$i];
+
+ print $fh qq# <td class="bar vertical">#,
+ qq#<img src="$img" alt="" class="first last" style="height: $height\%;" />#,
+ qq#</td>\n#;
+ }
+ }
+
+ print $fh qq# </tr>\n#,
+ qq# <tr class="numeration">\n#;
+
+ for (@days)
+ {
+ my $day = $_;
+ my $trans = translate ($day);
+
+ print $fh qq# <td colspan="4" class="numeration $day">$trans</td>\n#;
+ }
+
+ print $fh qq# </tr>\n#,
+ qq# </table>\n#;
+ }
+ else
+ {
+ print $fh " \n";
+ }
+
+ print $fh qq# </td>\n <td>\n#;
+
+ #longterm
+ if (@{$nick_data->{$nick}{'longterm'}})
+ {
+ 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# <table class="longterm">\n#,
+ qq# <tr class="bars">\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 = $VerticalImages[$j];
+
+ print $fh qq# <td class="bar vertical">#,
+ qq#<img src="$img" alt="" class="first last" style="height: $height\%;" />#,
+ qq#</td>\n#;
+ }
+ }
+
+ print $fh qq# </tr>\n#,
+ qq# <tr class="numeration">\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# <td colspan="4" class="numeration $wd">$day.</td>\n#;
+ }
+
+ print $fh qq# </tr>\n#,
+ qq# </table>\n#;
+ }
+ else
+ {
+ print $fh " \n";
+ }
+
+ print $fh qq# </td>\n </tr>\n#;