From e939c8fe3e9a7586b7c70fe01903dfd8cd7ebaf5 Mon Sep 17 00:00:00 2001
From: Alexandre Morignot <erdnaxeli@cervoi.se>
Date: Sat, 16 May 2015 23:18:43 +0200
Subject: [PATCH] new command !stats
---
lib/commands/parser.pm | 13 ++++++-
lib/commands/stats.pm | 30 +++++++++++++++
lib/utils/db/stats.pm | 83 ++++++++++++++++++++++++++++++++++++++++++
lib/utils/print.pm | 38 +++++++++++++++++++
4 files changed, 163 insertions(+), 1 deletion(-)
create mode 100644 lib/commands/stats.pm
create mode 100644 lib/utils/db/stats.pm
diff --git a/lib/commands/parser.pm b/lib/commands/parser.pm
index f001e1f..d72f78b 100644
--- a/lib/commands/parser.pm
+++ b/lib/commands/parser.pm
@@ -8,6 +8,7 @@ use commands::fav;
use commands::later;
use commands::tag;
use commands::get;
+use commands::stats;
use utils::id;
my $lastID;
@@ -35,6 +36,7 @@ sub setConf {
$commands::fav::irc = $ircNew;
$commands::get::irc = $ircNew;
+ $commands::stats::irc = $ircNew;
$lastID = $lastIDnew;
$irc = $ircNew;
@@ -97,6 +99,15 @@ sub exec {
$lastID->{$chan} = $id;
}
}
+ if ($msg =~ /^ *!stats(?: (\S+))? *$/) {
+ my $index = $1;
+ try {
+ my $id = utils::id::get($chan, $index);
+ commands::stats::exec($chan, $id)
+ } catch {
+ $irc->yield(privmsg => $chan => $insultes[rand @insultes]);
+ }
+ }
elsif ($msg =~ /^ *!help/) {
$irc->yield(privmsg => $nick => '!fav [<id>] : enregistre la vidéo dans les favoris');
$irc->yield(privmsg => $nick => '!tag [<id>] <tag1> <tag2> ... : tag la vidéo');
@@ -110,7 +121,7 @@ sub exec {
$irc->yield(privmsg => $nick => "Toutes les commandes fonctionnent en query.");
$irc->yield(privmsg => $nick => 'Niveau vie privée, potentiellement toute commande (excepté !help) entraine un enregistrement dans la base de données avec au minimum la date et l\'heure et le nick de la personne ayant exécuté la commande.');
}
- elsif ($msg =~/^ *!(fav|lat|tag)/) {
+ elsif ($msg =~/^ *!(fav|lat|tag|stats)/) {
$irc->yield(privmsg => $chan => $insultes[rand @insultes]);
}
else {
diff --git a/lib/commands/stats.pm b/lib/commands/stats.pm
new file mode 100644
index 0000000..f048098
--- /dev/null
+++ b/lib/commands/stats.pm
@@ -0,0 +1,30 @@
+package commands::stats;
+
+use strict;
+use warnings;
+
+use lib "$FindBin::Bin/lib/";
+use utils::print;
+use utils::db;
+use utils::db::stats;
+
+our $irc;
+
+my @insultes = ("Ahahahah ! 23 à 0 !", "C'est la piquette, Jack !", "Tu sais pas jouer, Jack !", "T'es mauvais, Jack !");
+
+sub exec {
+ my ($chan, $id) = @_;
+
+ my $stats = utils::db::stats->new($id);
+ if ($stats) {
+ foreach (utils::print::stats($stats)) {
+ $irc->yield(privmsg => $chan => $_) if ($_);
+ }
+ }
+ else {
+ $irc->yield(privmsg => $chan => $insultes[rand @insultes]);
+ }
+}
+
+
+1;
diff --git a/lib/utils/db/stats.pm b/lib/utils/db/stats.pm
new file mode 100644
index 0000000..e4b6681
--- /dev/null
+++ b/lib/utils/db/stats.pm
@@ -0,0 +1,83 @@
+package utils::db::stats;
+
+use Moose;
+use FindBin;
+use List::Util qw( reduce );
+
+use lib "$FindBin::Bin/lib/";
+use utils::db;
+
+
+has 'sender' => (is => 'ro', isa => 'Str');
+has 'chan' => (is => 'ro', isa => 'Str');
+has 'date' => (is => 'ro', isa => 'Str');
+has 'count' => (is => 'ro', isa => 'Int');
+has 'senders' => (is => 'ro', isa => 'HashRef[Str]');
+has 'channels' => (is => 'ro', isa => 'HashRef[Str]');
+
+
+around 'BUILDARGS' => sub {
+ my ($orig, $class, $id) = @_;
+
+ my $count = 0;
+ my $sender;
+ my $chan;
+ my $date;
+ my $senders = {};
+ my $channels = {};
+
+ my $dbh = utils::db::main_session;
+ my $sth = $dbh->prepare('
+ select
+ date, chan, sender_irc
+ from playbot_chan
+ where content = ?
+ order by date
+ ');
+
+ $sth->execute($id);
+ while (my $row = $sth->fetch) {
+ # first entry
+ if (not $sender) {
+ $sender = $row->[2];
+ $chan = $row->[1];
+ $date = $row->[0];
+ }
+
+ $senders->{$row->[2]}++;
+ $channels->{$row->[1]}++;
+ $count++;
+ }
+
+ $dbh->commit;
+
+ return $class->$orig(
+ count => $count,
+ sender => $sender,
+ chan => $chan,
+ date => $date,
+ senders => $senders,
+ channels => $channels
+ );
+};
+
+sub max_sender {
+ my $self = shift;
+ my $max = reduce {
+ $self->senders->{$a} > $self->senders->{$b} ? $a : $b
+ } keys %{$self->senders};
+
+ return $max;
+}
+
+sub max_channel {
+ my $self = shift;
+ my $max = reduce {
+ $self->channels->{$a} > $self->channels->{$b} ? $a : $b
+ } keys %{$self->channels};
+
+ return $max;
+}
+
+
+1;
diff --git a/lib/utils/print.pm b/lib/utils/print.pm
index 2b17bf7..cdf151e 100644
--- a/lib/utils/print.pm
+++ b/lib/utils/print.pm
@@ -49,4 +49,42 @@ sub print {
return $msg;
}
+sub stats {
+ # a utils::db::stats object;
+ my $stats = shift;
+ my $line1;
+ my $line2;
+ my $line3;
+
+ $line1 .= 'Posté la 1re fois par '.$stats->sender;
+ $line1 .= ' le '.$stats->date;
+ $line1 .= ' sur '.$stats->chan;
+
+ if ($stats->count > 1) {
+ my $senders_count = keys %{$stats->senders};
+ my $channels_count = keys %{$stats->channels};
+
+ $line2 .= 'Posté '.$stats->count.' fois';
+ $line2 .= ' par '.$senders_count.' personne';
+ $line2 .= 's' if ($senders_count > 1);
+ $line2 .= ' sur '.$channels_count.' channel';
+ $line2 .= 's' if ($channels_count > 1);
+
+ my $max_sender_count = $stats->senders->{$stats->max_sender};
+ if ($max_sender_count > 1) {
+ $line3 .= $stats->max_sender. " l'a posté ";
+ $line3 .= $max_sender_count. ' fois';
+ }
+
+ my $max_channel_count = $stats->channels->{$stats->max_channel};
+ if ($max_channel_count != $stats->count and $max_channel_count > 1) {
+ $line3 .= ' et ' if ($max_sender_count > 1);
+ $line3 .= 'il a été posté '.$max_channel_count;
+ $line3 .= ' fois sur '.$stats->max_channel;
+ }
+ }
+
+ return ($line1, $line2, $line3);
+}
+
1;
--
GitLab