Controlling negative karma.
This commit is contained in:
parent
be89b71e90
commit
667dfcfb5d
|
@ -27,9 +27,14 @@ my $db = DoctorKarma::DB->dbh;
|
||||||
while (1) {
|
while (1) {
|
||||||
my $updates = $telegram->get_updates;
|
my $updates = $telegram->get_updates;
|
||||||
for my $update ( $updates->@* ) {
|
for my $update ( $updates->@* ) {
|
||||||
my $message = $update->{message};
|
eval {
|
||||||
if ( defined $message ) {
|
my $message = $update->{message};
|
||||||
proccess_new_message($message);
|
if ( defined $message ) {
|
||||||
|
proccess_new_message($message);
|
||||||
|
}
|
||||||
|
};
|
||||||
|
if ($@) {
|
||||||
|
$logger->log_error($@);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -100,7 +105,7 @@ EOF
|
||||||
$telegram->send_message(
|
$telegram->send_message(
|
||||||
chat_id => $chat_id,
|
chat_id => $chat_id,
|
||||||
text =>
|
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(
|
$telegram->send_message(
|
||||||
chat_id => $chat_id,
|
chat_id => $chat_id,
|
||||||
text =>
|
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