sergiotarxz
/
DoctorKarma
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding a better error handling.

This commit is contained in:
sergiotarxz 2022-03-16 00:36:15 +01:00
parent be6c2f2201
commit acbdaefba7
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
bin/doctor_karma.pl
View File

@ -55,20 +55,22 @@ my @commands = (
description => 'Shows this help.',
}
);
$telegram->set_my_commands( commands => [@commands] );
my $i = 0;
while (1) {
my $updates = $telegram->get_updates;
for my $update ( $updates->@* ) {
eval {
eval {
$telegram->set_my_commands( commands => [@commands] ) if $i == 0;
my $updates = $telegram->get_updates;
for my $update ( $updates->@* ) {
my $message = $update->{message};
if ( defined $message ) {
proccess_new_message($message);
}
};
if ($@) {
$logger->log_error($@);
}
$i++;
};
if ($@) {
$logger->log_error($@);
}
}
@ -138,7 +140,7 @@ sub check_can_modify_karma {
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 = $user_dao->recover_id( id => $user_id );
if ( $user->can_modify_karma ) {
$user_dao->update_last_karma_given_date(
@ -148,7 +150,8 @@ sub check_can_modify_karma {
return 1;
}
my $last_karma_given_date = $user->last_karma_given_date;
my $time_to_post = $last_karma_given_date->add(minutes => 1) - DateTime->now();
my $time_to_post =
$last_karma_given_date->add( minutes => 1 ) - DateTime->now();
$telegram->send_message(
chat_id => $chat_id,
text => "You cannot give karma yet wait a bit.