Adding a better error handling.
This commit is contained in:
parent
be6c2f2201
commit
acbdaefba7
@ -55,20 +55,22 @@ my @commands = (
|
|||||||
description => 'Shows this help.',
|
description => 'Shows this help.',
|
||||||
}
|
}
|
||||||
);
|
);
|
||||||
$telegram->set_my_commands( commands => [@commands] );
|
|
||||||
|
|
||||||
|
my $i = 0;
|
||||||
while (1) {
|
while (1) {
|
||||||
my $updates = $telegram->get_updates;
|
eval {
|
||||||
for my $update ( $updates->@* ) {
|
$telegram->set_my_commands( commands => [@commands] ) if $i == 0;
|
||||||
eval {
|
my $updates = $telegram->get_updates;
|
||||||
|
for my $update ( $updates->@* ) {
|
||||||
my $message = $update->{message};
|
my $message = $update->{message};
|
||||||
if ( defined $message ) {
|
if ( defined $message ) {
|
||||||
proccess_new_message($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 $chat_id = $message->{chat}{id};
|
||||||
|
|
||||||
my $user_dao = DoctorKarma::DAO::User->new( dbh => $db );
|
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 ) {
|
if ( $user->can_modify_karma ) {
|
||||||
$user_dao->update_last_karma_given_date(
|
$user_dao->update_last_karma_given_date(
|
||||||
@ -148,7 +150,8 @@ sub check_can_modify_karma {
|
|||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
my $last_karma_given_date = $user->last_karma_given_date;
|
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(
|
$telegram->send_message(
|
||||||
chat_id => $chat_id,
|
chat_id => $chat_id,
|
||||||
text => "You cannot give karma yet wait a bit.
|
text => "You cannot give karma yet wait a bit.
|
||||||
|
Loading…
Reference in New Issue
Block a user