Converted Onis::Plugins::Urls.

[onis.git] / lib / Onis / Plugins / Words.pm

diff --git a/lib/Onis/Plugins/Words.pm b/lib/Onis/Plugins/Words.pm
index 7707848..65c1f7b 100644 (file)
--- a/lib/Onis/Plugins/Words.pm
+++ b/lib/Onis/Plugins/Words.pm
@@ -6,8 +6,9 @@ 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));
+use Onis::Data::Core (qw(register_plugin get_main_nick));
 use Onis::Data::Persistent ();
+use Onis::Users (qw(nick_to_name));
 
 register_plugin ('TEXT', \&add);
 register_plugin ('ACTION', \&add);
@@ -48,7 +49,6 @@ sub add
                my ($counter) = $WordCache->get ($word);
                $counter ||= 0;
                $counter++;
-               
                $WordCache->put ($word, $counter, $time, $nick);
        }
 }
@@ -83,7 +83,7 @@ sub calculate
                push (@data, [$word, $counter, $nick, $lastusedtime]);
        }
 
-       @$WordData = sort { $b->[0] <=> $a->[0] } (@data);
+       @$WordData = sort { $b->[1] <=> $a->[1] } (@data);
        splice (@$WordData, $max);
 }
 
@@ -114,12 +114,13 @@ EOF
                $i++;
 
                my ($word, $count, $nick) = @$_;
+               my $name = nick_to_name ($nick) || $nick;
                
                print $fh "  <tr>\n",
                qq#    <td class="numeration">$i</td>\n#,
                qq#    <td>$word</td>\n#,
                qq#    <td>$count</td>\n#,
-               qq#    <td class="nick">$nick</td>\n#,
+               qq#    <td class="nick">$name</td>\n#,
                qq#  </tr>\n#;
        }
        print $fh "</table>\n\n";