eleksir/aleesa-telegram-bot
1
Fork 0
Code Activity

Define really empty array for newcomers

Browse Source 
* Array for new member was defined with 1 empty value, but it must be empty array
* For more than 1 member added, last member should be enumerated via "и", not ","
This commit is contained in:
eleksir
2021-02-07 20:49:58 +03:00
parent 626feed7db
commit 9732e71775
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/telegrambot.pm
View File

@@ -113,10 +113,10 @@ sub __on_msg {
# Newcommer event, greet our new member and suggest to introduce themself.
if ($msg->can ('new_chat_members') && defined ($msg->new_chat_members)) {
my @members = '';
my @members;
foreach my $member (@{$msg->new_chat_members}) {
my $member_str = '[';
my $member_str = '';
if ($member->can ('first_name') && defined ($member->first_name)) {
$member_str .= $member->first_name;
@@ -132,11 +132,16 @@ sub __on_msg {
}
}
$member_str .= sprintf '](tg://user?id=%s)', $member->id;
push @members, $member_str;
push @members, sprintf '[%s](tg://user?id=%s)', $member_str, $member->id;
};
$phrase = sprintf 'Дратути, %s. Представьтес, пожалуйста, и расскажите, что вас сюда привело.', join (', ', @members);
if ($#members > 1) {
my $lastone = pop @members;
$phrase = sprintf 'Дратути, %s и %s. Представьтес, пожалуйста, и расскажите, что вас сюда привело.', join (', ', @members), $lastone;
} else {
$phrase = sprintf 'Дратути, %s. Представьтес, пожалуйста, и расскажите, что вас сюда привело.', $members[0];
}
botsleep ($msg);
$msg->replyMd ($phrase);
return;