Controlling negative karma.
This commit is contained in:
parent
be89b71e90
commit
667dfcfb5d
|
@ -27,9 +27,14 @@ my $db = DoctorKarma::DB->dbh;
|
|||
while (1) {
|
||||
my $updates = $telegram->get_updates;
|
||||
for my $update ( $updates->@* ) {
|
||||
my $message = $update->{message};
|
||||
if ( defined $message ) {
|
||||
proccess_new_message($message);
|
||||
eval {
|
||||
my $message = $update->{message};
|
||||
if ( defined $message ) {
|
||||
proccess_new_message($message);
|
||||
}
|
||||
};
|
||||
if ($@) {
|
||||
$logger->log_error($@);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
@ -100,7 +105,7 @@ EOF
|
|||
$telegram->send_message(
|
||||
chat_id => $chat_id,
|
||||
text =>
|
||||
"[@{[$receiving_karma_user->first_name]}]($receptor_telegram_url) has now @{[$receiving_karma_user->karma]} of karma\\."
|
||||
"[@{[$receiving_karma_user->first_name]}]($receptor_telegram_url) has now @{[$receiving_karma_user->karma =~ s/-/\\-/r]} of karma\\."
|
||||
);
|
||||
}
|
||||
|
||||
|
@ -140,7 +145,7 @@ EOF
|
|||
$telegram->send_message(
|
||||
chat_id => $chat_id,
|
||||
text =>
|
||||
"[@{[$receiving_karma_user->first_name]}]($receptor_telegram_url) has now @{[$receiving_karma_user->karma]} of karma\\."
|
||||
"[@{[$receiving_karma_user->first_name]}]($receptor_telegram_url) has now @{[$receiving_karma_user->karma =~ s/-/\\-/r]} of karma\\."
|
||||
);
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue