Adding timeout to karma give.

This commit is contained in:
sergiotarxz 2022-02-09 23:35:40 +01:00
parent 9bc1419231
commit c20aad1b95
4 changed files with 90 additions and 10 deletions

View File

@ -26,5 +26,6 @@ WriteMakefile(
'v5.30.0' => '0',
'warnings' => '0',
'DBD::SQLite' => 0,
'DateTime::Format::ISO8601' => 0,
},
);

View File

@ -129,13 +129,36 @@ sub process_message_with_text {
}
}
sub check_can_modify_karma {
my $message = shift;
my $user_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 );
if ( $user->can_modify_karma ) {
$user_dao->update_last_karma_given_date(
user => $user,
last_karma_given_date => DateTime->now
);
return 1;
}
$telegram->send_message(
chat_id => $chat_id,
text => "You cannot give karma yet wait a bit.",
);
return 0;
}
sub show_help {
my $message = shift;
my $chat_id = $message->{chat}{id};
my $html = "<b><u>List of commands</u></b>\n\n";
for my $command (@commands) {
$html .= "<b>@{[xml_escape('/'.$command->{command})]}</b> @{[xml_escape($command->{description})]}\n";
$html .=
"<b>@{[xml_escape('/'.$command->{command})]}</b> @{[xml_escape($command->{description})]}\n";
}
$telegram->send_message(
text => $html,
@ -272,7 +295,7 @@ EOF
);
return;
}
return unless check_can_modify_karma($message);
my $receiving_karma_user =
$user_dao->recover_id( id => $user_receiving_id );
if ( !defined $receiving_karma_user ) {
@ -315,6 +338,7 @@ EOF
return;
}
return unless check_can_modify_karma($message);
my $receiving_karma_user =
$user_dao->recover_id( id => $user_receiving_id );
if ( !defined $receiving_karma_user ) {

View File

@ -8,6 +8,8 @@ use warnings;
use Types::Standard qw/Str Int InstanceOf ArrayRef Maybe HasMethods/;
use Params::ValidationCompiler qw(validation_for);
use DateTime::Format::ISO8601;
{
my $validator = validation_for(
params => {
@ -161,6 +163,32 @@ EOF
}
}
{
my $validator = validation_for(
params => {
user => { type => InstanceOf ['DoctorKarma::Model::User'] },
last_karma_given_date =>
{ type => InstanceOf ['DateTime'], optional => 1 },
}
);
sub update_last_karma_given_date {
my $self = shift;
my %params = $validator->(@_);
my $db = $self->_db;
my $last_karma_given_date = $params{last_karma_given_date};
my $user = $params{user};
$db->do( <<'EOF', {}, $last_karma_given_date . '', $user->id_user );
UPDATE users SET last_karma_given_date=? WHERE id = ?;
EOF
my $user_with_new_last_karma =
$self->recover_id( id => $user->id_user );
$user->last_karma_given_date( $user->last_karma_given_date );
}
}
{
my $validator = validation_for(
params => {
@ -306,6 +334,11 @@ EOF
for my $key_field ( keys %$user_db ) {
$user_db->{$key_field} // delete $user_db->{$key_field};
}
if ( defined $user_db->{last_karma_given_date} ) {
my $iso8601 = DateTime::Format::ISO8601->new;
$user_db->{last_karma_given_date} =
$iso8601->parse_datetime( $user_db->{last_karma_given_date} );
}
return DoctorKarma::Model::User->new(%$user_db);
}
return undef;

View File

@ -8,6 +8,8 @@ use warnings;
use Types::Standard qw/Str Int InstanceOf/;
use Params::ValidationCompiler qw(validation_for);
use DateTime;
{
my $validator = validation_for(
params => {
@ -15,7 +17,8 @@ use Params::ValidationCompiler qw(validation_for);
username => { type => Str, optional => 1 },
first_name => { type => Str, optional => 1 },
karma => { type => Int },
last_karma_given_date => { type => InstanceOf ['DateTime'], optional => 1 },
last_karma_given_date =>
{ type => InstanceOf ['DateTime'], optional => 1 },
}
);
@ -27,6 +30,15 @@ use Params::ValidationCompiler qw(validation_for);
}
}
sub can_modify_karma {
my $self = shift;
my $last_karma_given_date = $self->last_karma_given_date;
if ( !defined $last_karma_given_date ) {
return 1;
}
return DateTime->now >
$self->last_karma_given_date->clone->add( minutes => 1 );
}
sub first_name {
my $self = shift;
@ -58,10 +70,20 @@ sub id_user {
}
}
{
my $validator =
validation_for(
params => [ { type => InstanceOf ['DateTime'], optional => 1} ] );
sub last_karma_given_date {
my $self = shift;
my ($last_karma_given_date) = $validator->(@_);
if ( defined $last_karma_given_date ) {
$self->{last_karma_given_date} = $last_karma_given_date;
}
return $self->{last_karma_given_date};
}
}
{
my $validator =