) {
_html($_);
}
}
sub _activetimes
{
# The most actives times on the channel
my $self = shift;
my (%output, $class);
$self->_headline($self->_template_text('activetimestopic'));
my @toptime = sort { $self->{stats}->{times}{$b} <=> $self->{stats}->{times}{$a} } keys %{ $self->{stats}->{times} };
my $highest_value = $self->{stats}->{times}{$toptime[0]};
my @now = localtime($self->{cfg}->{timestamp});
my $image;
for my $hour (sort keys %{ $self->{stats}->{times} }) {
my $size = ($self->{stats}->{times}{$hour} / $highest_value) * 100;
my $percent = ($self->{stats}->{times}{$hour} / $self->{stats}->{totallines}) * 100;
$percent =~ s/(\.\d)\d+/$1/;
if ($size < 1 && $size != 0) {
# Opera doesn't understand '0.xxxx' in the height="xx" attr,
# so we simply round up to 1.0 here.
$size = 1.0;
}
if ($self->{cfg}->{timeoffset} =~ /\+(\d+)/) {
# We must plus some hours to the time
$hour += $1;
$hour = $hour % 24;
if ($hour < 10) { $hour = "0" . $hour; }
} elsif ($self->{cfg}->{timeoffset} =~ /-(\d+)/) {
# We must remove some hours from the time
$hour -= $1;
$hour = $hour % 24;
if ($hour < 10) { $hour = "0" . $hour; }
}
$image = "pic_v_".(int($hour/6)*6);
$image = $self->{cfg}->{$image};
$output{$hour} = "$percent%
![](\"$self-) {cfg}->{pic_loc}/$image\" width=\"15\" height=\"$size\" alt=\"$percent\" /> | \n";
}
_html("{cfg}->{tablewidth}\">\n");
for ($b = 0; $b < 24; $b++) {
if ($b < 10) { $a = "0" . $b; } else { $a = $b; }
if (!defined($output{$a}) || $output{$a} eq "") {
_html("| 0% | ");
} else {
_html($output{$a});
}
}
_html("
");
# Remove leading zero
$toptime[0] =~ s/0(\d)/$1/;
for ($b = 0; $b < 24; $b++) {
if ($toptime[0] == $b && !$self->{cfg}->{use_activetime_alt}) {
# Highlight the top time
$class = 'hirankc';
} elsif ($now[2] == $b && $self->{cfg}->{use_activetime_alt}) {
# Highlight the hour the stats is being generated in
$class = 'hirankc';
} else {
$class = 'rankc';
}
_html("| $b | ");
}
_html("
");
if($self->{cfg}->{show_legend} == 1) {
$self->_legend();
}
}
sub _activenicks
{
# The most active nicks (those who wrote most lines)
my $self = shift;
$self->_headline($self->_template_text('activenickstopic'));
_html("{cfg}->{tablewidth}\">");
_html("| | "
. "" . $self->_template_text('nick') . " | "
. "" . $self->_template_text('numberlines') . " | "
. ($self->{cfg}->{show_time} ? "".$self->_template_text('show_time')." | " : "")
. ($self->{cfg}->{show_words} ? "".$self->_template_text('show_words')." | " : "")
. ($self->{cfg}->{show_wpl} ? "".$self->_template_text('show_wpl')." | " : "")
. ($self->{cfg}->{show_cpl} ? "".$self->_template_text('show_cpl')." | " : "")
. ($self->{cfg}->{show_lastseen} ? "".$self->_template_text('show_lastseen')." | " : "")
. ($self->{cfg}->{show_randquote} ? "".$self->_template_text('randquote')." | " : "")
);
my @active = sort { $self->{stats}->{lines}{$b} <=> $self->{stats}->{lines}{$a} } keys %{ $self->{stats}->{lines} };
my $nicks = scalar keys %{ $self->{stats}->{lines} };
if ($self->{cfg}->{activenicks} > $nicks) { $self->{cfg}->{activenicks} = $nicks; }
my $have_userpics;
for (my $c = 0; $c < $self->{cfg}->{activenicks}; $c++) {
my $nick = $active[$c];
if ($self->{users}->{userpics}{$nick} && $self->{cfg}->{userpics} !~ /n/i) {
$have_userpics = 1;
_html("" . $self->_template_text('userpic') ." | ");
last;
}
}
_html("
");
for (my $i = 0; $i < $self->{cfg}->{activenicks}; $i++) {
my $c = $i + 1;
my $nick = $active[$i];
my $visiblenick = $active[$i];
my $randomline;
if (not defined $self->{stats}->{sayings}{$nick}) {
$randomline = "";
} else {
$randomline = htmlentities($self->{stats}->{sayings}{$nick});
}
# Convert URLs and e-mail addys to links
$randomline = $self->_replace_links($randomline);
# Add a link to the nick if there is any
if ($self->{users}->{userlinks}{$nick}) {
$visiblenick = $self->_replace_links($self->{users}->{userlinks}{$nick}, $nick);
}
my $color = $self->generate_colors($c);
my $class = 'rankc';
if ($c == 1) {
$class = 'hirankc';
}
my $lastseen;
if ($self->{cfg}->{show_lastseen}) {
$lastseen = $self->{stats}->{days} - $self->{stats}->{lastvisited}{$nick};
if ($lastseen == 0) {
$lastseen = $self->_template_text('today');
} elsif ($lastseen == 1) {
$lastseen = "$lastseen " .$self->_template_text('lastseen1');
} else {
$lastseen = "$lastseen " .$self->_template_text('lastseen2');
}
}
_html("| ");
my $line = $self->{stats}->{lines}{$nick};
my $w = $self->{stats}->{words}{$nick} ? $self->{stats}->{words}{$nick} : 0;
my $ch = $self->{stats}->{lengths}{$nick};
_html("$c | $visiblenick | "
. ($self->{cfg}->{show_linetime} ?
"".$self->_user_linetimes($nick,$active[0])." | "
: "$line | ")
. ($self->{cfg}->{show_time} ?
"".$self->_user_times($nick)." | "
: "")
. ($self->{cfg}->{show_words} ?
"$w | "
: "")
. ($self->{cfg}->{show_wpl} ?
"".sprintf("%.1f",$w/$line)." | "
: "")
. ($self->{cfg}->{show_cpl} ?
"".sprintf("%.1f",$ch/$line)." | "
: "")
. ($self->{cfg}->{show_lastseen} ?
"$lastseen | "
: "")
. ($self->{cfg}->{show_randquote} ?
"\"$randomline\" | "
: "")
);
my $height = $self->{cfg}->{pic_height};
my $width = $self->{cfg}->{pic_width};
if ($self->{users}->{userpics}{$nick} && $self->{cfg}->{userpics} !~ /n/i) {
_html("");
if (defined $self->{users}->{biguserpics}{$nick}) {
_html("{cfg}->{imagepath}$self->{users}->{biguserpics}{$nick}\">");
}
if ($width ne '') {
_html("{cfg}->{imagepath}$self->{users}->{userpics}{$nick}\" width=\"$width\" height=\"$height\" />");
} else {
_html("{cfg}->{imagepath}$self->{users}->{userpics}{$nick}\" />");
}
if (defined $self->{users}->{biguserpics}{$nick}) {
_html("");
}
_html(" | ");
} elsif ($self->{cfg}->{default_pic} ne '' && $self->{cfg}->{userpics} !~ /n/i) {
_html("{cfg}->{imagepath}$self->{cfg}->{default_pic}\" /> | ");
}
_html("
");
}
_html("
");
# Almost as active nicks ('These didn't make it to the top..')
my $toshow = $self->{cfg}->{activenicks2} - $self->{cfg}->{activenicks};
my $remain = $self->{cfg}->{activenicks} + $toshow;
unless ($toshow > $nicks) {
$remain = $self->{cfg}->{activenicks} + $self->{cfg}->{activenicks2};
if ($remain > $nicks) {
$remain = $nicks;
}
if ($self->{cfg}->{activenicks} < $remain) {
_html("
" . $self->_template_text('nottop') . "");
for (my $i = $self->{cfg}->{activenicks}; $i < $remain; $i++) {
unless ($i % 5) { if ($i != $self->{cfg}->{activenicks}) { _html("
"); } }
my $lines = $self->{stats}->{lines}{$active[$i]};
_html("| $active[$i] ($lines) | ");
}
_html("
");
}
}
my %hash;
$hash{totalnicks} = $nicks - $remain;
if ($hash{totalnicks} > 0) {
_html("
" . $self->_template_text('totalnicks', %hash) . "
");
}
}
sub generate_colors
{
my $self = shift;
my $c = shift;
my $h = $self->{cfg}->{hicell};
$h =~ s/^#//;
$h = hex $h;
my $h2 = $self->{cfg}->{hicell2};
$h2 =~ s/^#//;
$h2 = hex $h2;
my $f_b = $h & 0xff;
my $f_g = ($h & 0xff00) >> 8;
my $f_r = ($h & 0xff0000) >> 16;
my $t_b = $h2 & 0xff;
my $t_g = ($h2 & 0xff00) >> 8;
my $t_r = ($h2 & 0xff0000) >> 16;
my $blue = sprintf "%0.2x", abs int(((($t_b - $f_b) / $self->{cfg}->{activenicks}) * +$c) + $f_b);
my $green = sprintf "%0.2x", abs int(((($t_g - $f_g) / $self->{cfg}->{activenicks}) * +$c) + $f_g);
my $red = sprintf "%0.2x", abs int(((($t_r - $f_r) / $self->{cfg}->{activenicks}) * +$c) + $f_r);
return "#$red$green$blue";
}
sub _html
{
my $html = shift;
print OUTPUT "$html\n";
}
sub _questions
{
# Persons who asked the most questions
my $self = shift;
my %qpercent;
foreach my $nick (sort keys %{ $self->{stats}->{questions} }) {
if ($self->{stats}->{lines}{$nick} > 100) {
$qpercent{$nick} = ($self->{stats}->{questions}{$nick} / $self->{stats}->{lines}{$nick}) * 100;
$qpercent{$nick} =~ s/(\.\d)\d+/$1/;
}
}
my @question = sort { $qpercent{$b} <=> $qpercent{$a} } keys %qpercent;
if (@question) {
my %hash = (
nick => $question[0],
per => $qpercent{$question[0]}
);
my $text = $self->_template_text('question1', %hash);
_html("$text");
if (@question >= 2) {
my %hash = (
nick => $question[1],
per => $qpercent{$question[1]}
);
my $text = $self->_template_text('question2', %hash);
_html("
$text");
}
_html(" |
");
} else {
_html("| " . $self->_template_text('question3') . " |
");
}
}
sub _shoutpeople
{
# The ones who speak with exclamation marks!
my $self = shift;
my %spercent;
foreach my $nick (sort keys %{ $self->{stats}->{shouts} }) {
if ($self->{stats}->{lines}{$nick} > 100) {
$spercent{$nick} = ($self->{stats}->{shouts}{$nick} / $self->{stats}->{lines}{$nick}) * 100;
$spercent{$nick} =~ s/(\.\d)\d+/$1/;
}
}
my @shout = sort { $spercent{$b} <=> $spercent{$a} } keys %spercent;
if (@shout) {
my %hash = (
nick => $shout[0],
per => $spercent{$shout[0]}
);
my $text = $self->_template_text('shout1', %hash);
_html("$text");
if (@shout >= 2) {
my %hash = (
nick => $shout[1],
per => $spercent{$shout[1]}
);
my $text = $self->_template_text('shout2', %hash);
_html("
$text");
}
_html(" |
");
} else {
my $text = $self->_template_text('shout3');
_html("| $text |
");
}
}
sub _capspeople
{
# The ones who speak ALL CAPS.
my $self = shift;
my %cpercent;
foreach my $nick (sort keys %{ $self->{stats}->{allcaps} }) {
if ($self->{stats}->{lines}{$nick} > 100) {
$cpercent{$nick} = $self->{stats}->{allcaps}{$nick} / $self->{stats}->{lines}{$nick} * 100;
$cpercent{$nick} =~ s/(\.\d)\d+/$1/;
}
}
my @caps = sort { $cpercent{$b} <=> $cpercent{$a} } keys %cpercent;
if (@caps) {
my %hash = (
nick => $caps[0],
per => $cpercent{$caps[0]},
line => htmlentities($self->{stats}->{allcaplines}{$caps[0]})
);
my $text = $self->_template_text('allcaps1', %hash);
if($self->{cfg}->{show_shoutline}) {
my $exttext = $self->_template_text('allcapstext', %hash);
_html("$text
$exttext
");
} else {
_html(" |
$text");
}
if (@caps >= 2) {
my %hash = (
nick => $caps[1],
per => $cpercent{$caps[1]}
);
my $text = $self->_template_text('allcaps2', %hash);
_html("
$text");
}
_html(" |
");
} else {
my $text = $self->_template_text('allcaps3');
_html("| $text |
");
}
}
sub _violent
{
# They attacked others (words defined by $self->{cfg}->{violent})
my $self = shift;
my @aggressors;
@aggressors = sort { $self->{stats}->{violence}{$b} <=> $self->{stats}->{violence}{$a} }
keys %{ $self->{stats}->{violence} };
if(@aggressors) {
my %hash = (
nick => $aggressors[0],
attacks => $self->{stats}->{violence}{$aggressors[0]},
line => htmlentities($self->{stats}->{violencelines}{$aggressors[0]})
);
my $text = $self->_template_text('violent1', %hash);
if($self->{cfg}->{show_violentlines}) {
my $exttext = $self->_template_text('violenttext', %hash);
_html("$text
$exttext
");
} else {
_html(" |
$text");
}
if (@aggressors >= 2) {
my %hash = (
nick => $aggressors[1],
attacks => $self->{stats}->{violence}{$aggressors[1]}
);
my $text = $self->_template_text('violent2', %hash);
_html("
$text");
}
_html(" |
");
} else {
my $text = $self->_template_text('violent3');
_html("| $text |
");
}
# They got attacked
my @victims;
@victims = sort { $self->{stats}->{attacked}{$b} <=> $self->{stats}->{attacked}{$a} }
keys %{ $self->{stats}->{attacked} };
if(@victims) {
my %hash = (
nick => $victims[0],
attacks => $self->{stats}->{attacked}{$victims[0]},
line => htmlentities($self->{stats}->{attackedlines}{$victims[0]})
);
my $text = $self->_template_text('attacked1', %hash);
if($self->{cfg}->{show_violentlines}) {
my $exttext = $self->_template_text('attackedtext', %hash);
_html("$text
$exttext
");
} else {
_html(" |
$text");
}
if (@victims >= 2) {
my %hash = (
nick => $victims[1],
attacks => $self->{stats}->{attacked}{$victims[1]}
);
my $text = $self->_template_text('attacked2', %hash);
_html("
$text");
}
_html(" |
");
}
}
sub _gotkicks
{
# The persons who got kicked the most
my $self = shift;
my @gotkick = sort { $self->{stats}->{gotkicked}{$b} <=> $self->{stats}->{gotkicked}{$a} }
keys %{ $self->{stats}->{gotkicked} };
if (@gotkick) {
my %hash = (
nick => $gotkick[0],
kicks => $self->{stats}->{gotkicked}{$gotkick[0]},
line => $self->{stats}->{kicklines}{$gotkick[0]}
);
my $text = $self->_template_text('gotkick1', %hash);
if ($self->{cfg}->{show_kickline}) {
my $exttext = $self->_template_text('kicktext', %hash);
_html("$text
$exttext
");
} else {
_html(" |
$text");
}
if (@gotkick >= 2) {
my %hash = (
nick => $gotkick[1],
kicks => $self->{stats}->{gotkicked}{$gotkick[1]}
);
my $text = $self->_template_text('gotkick2', %hash);
_html("
$text");
}
_html(" |
");
}
}
sub _mostjoins
{
my $self = shift;
my @joins = sort { $self->{stats}->{joins}{$b} <=> $self->{stats}->{joins}{$a} }
keys %{ $self->{stats}->{joins} };
if (@joins) {
my %hash = (
nick => $joins[0],
joins => $self->{stats}->{joins}{$joins[0]}
);
my $text = $self->_template_text('joins', %hash);
_html("| $text |
");
}
}
sub _mostwords
{
# The person who got words the most
my $self = shift;
my @words = sort { $self->{stats}->{words}{$b} <=> $self->{stats}->{words}{$a} }
keys %{ $self->{stats}->{words} };
if (@words) {
my %hash = (
nick => $words[0],
words => $self->{stats}->{words}{$words[0]}
);
my $text = $self->_template_text('words1', %hash);
_html("$text");
if (@words >= 2) {
my %hash = (
oldnick => $words[0],
nick => $words[1],
words => $self->{stats}->{words}{$words[1]}
);
my $text = $self->_template_text('words2', %hash);
_html("
$text");
}
_html(" |
");
} else {
my $text = $self->_template_text('kick3');
_html("| $text |
");
}
}
sub _mostkicks
{
# The person who kicked the most
my $self = shift;
my @kicked = sort { $self->{stats}->{kicked}{$b} <=> $self->{stats}->{kicked}{$a} }
keys %{ $self->{stats}->{kicked} };
if (@kicked) {
my %hash = (
nick => $kicked[0],
kicked => $self->{stats}->{kicked}{$kicked[0]}
);
my $text = $self->_template_text('kick1', %hash);
_html("$text");
if (@kicked >= 2) {
my %hash = (
oldnick => $kicked[0],
nick => $kicked[1],
kicked => $self->{stats}->{kicked}{$kicked[1]}
);
my $text = $self->_template_text('kick2', %hash);
_html("
$text");
}
_html(" |
");
} else {
my $text = $self->_template_text('kick3');
_html("| $text |
");
}
}
sub _mostmonologues
{
# The person who had the most monologues (speaking to himself)
my $self = shift;
my @monologue = sort { $self->{stats}->{monologues}{$b} <=> $self->{stats}->{monologues}{$a} } keys %{ $self->{stats}->{monologues} };
if (@monologue) {
my %hash = (
nick => $monologue[0],
monos => $self->{stats}->{monologues}{$monologue[0]}
);
my $text = $self->_template_text('mono1', %hash);
_html("$text");
if (@monologue >= 2) {
my %hash = (
nick => $monologue[1],
monos => $self->{stats}->{monologues}{$monologue[1]}
);
my $text = $self->_template_text('mono2', %hash);
_html("
$text");
}
_html(" |
");
}
}
sub _linelengths
{
# The person(s) who wrote the longest lines
my $self = shift;
my %len;
foreach my $nick (sort keys %{ $self->{stats}->{lengths} }) {
if ($self->{stats}->{lines}{$nick} > 100) {
$len{$nick} = $self->{stats}->{lengths}{$nick} / $self->{stats}->{lines}{$nick};
$len{$nick} =~ s/(\.\d)\d+/$1/;
}
}
my @len = sort { $len{$b} <=> $len{$a} } keys %len;
my $all_lines = 0;
my $totallength;
foreach my $nick (keys %{ $self->{stats}->{lines} }) {
$all_lines += $self->{stats}->{lines}{$nick};
$totallength += $self->{stats}->{lengths}{$nick};
}
my $totalaverage;
if ($all_lines > 0) {
$totalaverage = $totallength / $all_lines;
$totalaverage =~ s/(\.\d)\d+/$1/;
}
if (@len) {
my %hash = (
nick => $len[0],
letters => $len{$len[0]}
);
my $text = $self->_template_text('long1', %hash);
_html("$text
");
if (@len >= 2) {
%hash = (
avg => $totalaverage
);
$text = $self->_template_text('long2', %hash);
_html("$text |
");
}
}
# The person(s) who wrote the shortest lines
if (@len) {
my %hash = (
nick => $len[$#len],
letters => $len{$len[$#len]}
);
my $text = $self->_template_text('short1', %hash);
_html("$text
");
if (@len >= 2) {
%hash = (
nick => $len[$#len - 1],
letters => $len{$len[$#len - 1]}
);
$text = $self->_template_text('short2', %hash);
_html("$text |
");
}
}
}
sub _mostfoul
{
my $self = shift;
my %spercent;
foreach my $nick (sort keys %{ $self->{stats}->{foul} }) {
if ($self->{stats}->{lines}{$nick} > 15) {
$spercent{$nick} = $self->{stats}->{foul}{$nick} / $self->{stats}->{lines}{$nick} * 100;
$spercent{$nick} =~ s/(\.\d)\d+/$1/;
}
}
my @foul = sort { $spercent{$b} <=> $spercent{$a} } keys %spercent;
if (@foul) {
my %hash = (
nick => $foul[0],
per => $spercent{$foul[0]}
);
my $text = $self->_template_text('foul1', %hash);
_html("$text");
if (@foul >= 2) {
my %hash = (
nick => $foul[1],
per => $spercent{$foul[1]}
);
my $text = $self->_template_text('foul2', %hash);
_html("
$text");
}
_html(" |
");
} else {
my $text = $self->_template_text('foul3');
_html("| $text |
");
}
}
sub _mostsad
{
my $self = shift;
my %spercent;
foreach my $nick (sort keys %{ $self->{stats}->{frowns} }) {
if ($self->{stats}->{lines}{$nick} > 100) {
$spercent{$nick} = $self->{stats}->{frowns}{$nick} / $self->{stats}->{lines}{$nick} * 100;
$spercent{$nick} =~ s/(\.\d)\d+/$1/;
}
}
my @sadface = sort { $spercent{$b} <=> $spercent{$a} } keys %spercent;
if (@sadface) {
my %hash = (
nick => $sadface[0],
per => $spercent{$sadface[0]}
);
my $text = $self->_template_text('sad1', %hash);
_html("$text");
if (@sadface >= 2) {
my %hash = (
nick => $sadface[1],
per => $spercent{$sadface[1]}
);
my $text = $self->_template_text('sad2', %hash);
_html("
$text");
}
_html(" |
");
} else {
my $text = $self->_template_text('sad3');
_html("| $text |
");
}
}
sub _mostop
{
my $self = shift;
my @ops = sort { $self->{stats}->{gaveops}{$b} <=> $self->{stats}->{gaveops}{$a} }
keys %{ $self->{stats}->{gaveops} };
my @deops = sort { $self->{stats}->{tookops}{$b} <=> $self->{stats}->{tookops}{$a} }
keys %{ $self->{stats}->{tookops} };
if (@ops) {
my %hash = (
nick => $ops[0],
ops => $self->{stats}->{gaveops}{$ops[0]}
);
my $text = $self->_template_text('mostop1', %hash);
_html("$text");
if (@ops >= 2) {
my %hash = (
nick => $ops[1],
ops => $self->{stats}->{gaveops}{$ops[1]}
);
my $text = $self->_template_text('mostop2', %hash);
_html("
$text");
}
_html(" |
");
} else {
my $text = $self->_template_text('mostop3');
_html("| $text |
");
}
if (@deops) {
my %hash = (
nick => $deops[0],
deops => $self->{stats}->{tookops}{$deops[0]}
);
my $text = $self->_template_text('mostdeop1', %hash);
_html("$text");
if (@deops >= 2) {
my %hash = (
nick => $deops[1],
deops => $self->{stats}->{tookops}{$deops[1]}
);
my $text = $self->_template_text('mostdeop2', %hash);
_html("
$text");
}
_html(" |
");
} else {
my $text = $self->_template_text('mostdeop3');
_html("| $text |
");
}
}
sub _mostvoice
{
my $self = shift;
my @voice = sort { $self->{stats}->{gavevoice}{$b} <=> $self->{stats}->{gavevoice}{$a} }
keys %{ $self->{stats}->{gavevoice} };
my @devoice = sort { $self->{stats}->{tookvoice}{$b} <=> $self->{stats}->{tookvoice}{$a} }
keys %{ $self->{stats}->{tookvoice} };
if (@voice) {
my %hash = (
nick => $voice[0],
voices => $self->{stats}->{gavevoice}{$voice[0]}
);
my $text = $self->_template_text('mostvoice1', %hash);
_html("$text");
if (@voice >= 2) {
my %hash = (
nick => $voice[1],
voices => $self->{stats}->{gavevoice}{$voice[1]}
);
my $text = $self->_template_text('mostvoice2', %hash);
_html("
$text");
}
_html(" |
");
} else {
my $text = $self->_template_text('mostvoice3');
_html("| $text |
");
}
if (@devoice) {
my %hash = (
nick => $devoice[0],
devoices => $self->{stats}->{tookvoice}{$devoice[0]}
);
my $text = $self->_template_text('mostdevoice1', %hash);
_html("$text");
if (@devoice >= 2) {
my %hash = (
nick => $devoice[1],
devoices => $self->{stats}->{tookvoice}{$devoice[1]}
);
my $text = $self->_template_text('mostdevoice2', %hash);
_html("
$text");
}
_html(" |
");
} else {
my $text = $self->_template_text('mostdevoice3');
_html("| $text");
}
}
sub _mostactions
{
# The person who did the most /me's
my $self = shift;
my @actions = sort { $self->{stats}->{actions}{$b} <=> $self->{stats}->{actions}{$a} }
keys %{ $self->{stats}->{actions} };
if (@actions) {
my %hash = (
nick => $actions[0],
actions => $self->{stats}->{actions}{$actions[0]},
line => htmlentities($self->{stats}->{actionlines}{$actions[0]})
);
my $text = $self->_template_text('action1', %hash);
if($self->{cfg}->{show_actionline}) {
my $exttext = $self->_template_text('actiontext', %hash);
_html(" |
$text
$exttext
");
} else {
_html(" |
$text");
}
if (@actions >= 2) {
my %hash = (
nick => $actions[1],
actions => $self->{stats}->{actions}{$actions[1]}
);
my $text = $self->_template_text('action2', %hash);
_html("
$text");
}
_html(" |
");
} else {
my $text = $self->_template_text('action3');
_html("| $text |
");
}
}
sub _mostsmiles
{
# The person(s) who smiled the most :-)
my $self = shift;
my %spercent;
foreach my $nick (sort keys %{ $self->{stats}->{smiles} }) {
if ($self->{stats}->{lines}{$nick} > 100) {
$spercent{$nick} = $self->{stats}->{smiles}{$nick} / $self->{stats}->{lines}{$nick} * 100;
$spercent{$nick} =~ s/(\.\d)\d+/$1/;
}
}
my @smiles = sort { $spercent{$b} <=> $spercent{$a} } keys %spercent;
if (@smiles) {
my %hash = (
nick => $smiles[0],
per => $spercent{$smiles[0]}
);
my $text = $self->_template_text('smiles1', %hash);
_html("$text");
if (@smiles >= 2) {
my %hash = (
nick => $smiles[1],
per => $spercent{$smiles[1]}
);
my $text = $self->_template_text('smiles2', %hash);
_html("
$text");
}
_html(" |
");
} else {
my $text = $self->_template_text('smiles3');
_html("| $text |
");
}
}
sub _lasttopics
{
my $self = shift;
if ($self->{stats}->{topics}) {
my %topic_seen;
my %hash = (
total => scalar @{ $self->{stats}->{topics} }
);
my $ltopic = $#{ $self->{stats}->{topics} };
my $tlimit = 0;
$self->{cfg}->{topichistory} -= 1;
if ($ltopic > $self->{cfg}->{topichistory}) {
$tlimit = $ltopic - $self->{cfg}->{topichistory};
}
for (my $i = $ltopic; $i >= $tlimit; $i--) {
my $topic = htmlentities($self->{stats}->{topics}[$i]{topic});
# This code makes sure that we don't see the same topic twice
next if ($topic_seen{$topic});
$topic_seen{$topic} = 1;
$topic = $self->_replace_links($topic);
# Strip off the quotes (')
$topic =~ s/^\'(.*)\'$/$1/;
my $nick = $self->{stats}->{topics}[$i]{nick};
my $hour = $self->{stats}->{topics}[$i]{hour};
my $min = $self->{stats}->{topics}[$i]{min};
$hash{nick} = $nick;
$hash{time} = "$hour:$min";
_html("| $topic | ");
_html("" . $self->_template_text('bylinetopic', %hash) ." |
");
}
_html("| " . $self->_template_text('totaltopic', %hash) . " |
");
} else {
_html("| " . $self->_template_text('notopic') ." |
");
}
}
sub _template_text
{
# This function is for the homemade template system. It receives a name
# of a template and a hash with the fields in the template to update to
# its corresponding value
my $self = shift;
my $template = shift;
my %hash = @_;
my $text;
unless ($text = $self->{tmps}->{lc($self->{cfg}->{lang})}{$template}) {
# Fall back to English if the language template doesn't exist
if ($text = $self->{tmps}->{en}{$template}) {
print "Note: No translation in '$self->{cfg}->{lang}' for '$template' - falling back to English..\n"
unless ($self->{cfg}->{silent});
} else {
die("No such template '$template' in language file.\n");
}
}
$hash{channel} = $self->{cfg}->{channel};
foreach my $key (sort keys %hash) {
$text =~ s/\[:$key\]/$hash{$key}/;
$text =~ s/ü/ü/go;
$text =~ s/ö/ö/go;
$text =~ s/ä/ä/go;
$text =~ s/ß/ß/go;
$text =~ s/å/å/go;
$text =~ s/æ/æ/go;
$text =~ s/ø/ø/go;
$text =~ s/Å/Å/go;
$text =~ s/Æ/Æ/go;
$text =~ s/Ø/Ø/go;
}
if ($text =~ /\[:.*?:.*?:\]/o) {
$text =~ s/\[:(.*?):(.*?):\]/$self->_get_subst($1,$2,\%hash)/geo;
}
return $text;
}
sub _get_subst
{
# This function looks at the user definition and see if there is sex
# defined. If yes, return the appropriate value. If no, just return the
# default he/she value.
my $self = shift;
my ($m,$f,$hash) = @_;
if ($hash->{nick} && $self->{users}->{sex}{$hash->{nick}}) {
if ($self->{users}->{sex}{$hash->{nick}} eq 'm') {
return $m;
} elsif ($self->{users}->{sex}{$hash->{nick}} eq 'f') {
return $f;
}
}
return "$m/$f";
}
sub _mostusedword
{
# Word usage statistics
my $self = shift;
my %usages;
foreach my $word (keys %{ $self->{stats}->{wordcounts} }) {
# Skip people's nicks.
next if exists $self->{stats}->{lines}{$word};
next if (length($word) < $self->{cfg}->{wordlength});
$usages{$word} = $self->{stats}->{wordcounts}{$word};
}
my @popular = sort { $usages{$b} <=> $usages{$a} } keys %usages;
if (@popular) {
$self->_headline($self->_template_text('mostwordstopic'));
_html("{cfg}->{tablewidth}\">");
_html("| | " . $self->_template_text('word') . " | ");
_html("" . $self->_template_text('numberuses') . " | ");
_html("" . $self->_template_text('lastused') . " |
");
my $count = 0;
for(my $i = 0; $count < $self->{cfg}->{wordhistory}; $i++) {
last unless $i < $#popular;
# Skip nicks. It's far more efficient to do this here than when
# @popular is created.
next if is_ignored($popular[$i]);
next if exists $self->{stats}->{lines}{find_alias($popular[$i])};
my $a = $count + 1;
my $popular = htmlentities($popular[$i]);
my $wordcount = $self->{stats}->{wordcounts}{$popular[$i]};
my $lastused = htmlentities($self->{stats}->{wordnicks}{$popular[$i]});
my $class;
if ($a == 1) {
$class = 'hirankc';
} else {
$class = 'rankc';
}
_html("| $a | ");
_html("$popular | ");
_html("$wordcount | ");
_html("$lastused | ");
_html("
");
$count++;
}
_html("
");
}
}
sub _mostwordsperline
{
# The person who got the most words per line
my $self = shift;
my %wpl = ();
my $numlines = 0;
my ($avg, $numwords);
foreach my $n (keys %{ $self->{stats}->{words} }) {
$wpl{$n} = sprintf("%.2f", $self->{stats}->{words}{$n}/$self->{stats}->{lines}{$n});
$numlines += $self->{stats}->{lines}{$n};
$numwords += $self->{stats}->{words}{$n};
}
if ($numlines > 0) {
$avg = sprintf("%.2f", $numwords/$numlines);
}
my @wpl = sort { $wpl{$b} <=> $wpl{$a} } keys %wpl;
if (@wpl) {
my %hash = (
nick => $wpl[0],
wpl => $wpl{$wpl[0]}
);
my $text = $self->_template_text('wpl1', %hash);
_html("$text");
$hash{avg} = $avg;
$text = $self->_template_text('wpl2', %hash);
_html("
$text");
_html(" |
");
}
}
sub _mostreferencednicks
{
# List showing the most referenced nicks
my $self = shift;
my %usages;
foreach my $word (sort keys %{ $self->{stats}->{wordcounts} }) {
next if !exists $self->{stats}->{lines}{$word};
next if is_ignored($word);
$usages{$word} = $self->{stats}->{wordcounts}{$word};
}
my @popular = sort { $usages{$b} <=> $usages{$a} } keys %usages;
if (@popular) {
$self->_headline($self->_template_text('referencetopic'));
_html("{cfg}->{tablewidth}\">");
_html("| | " . $self->_template_text('nick') . " | ");
_html("" . $self->_template_text('numberuses') . " | ");
_html("" . $self->_template_text('lastused') . " |
");
for(my $i = 0; $i < $self->{cfg}->{nickhistory}; $i++) {
last unless $i < $#popular;
my $a = $i + 1;
my $popular = $popular[$i];
my $wordcount = $self->{stats}->{wordcounts}{$popular[$i]};
my $lastused = $self->{stats}->{wordnicks}{$popular[$i]};
my $class;
if ($a == 1) {
$class = 'hirankc';
} else {
$class = 'rankc';
}
_html("| $a | ");
_html("$popular | ");
_html("$wordcount | ");
_html("$lastused | ");
_html("
");
}
_html("
");
}
}
sub _mosturls
{
# List showing the most referenced URLs
my $self = shift;
my @sorturls = sort { $self->{stats}->{urlcounts}{$b} <=> $self->{stats}->{urlcounts}{$a} }
keys %{ $self->{stats}->{urlcounts} };
if (@sorturls) {
$self->_headline($self->_template_text('urlstopic'));
_html("{cfg}->{tablewidth}\">");
_html("| | " . $self->_template_text('url') . " | ");
_html("" . $self->_template_text('numberuses') . " | ");
_html("" . $self->_template_text('lastused') . " |
");
for(my $i = 0; $i < $self->{cfg}->{urlhistory}; $i++) {
last unless $i < @sorturls;
my $a = $i + 1;
my $sorturl = $sorturls[$i];
my $urlcount = $self->{stats}->{urlcounts}{$sorturls[$i]};
my $lastused = $self->{stats}->{urlnicks}{$sorturls[$i]};
if (length($sorturl) > 60) {
$sorturl = substr($sorturl, 0, 60);
}
my $class;
if ($a == 1) {
$class = 'hirankc';
} else {
$class = 'rankc';
}
_html("| $a | ");
_html("$sorturl | ");
_html("$urlcount | ");
_html("$lastused | ");
_html("
");
}
_html("
");
}
}
sub _legend
{
# A legend showing the timebars and their associated time.
my $self = shift;
_html("");
_html("| {cfg}->{pic_loc}/$self->{cfg}->{pic_h_0}\" width=\"40\" height=\"15\" align=\"middle\" alt=\"0-5\" /> = 0-5 | ");
_html("{cfg}->{pic_loc}/$self->{cfg}->{pic_h_6}\" width=\"40\" height=\"15\" align=\"middle\" alt=\"6-11\" /> = 6-11 | ");
_html("{cfg}->{pic_loc}/$self->{cfg}->{pic_h_12}\" width=\"40\" height=\"15\" align=\"middle\" alt=\"12-17\" /> = 12-17 | ");
_html("{cfg}->{pic_loc}/$self->{cfg}->{pic_h_18}\" width=\"40\" height=\"15\" align=\"middle\" alt=\"18-23\" /> = 18-23 | ");
_html("
\n");
}
sub _replace_links
{
# Sub to replace urls and e-mail addys to links
my $self = shift;
my $str = shift;
my $nick = shift;
# Regular expressions are taken from match_urls() and match_email() in
# Common.pm
my $texturl = $self->_template_text("newwindow");
my $textmail = $self->_template_text("mailto");
if ($nick) {
$str =~ s/(http|https|ftp|telnet|news)(:\/\/[-a-zA-Z0-9_\/~]+\.[-a-zA-Z0-9.,_~=:&@%?#\/+]+)/$nick<\/a>/g;
$str =~ s/([-a-zA-Z0-9._]+@[-a-zA-Z0-9_]+\.[-a-zA-Z0-9._]+)/$nick<\/a>/g;
} else {
$str =~ s/(http|https|ftp|telnet|news)(:\/\/[-a-zA-Z0-9_\/~]+\.[-a-zA-Z0-9.,_~=:&@%?#\/+]+)/$1$2<\/a>/g;
$str =~ s/([-a-zA-Z0-9._]+@[-a-zA-Z0-9_]+\.[-a-zA-Z0-9._]+)/$1<\/a>/g;
}
return $str;
}
sub _user_linetimes
{
my $self = shift;
my $nick = shift;
my $top = shift;
my $bar = "";
my $len = ($self->{stats}->{lines}{$nick} / $self->{stats}->{lines}{$top}) * 100;
for (my $i = 0; $i <= 3; $i++) {
next if not defined $self->{stats}->{line_times}{$nick}[$i];
my $w = int(($self->{stats}->{line_times}{$nick}[$i] / $self->{stats}->{lines}{$nick}) * $len);
if ($w) {
my $pic = 'pic_h_'.(6*$i);
$bar .= "{cfg}->{pic_loc}/$self->{cfg}->{$pic}\" border=\"0\" width=\"$w\" height=\"15\" align=\"middle\" alt=\"\" />";
}
}
return "$bar $self->{stats}->{lines}{$nick}";
}
sub _user_times
{
my $self = shift;
my ($nick) = @_;
my $bar = "";
for (my $i = 0; $i <= 3; $i++) {
next if not defined $self->{stats}->{line_times}{$nick}[$i];
my $w = int(($self->{stats}->{line_times}{$nick}[$i] / $self->{stats}->{lines}{$nick}) * 40);
if ($w) {
my $pic = 'pic_h_'.(6*$i);
$bar .= "{cfg}->{pic_loc}/$self->{cfg}->{$pic}\" border=\"0\" width=\"$w\" height=\"15\" alt=\"\" />";
}
}
return $bar;
}
sub _mostnicks
{
# List showing the user with most used nicks
my $self = shift;
my @sortnicks = sort { @{ $self->{stats}->{nicks}->{$b} } <=> @{ $self->{stats}->{nicks}->{$a} } }
keys %{ $self->{stats}->{nicks} };
if (@{ $self->{stats}->{nicks}->{$sortnicks[0]} } > 1) {
$self->_headline($self->_template_text('mostnickstopic'));
my $nick_txt = $self->_template_text('nick');
my $names_txt = $self->_template_text('names');
_html("{cfg}->{tablewidth}\">");
_html("| | $nick_txt | ");
_html("$names_txt |
");
for(my $i = 0; $i < 5; $i++) {
last unless $i < @sortnicks;
my $nickcount = scalar(@{ $self->{stats}->{nicks}->{$sortnicks[$i]} });
my $nickused = join(", ", @{ $self->{stats}->{nicks}->{$sortnicks[$i]} });
next unless ($nickcount > 1);
my $a = $i + 1;
my $class = $a == 1 ? 'hirankc' : 'rankc';
my $n = $nickcount > 1 ? "names" : "name";
_html("| $a | ");
_html("$sortnicks[$i]
($nickcount $n) | ");
_html("$nickused | ");
_html("
");
}
_html("
");
}
}
1;
__END__
=head1 NAME
Pisg::HTMLGenerator - class to create a static HTML page out of data parsed
=head1 DESCRIPTION
C uses the hash returned by Pisg::Parser::Logfile and turns it into a static HTML page.
=head1 SYNOPSIS
use Pisg::HTMLGenerator;
$generator = new Pisg::HTMLGenerator(
cfg => $cfg,
stats => $stats,
users => $users,
tmps => $tmps
);
=head1 CONSTRUCTOR
=over 4
=item new ( [ OPTIONS ] )
This is the constructor for a new Pisg::HTMLGenerator object. C are passed in a hash like fashion using key and value pairs.
Possible options are:
B - hashref containing configuration variables, created by the Pisg module.
B - reference to the hash returned by Pisg::Parser::Logfile containing all stats.
B - reference to a hash containg user information
B - reference to a hash containing the language templates.
=back
=head1 AUTHOR
Morten Brix Pedersen
=head1 COPYRIGHT
Copyright (C) 2001-2002 Morten Brix Pedersen. All rights reserved.
This program is free software; you can redistribute it and/or modify it
under the terms of the GPL, license is included with the distribution of
this file.
=cut