=cut
-use Onis::Config qw/get_config/;
-use Onis::Html qw/html_escape get_filehandle/;
-use Onis::Language qw/translate/;
-use Onis::Users (qw(get_realname get_link get_image ident_to_name));
-use Onis::Data::Core qw#get_all_nicks nick_to_ident ident_to_nick get_main_nick register_plugin#;
-use Onis::Data::Persistent;
-
-@Onis::Plugins::Core::EXPORT_OK = (qw(get_core_nick_counters get_sorted_nicklist));
+use Onis::Config (qw(get_config));
+use Onis::Html (qw(html_escape get_filehandle));
+use Onis::Language (qw(translate));
+use Onis::Users (qw(get_realname get_link get_image chatter_to_name));
+use Onis::Data::Core (qw(get_all_nicks nick_to_ident ident_to_nick get_main_nick register_plugin));
+use Onis::Data::Persistent ();
+
+@Onis::Plugins::Core::EXPORT_OK = (qw(get_core_nick_counters get_sorted_nicklist nick_is_in_main_table));
@Onis::Plugins::Core::ISA = ('Exporter');
our $NickLinesCounter = Onis::Data::Persistent->new ('NickLinesCounter', 'nick',
our $NickData = {}; # Same as above, but for nicks rather than quotes.
our $SortedNicklist = [];
+our $NicksInMainTable = {};
+
our @H_IMAGES = qw#dark-theme/h-red.png dark-theme/h-blue.png dark-theme/h-yellow.png dark-theme/h-green.png#;
our $QuoteCacheSize = 10;
our $QuoteMin = 30;
}
if ($DISPLAY_LINES ne 'NONE')
{
+ my $span = $DISPLAY_LINES eq 'BOTH' ? ' colspan="2"' : '';
$trans = translate ('Number of Lines');
- print $fh " <th>$trans</th>\n";
+ print $fh " <th$span>$trans</th>\n";
}
if ($DISPLAY_WORDS ne 'NONE')
{
+ my $span = $DISPLAY_WORDS eq 'BOTH' ? ' colspan="2"' : '';
$trans = translate ('Number of Words');
- print $fh " <th>$trans</th>\n";
+ print $fh " <th$span>$trans</th>\n";
}
if ($DISPLAY_CHARS ne 'NONE')
{
+ my $span = $DISPLAY_CHARS eq 'BOTH' ? ' colspan="2"' : '';
$trans = translate ('Number of Characters');
- print $fh " <th>$trans</th>\n";
+ print $fh " <th$span>$trans</th>\n";
}
if ($DISPLAY_TIMES)
{
{
my $nick = $_;
my $ident = nick_to_ident ($nick);
- my $name = ident_to_name ($ident);
+ my $name = chatter_to_name ("$nick!$ident");
my $print = $name || $nick;
$linescount++;
# our table..
if ($linescount <= $LongLines)
{
+ $NicksInMainTable->{$nick} = $linescount;
+
my $quote = translate ('-- no quote available --');
if (@{$QuoteData->{$nick}})
if ($DISPLAY_LINES ne 'NONE')
{
- print $fh qq# <td class="bar">#;
- if (($DISPLAY_LINES eq 'BOTH') or ($DISPLAY_LINES eq 'BAR'))
+ if (($DISPLAY_LINES eq 'BOTH') or ($DISPLAY_LINES eq 'NUMBER'))
{
- my $code = bar ($max_lines, $NickData->{$nick}{'lines'});
- print $fh $code;
+ my $num = $NickData->{$nick}{'lines_total'};
+ print $fh qq( <td class="counter">$num</td>\n);
}
- print $fh ' ' if ($DISPLAY_LINES eq 'BOTH');
- if (($DISPLAY_LINES eq 'BOTH') or ($DISPLAY_LINES eq 'NUMBER'))
+ if (($DISPLAY_LINES eq 'BOTH') or ($DISPLAY_LINES eq 'BAR'))
{
- print $fh $NickData->{$nick}{'lines_total'};
+ my $code = bar ($max_lines, $NickData->{$nick}{'lines'});
+ print $fh qq( <td class="bar horizontal">$code</td>\n);
}
- print $fh "</td>\n";
}
if ($DISPLAY_WORDS ne 'NONE')
{
- print $fh qq# <td class="bar">#;
- if (($DISPLAY_WORDS eq 'BOTH') or ($DISPLAY_WORDS eq 'BAR'))
+ if (($DISPLAY_WORDS eq 'BOTH') or ($DISPLAY_WORDS eq 'NUMBER'))
{
- my $code = bar ($max_words, $NickData->{$nick}{'words'});
- print $fh $code;
+ my $num = $NickData->{$nick}{'words_total'};
+ print $fh qq( <td class="counter">$num</td>\n);
}
- print $fh ' ' if ($DISPLAY_WORDS eq 'BOTH');
- if (($DISPLAY_WORDS eq 'BOTH') or ($DISPLAY_WORDS eq 'NUMBER'))
+ if (($DISPLAY_WORDS eq 'BOTH') or ($DISPLAY_WORDS eq 'BAR'))
{
- print $fh $NickData->{$nick}{'words_total'};
+ my $code = bar ($max_words, $NickData->{$nick}{'words'});
+ print $fh qq( <td class="bar horizontal">$code</td>\n);
}
- print $fh "</td>\n";
}
if ($DISPLAY_CHARS ne 'NONE')
{
- print $fh qq# <td class="bar">#;
- if (($DISPLAY_CHARS eq 'BOTH') or ($DISPLAY_CHARS eq 'BAR'))
+ if (($DISPLAY_CHARS eq 'BOTH') or ($DISPLAY_CHARS eq 'NUMBER'))
{
- my $code = bar ($max_chars, $NickData->{$nick}{'chars'});
- print $fh $code;
+ my $num = $NickData->{$nick}{'chars_total'};
+ print $fh qq( <td class="counter">$num</td>\n);
}
- print $fh ' ' if ($DISPLAY_CHARS eq 'BOTH');
- if (($DISPLAY_CHARS eq 'BOTH') or ($DISPLAY_CHARS eq 'NUMBER'))
+ if (($DISPLAY_CHARS eq 'BOTH') or ($DISPLAY_CHARS eq 'BAR'))
{
- print $fh $NickData->{$nick}{'chars_total'};
+ my $code = bar ($max_chars, $NickData->{$nick}{'chars'});
+ print $fh qq( <td class="bar horizontal">$code</td>\n);
}
- print $fh "</td>\n";
}
if ($DISPLAY_TIMES)
confess () unless (ref ($source) eq 'ARRAY');
# BAR_WIDTH is a least 10
- my $max_width = $BAR_WIDTH - 4;
- my $factor = 1;
my $retval = '';
my $i;
my $j;
- if (!$max_num) { return ($retval); }
- $factor = $max_width / $max_num;
-
for ($i = 0; $i < 4; $i++)
{
my $sum = 0;
- my $width = 1;
my $img = $H_IMAGES[$i];
+ my $width;
for ($j = 0; $j < 6; $j++)
{
$sum += $source->[$hour];
}
- $width += int (0.5 + ($sum * $factor));
+ $width = sprintf ("%.2f", 95 * $sum / $max_num);
- $retval .= qq#<img src="$img" style="width: # . $width . q#px"#;
+ $retval .= qq#<img src="$img" style="width: $width%;"#;
if ($i == 0) { $retval .= qq# class="first"#; }
elsif ($i == 3) { $retval .= qq# class="last"#; }
$retval .= qq( alt="$sum" />);
return ($SortedNicklist);
}
+=item B<nick_is_in_main_table> (I<$nick>)
+
+Returns the position of the nick in the main table or zero if it is not in the
+main table.
+
+=cut
+
+sub nick_is_in_main_table
+{
+ my $nick = shift;
+
+ return (defined ($NicksInMainTable->{$nick}) ? $NicksInMainTable->{$nick} : 0);
+}
+
=back
=head1 AUTHOR
-Florian octo Forster, E<lt>octo at verplant.orgE<gt>
+Florian octo Forster E<lt>octo at verplant.orgE<gt>
=cut
projects / onis.git / blobdiff