X-Git-Url: https://git.octo.it/?a=blobdiff_plain;ds=sidebyside;f=lib%2FOnis%2FPlugins%2FCore.pm;h=5294483fa1656b290dd6319c967e2d4981696698;hb=adc61c312d976dbd1789edde652b64a4867c6955;hp=3f01666c12310f35480cb3690b7303e1adcd1123;hpb=20b87d06ee0724a29161121b9cad6d220bcd7d93;p=onis.git

diff --git a/lib/Onis/Plugins/Core.pm b/lib/Onis/Plugins/Core.pm
index 3f01666..5294483 100644
--- a/lib/Onis/Plugins/Core.pm
+++ b/lib/Onis/Plugins/Core.pm
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 
 use Carp (qw(confess));
+use Exporter;
 
 =head1 NAME
 
@@ -23,6 +24,9 @@ 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));
+@Onis::Plugins::Core::ISA = ('Exporter');
+
 our $NickLinesCounter = Onis::Data::Persistent->new ('NickLinesCounter', 'nick',
 	qw(
 		lines00 lines01 lines02 lines03 lines04 lines05 lines06 lines07 lines08 lines09 lines10 lines11
@@ -821,6 +825,33 @@ sub bar
 	return ($retval);
 }
 
+=head1 EXPORTED FUNCTIONS
+
+=over 4
+
+=item B<get_core_nick_counters> (I<$nick>)
+
+Returns the total I<lines>, I<words> and I<characters> written by the given
+nick.
+
+=cut
+
+sub get_core_nick_counters
+{
+	my $nick = shift;
+
+	if (defined ($NickData->{$nick}))
+	{
+		return ($NickData->{$nick}{'lines_total'},
+			$NickData->{$nick}{'words_total'},
+			$NickData->{$nick}{'chars_total'});
+	}
+
+	return (qw());
+}
+
+=back
+
 =head1 AUTHOR
 
 Florian octo Forster, E<lt>octo at verplant.orgE<gt>