From b11496a7b4383cd9ba079f4781f0310b773b74b5 Mon Sep 17 00:00:00 2001 From: eleksir Date: Thu, 10 Sep 2020 11:22:20 +0300 Subject: [PATCH] Enhance newcommer greet --- lib/telegrambot.pm | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/lib/telegrambot.pm b/lib/telegrambot.pm index 73f1e6e..aaaaf44 100644 --- a/lib/telegrambot.pm +++ b/lib/telegrambot.pm @@ -37,7 +37,26 @@ sub __on_msg { if ($msg->{'new_chat_members'}) { # we have newcommers here - $msg->reply("Дратути. Представьтес, пожалуйста, и расскажите, что вас сюда привело."); + my $newcommer; + + if ($msg->{'new_chat_members'}->can('first_name')) { + $newcommer .= $msg->{'new_chat_members'}->first_name; + + if ($msg->{'new_chat_members'}->can('last_name')) { + $newcommer .= ' ' . $msg->{'new_chat_members'}->last_name; + } + } elsif ($msg->{'new_chat_members'}->can('last_name')) { + $newcommer .= $msg->{'new_chat_members'}->last_name; + } elsif ($msg->{'new_chat_members'}->can('username')) { + $newcommer .= $msg->{'new_chat_members'}->username; + } + + if ($newcommer) { + $msg->reply("Дратути, $newcommer. Представьтес, пожалуйста, и расскажите, что вас сюда привело."); + } else { + $msg->reply("Дратути. Представьтес, пожалуйста, и расскажите, что вас сюда привело."); + } + return; }