From c6c922b9a7521834f645a498d4995373058b8670 Mon Sep 17 00:00:00 2001
From: sergiotarxz <sergiotarxz@posteo.net>
Date: Tue, 8 Feb 2022 22:50:05 +0100
Subject: [PATCH] Adding show top ten.

---
 bin/doctor_karma.pl         | 37 +++++++++++++++++++++++++++++++------
 lib/DoctorKarma/DAO/User.pm | 21 ++++++++++++++++++++-
 2 files changed, 51 insertions(+), 7 deletions(-)

diff --git a/bin/doctor_karma.pl b/bin/doctor_karma.pl
index 269ede8..6f78558 100755
--- a/bin/doctor_karma.pl
+++ b/bin/doctor_karma.pl
@@ -71,6 +71,31 @@ sub process_message_with_text {
     if ( $text eq '/karma' ) {
         show_karma($message);
     }
+    if ( $text eq '/doctortop' ) {
+        show_top_ten($message);
+    }
+}
+
+sub show_top_ten {
+    my $message  = shift;
+    my $chat_id  = $message->{chat}{id};
+    my $user_dao = DoctorKarma::DAO::User->new( dbh => $db );
+
+    my $users = $user_dao->get_top_ten_karma;
+    my $html  = "<b>Top ten users</b>\n\n";
+    my $i     = 0;
+    for my $user (@$users) {
+        my $first_name = $user->first_name;
+        my $karma      = $user->karma;
+        $i++;
+        $html .= "$i- <b>@{[xml_escape($first_name)]}</b> "
+          . "@{[xml_escape($karma)]}\n";
+    }
+    $logger->log_info("Showing top ten in $chat_id.");
+    $telegram->send_message(
+        chat_id => $chat_id,
+        text    => $html
+    );
 }
 
 sub show_karma {
@@ -79,10 +104,10 @@ sub show_karma {
     my $user_id = $reply_to_message->{from}{id} // $message->{from}{id};
     my $chat_id = $message->{chat}{id};
 
-    my $user_dao = DoctorKarma::DAO::User->new( dbh => $db );
-    my $user     = $user_dao->recover_id( id => $user_id );
+    my $user_dao   = DoctorKarma::DAO::User->new( dbh => $db );
+    my $user       = $user_dao->recover_id( id => $user_id );
     my $first_name = $user->first_name;
-    my $karma = $user->karma;
+    my $karma      = $user->karma;
 
     my $html_message = <<"EOF";
 <b>@{[xml_escape($first_name)]}</b> has @{[xml_escape($karma)]} points of karma.
@@ -127,7 +152,7 @@ EOF
     my $receptor_telegram_url = Mojo::URL->new('tg://user');
     $receptor_telegram_url->query( id => $id_receptor );
     my $first_name = $receiving_karma_user->first_name;
-    my $karma = $receiving_karma_user->karma;
+    my $karma      = $receiving_karma_user->karma;
     $telegram->send_message(
         chat_id => $chat_id,
         text    =>
@@ -167,8 +192,8 @@ EOF
     $user_dao->add_1_karma( user => $receiving_karma_user );
     my $id_receptor           = $receiving_karma_user->id_user;
     my $receptor_telegram_url = Mojo::URL->new('tg://user');
-    my $first_name = $receiving_karma_user->first_name;
-    my $karma = $receiving_karma_user->karma;
+    my $first_name            = $receiving_karma_user->first_name;
+    my $karma                 = $receiving_karma_user->karma;
     $telegram->send_message(
         chat_id => $chat_id,
         text    =>
diff --git a/lib/DoctorKarma/DAO/User.pm b/lib/DoctorKarma/DAO/User.pm
index 535a0c9..3254f6d 100644
--- a/lib/DoctorKarma/DAO/User.pm
+++ b/lib/DoctorKarma/DAO/User.pm
@@ -160,7 +160,6 @@ EOF
     }
 }
 
-
 {
     my $validator = validation_for(
         params => {
@@ -242,6 +241,26 @@ EOF
     }
 }
 
+sub get_top_ten_karma {
+    my $self = shift;
+    my $db   = $self->_db;
+
+    my $users    = [];
+    my $users_db = $db->selectall_arrayref( <<'EOF', { Slice => {} } );
+SELECT first_name, karma, username, last_karma_given_date, id as id_user 
+FROM users
+ORDER BY karma desc
+LIMIT 10
+EOF
+    for my $user_db (@$users_db) {
+        for my $key_field ( keys %$user_db ) {
+            $user_db->{$key_field} // delete $user_db->{$key_field};
+        }
+        push @$users, DoctorKarma::Model::User->new(%$user_db);
+    }
+    return $users;
+}
+
 {
     my $validator = validation_for(
         params => {