Use ->canTalk() instead of ::canTalk() in Message.pm as it is more reliable way to check this

README.md

@@ -1,29 +1,32 @@
 # Aleesa-Telegram-bot - Telegram chatty bot
 
+## Disclaimer
+
+This version - 3 (something) - considered stable. It means that further development of new features kind of frosen.
+Most effort will be targeted to future 4-th version development. If you have some ideas or fixes to this version
+feel free PR them, they will be merged as soon as being reviewed.
+
 ## About
 
-It is based on Perl modules [Telegram::Bot][1] and [Hailo][2] as conversation
+It is based on Perl modules [Telegram::Bot][1] and [Hailo][2] as conversation generator.
-generator.
 
-I have to fork [Telegram::Bot][1] and update it according to features appeared
+I have to fork [Telegram::Bot][1] and update it according to features appeared in [Telegram Bot API v5][3]. Also,
-in [Telegram Bot API v5][3]. Also, I decide to rename it to avoid collision in
+I decide to rename it to avoid collision in the future, now it is Teapot::Bot and is bundled with bot. When lib becomes
-the future, now it is Teapot::Bot and is bundled with bot. When lib becomes
 mature enough, maybe I release it separately.
 
-Bot config located in **data/config.json**, sample config provided as
+Bot config located in **data/config.json**, sample config provided as **data/sample_config.json**.
-**data/sample_config.json**.
 
-Bot can be run via **bin/aleesa-telegram-bot** and acts as daemon (double fork()
+Bot can be run via **bin/aleesa-telegram-bot** and acts as daemon (double fork() and detaches stdio).
-and detaches stdio).
 
 ## Installation
 
-In order to run this application, you need to "bootstrap" it - download and build
+Application have been tested on alpine linux x86_64 3.12, with perl-5.32.1 builtin.
-all required dependencies and libraries.
 
-You'll need perl-5.18 or newer, "Development Tools" or similar group of
+In order to run this application, you need to "bootstrap" it - download and build all required dependencies and
-packages, perl, perl-devel, perl-local-lib, perl-app-cpanm, sqlite-devel,
+libraries.
-zlib-devel, openssl-devel, libdb4-devel (Berkeley DB devel), make.
+
+You'll need perl-5.18 or newer, "Development Tools" or similar group of packages, perl, perl-devel, perl-local-lib,
+perl-app-cpanm, sqlite-devel, zlib-devel, openssl-devel, libdb4-devel (Berkeley DB devel), make.
 
 After installing required dependencies it is possible to run:
 
@@ -37,56 +40,49 @@ and all libraries should be downloaded, built, tested and installed.
 
 ## Running
 
-This bot does not [ultilize][4] webhooks, so in order to run it only well
+This bot does not [ultilize][4] webhooks, so in order to run it only well internet connection is required, no
-internet connection is required, no public-available ip address is needed.
+public-available ip address is needed.
 
 ### Additional Settings to be performed in order to run bot as it designed
 
-There are some "plugins" that requires registration on third party services
+There are some "plugins" that requires registration on third party services and API keys and secrets in order to work.
-and API keys and secrets in order to work.
 
 #### OpenWeatherMap
 
-You should [register][5], [login][6] and [create][7] api key. Free plan have
+You should [register][5], [login][6] and [create][7] api key. Free plan have all required features to run this "plugin".
-all required features to run this "plugin".
 
-Once key is created you should put it in **config.json** under openweathermap
+Once key is created you should put it in **config.json** under openweathermap section as appid. Thats it.
-section as appid. Thats it.
 
 It is still impossible to disable this plugin, but "I'm working on it".
 
 #### Imgur
 
-This plugin "just exists" and is actually used nowhere around the code.
+This plugin "just exists" and is actually used nowhere around the code. Anyway, to make use of it besides registering
-Anyway, to make use of it besides registering appropriate handler in code, you
+appropriate handler in code, you should sign in imgur and get access token.
-should sign in imgur and get access token.
 
 Actually at this time this "plugin" can be stub-ed with default config values.
 
-Anyway, to fetch access token you should [login][8] and perform [registration][9]
+Anyway, to fetch access token you should [login][8] and perform [registration][9] of your app. Then you should
-of your app. Then you should authorize your app according to [this][10] manual. Or
+authorize your app according to [this][10] manual. Or [this][11] one.
-[this][11] one.
 
 #### Flickr
 
 This "plugin" is really used to implement random picture link retrival plugins.
 
-There is helper script in **bin/flickr_init.pl** that helps to get all required keys
+There is helper script in **bin/flickr_init.pl** that helps to get all required keys and secrets from flickr api.
-and secrets from flickr api.
 
 Before using it bot must be bootstrapped via **`bootstrap.sh`**.
 
-[Login][11] and create an [app][12] in your flickr account. Then *logout* flickr account.
+[Login][11] and create an [app][12] in your flickr account. Then *logout* flickr account. (It is required in order to
-(It is required in order to properly get "verifier" parameter later).
+properly get "verifier" parameter later).
 
-Put your [app key and secret][13] to **config.json**. Ensure that "verifier" parameter
+Put your [app key and secret][13] to **config.json**. Ensure that "verifier" parameter in Flickr-related part of config
-in Flickr-related part of config either absent or commented out.
+either absent or commented out.
 
-Run **bin/flickr_init.pl** first time and follow on screen instructions - copy and
+Run **bin/flickr_init.pl** first time and follow on screen instructions - copy and paste given link to browser login to
-paste given link to browser login to flickr account and you'll be redirected to
+flickr account and you'll be redirected to example.com. Check address bar in browser to get so-called "verifier", put
-example.com. Check address bar in browser to get so-called "verifier", put it in
+it in **config.json**. Then run **bin/flickr_init.pl** again to store API access token in db under data/image directory
-**config.json**. Then run **bin/flickr_init.pl** again to store API access token in db
+(in default config). You're done.
-under data/image directory (in default config). You're done.
 
 [1]: https://metacpan.org/pod/Telegram::Bot
 [2]: https://metacpan.org/pod/Hailo

README_RU.md

@@ -1,30 +1,36 @@
 # Aleesa-Telegram-bot - Болтливый бот для Telegram
 
+## Дисклеймер
+
+Эта версия бота за номером 3 (с мелочью) стабильная. Сие означает, что дальнейшего развития функций в этой версии не
+предполагается. Конечно, возможны исключения, но основной план - переключиться на 4-ю версию, куда планируется
+перенести большинство функций 3-й версии.
+
+Если у кого-то возникнут идеи относительно этой версии бота - ставьте PR, я только рад. Т.к. несмотря на то, что
+развитие этой версии "слегка" заморожено, поддерживать её планируется как минимум до выхода в свет 4-й версии бота.
+
 ## Что это такое
 
-Это бот, основанный на перловых модулях [Telegram::Bot][1] для работы в
+Это бот, основанный на перловых модулях [Telegram::Bot][1] для работы в мессенджере Telegram и [Hailo][2] для генерации
-мессенджере Telegram и [Hailo][2] для генерации "умной" беседы.
+"умной" беседы.
 
-Для корректной работы, пришлось форкнуть [Telegram::Bot][1], чтобы обновить
+Для корректной работы, пришлось форкнуть [Telegram::Bot][1], чтобы обновить интерфейс API до [Telegram Bot API v5][3].
-интерфейс API до [Telegram Bot API v5][3]. Для избежания неоднозначностей, модуль
+Для избежания неоднозначностей, модуль пришлось переименовать и теперь он идёт в составе бота. Возможно, когда модуль
-пришлось переименовать и теперь он идёт в составе бота. Возможно, когда модуль
+отлежится и будет похож на стабильный, он стнет самостоятельным и поселится на metacpan.org
-отлежится и будет похож на стабильный, он стнет самостоятельным и поселится на
-metacpan.org
 
-Конфиг бота должен лежать в **data/config.json**. Пример конфига расположен в
+Конфиг бота должен лежать в **data/config.json**. Пример конфига расположен в **data/sample_config.json**.
-**data/sample_config.json**.
 
-Бота можно запустить через **bin/aleesa-telegram-bot** и он взлетит, как юниксовый
+Бота можно запустить через **bin/aleesa-telegram-bot** и он взлетит, как юниксовый демон (сделает двойной fork() и
-демон (сделает двойной fork() и отцепится от stdio).
+отцепится от stdio).
 
 ## Установка
 
-Чтобы запустить приложение, его надо "забурстрапить" - загрузить и собрать все
+Приложение тестировалось на alpine linux x86_64 3.12, со встроенным perl-5.32.1.
-необходимые зависимости.
 
-Понадобится perl-5.18, а желательно новее, "Development Tools" или подобная
+Чтобы запустить приложение, его надо "забурстрапить" - загрузить и собрать все необходимые зависимости.
-группа пакетов , perl, perl-devel, perl-local-lib, perl-app-cpanm, sqlite-devel,
+
-zlib-devel, openssl-devel, libdb4-devel (Berkeley DB devel), make.
+Понадобится perl-5.18, а желательно новее, "Development Tools" или подобная группа пакетов , perl, perl-devel,
+perl-local-lib, perl-app-cpanm, sqlite-devel, zlib-devel, openssl-devel, libdb4-devel (Berkeley DB devel), make.
 
 После установки этих пакетов, можно будет запустить:
 
@@ -38,56 +44,50 @@ bash bootstrap.sh
 
 ## Запуск и работа
 
-Бот не использует [вебхуки][4], поэтому ничего дополнительного, кроме хорошего
+Бот не использует [вебхуки][4], поэтому ничего дополнительного, кроме хорошего подключения к интернету ему не нужно.
-подключения к интернету ему не нужно.
 
 ### Дополнительные настройки
 
-Некоторые "плагины" требуют регистрации в сторонних сервисах (API keys, secrets
+Некоторые "плагины" требуют регистрации в сторонних сервисах (API keys, secrets итд), чтобы бот не сыпал ошибками в
-итд), чтобы бот не сыпал ошибками в логи (возможно, в дальнейшем возможно будет
+логи (возможно, в дальнейшем возможно будет отключить эти плагины).
-отключить эти плагины).
 
 #### OpenWeatherMap
 
-Для работы погодного плагина, надо [заргистрироваться][5], [залогиниться][6] и
+Для работы погодного плагина, надо [заргистрироваться][5], [залогиниться][6] и [создать][7] api key. Free plan
-[создать][7] api key. Free plan предлагает всё необхдимое для работы "плагина".
+предлагает всё необхдимое для работы "плагина".
 
-Когда api key будет создан, его нужно вписать в **config.json** "секцию"
+Когда api key будет создан, его нужно вписать в **config.json** "секцию" openweathermap в качестве appid. На этом всё.
-openweathermap в качестве appid. На этом всё.
 
 #### Imgur
 
-Этот плагин "просто есть" и его на самом деле ничто и никто не использует. И в
+Этот плагин "просто есть" и его на самом деле ничто и никто не использует. И в этой связи все настройки плагина можно
-этой связи все настройки плагина можно оставить "как есть" в примере конфига.
+оставить "как есть" в примере конфига.
 
-Тем не менее, если есть большое желание, то можно [залогиниться][8] и
+Тем не менее, если есть большое желание, то можно [залогиниться][8] и [зарегистрировать][9] бота как приложение, а
-[зарегистрировать][9] бота как приложение, а потом разрешить приложению
+потом разрешить приложению пользоваться API-шкой, как описано в [этом][10] или [этом][11] мануале.
-пользоваться API-шкой, как описано в [этом][10] или [этом][11] мануале.
 
 #### Flickr
 
-Этот "плагин" действительно используется для добычи ссылок на картинки в разных
+Этот "плагин" действительно используется для добычи ссылок на картинки в разных "картиночных" командах бота.
-"картиночных" командах бота.
 
-Есть скрипт, который поможет с регистрацией приложения в api Flickr -
+Есть скрипт, который поможет с регистрацией приложения в api Flickr - **bin/flickr_init.pl**, он достанет все нужные
-**bin/flickr_init.pl**, он достанет все нужные ключи и секреты к ним.
+ключи и секреты к ним.
 
 До запуска этого скрипта, бот должен быть забутстраплен через **`bootstrap.sh`**.
 
-[Залогиньтесь][11] и создайте [app][12] in своём Flicker-овском аккаунте. Далее,
+[Залогиньтесь][11] и создайте [app][12] in своём Flicker-овском аккаунте. Далее, *разлогиньтесь*, это нужно, чтобы
-*разлогиньтесь*, это нужно, чтобы потом проще было достать параметр verifier.
+потом проще было достать параметр verifier.
 
-Запишите [app key и secret][13] в **config.json**. Удостоверьтесь, что параметр
+Запишите [app key и secret][13] в **config.json**. Удостоверьтесь, что параметр "verifier" в конфиге либо закоменчен,
-"verifier" в конфиге либо закоменчен, либо отсутствует.
+либо отсутствует.
 
-Запустите **bin/flickr_init.pl** и следуте предлагаемым инструкциям - в итоге
+Запустите **bin/flickr_init.pl** и следуте предлагаемым инструкциям - в итоге будет дана ссылка, которую надо
-будет дана ссылка, которую надо скопипастить в браузер. По ссылке предложат
+скопипастить в браузер. По ссылке предложат залогиниться, далее надо будет разрешить приложению просматривать профиль
-залогиниться, далее надо будет разрешить приложению просматривать профиль и,
+и, через один-два редиректа, вы попадёте на example.com. Из адресной строки браузера надо скопировать параметр
-через один-два редиректа, вы попадёте на example.com. Из адресной строки браузера
+"verifier" и вписать его в **config.json**.
-надо скопировать параметр "verifier" и вписать его в **config.json**.
 
-Чтобы сохранить в бд плагина API access token для нормальной работы "плагина",
+Чтобы сохранить в бд плагина API access token для нормальной работы "плагина", второй раз запустите
-второй раз запустите **bin/flickr_init.pl**. На этом всё.
+**bin/flickr_init.pl**. На этом всё.
 
 [1]: https://metacpan.org/pod/Telegram::Bot
 [2]: https://metacpan.org/pod/Hailo

cpanfile

@@ -1,34 +1,39 @@
-requires 'Carp';
+## no critic (TestingAndDebugging::RequireUseStrict,Modules::RequireVersionVar)
-requires 'CHI';
+## no critic (TestingAndDebugging::RequireUseWarnings,Modules::RequireExplicitPackage)
-requires 'CHI::Driver::BerkeleyDB';
+## no critic (Modules::RequireEndWithOne)
-requires 'Cwd::utf8';
+requires 'Carp',                    '==1.50';
-requires 'DateTime';
+requires 'CHI',                     '==0.61';
-requires 'DB_File';
+requires 'CHI::Driver::BerkeleyDB', '==0.05';
-requires 'SQLite_File';
+requires 'Cwd::utf8',               '==0.011';
-requires 'DBI';
+requires 'DateTime',                '==1.55';
-requires 'DBD::SQLite';
+requires 'DB_File',                 '==1.856';
-requires 'Digest::HMAC_SHA1';
+requires 'SQLite_File',             '==0.1006';
-requires 'Digest::MD5';
+requires 'DBI',                     '==1.643';
-requires 'Data::Dumper';
+requires 'DBD::SQLite',             '==1.70';
-requires 'Digest::SHA';
+requires 'Digest::HMAC_SHA1',       '==1.04';
-requires 'File::Basename';
+requires 'Digest::MD5',             '==2.58';
-requires 'File::Path';
+requires 'Data::Dumper',            '==2.183';
-requires 'Hailo';
+requires 'Digest::SHA',             '==6.02';
-requires 'HTML::TokeParser';
+requires 'File::Basename',          '==2.85';
-requires 'IO::Socket::SSL';
+requires 'File::Path',              '==2.18';
-requires 'JSON';
+requires 'Hailo',                   '==0.75';
-requires 'JSON::XS';
+requires 'HTML::TokeParser',        '==3.76';
-requires 'List::Util';
+requires 'IO::Socket::SSL',         '==2.074';
-requires 'local::lib';
+requires 'JSON',                    '==4.05';
-requires 'Log::Any';
+requires 'JSON::PP',                '==4.07';
-requires 'Log::Any::Adapter';
+requires 'JSON::XS',                '==4.03';
-requires 'Log::Any::For::Std';
+requires 'List::Util',              '==1.60';
-requires 'Math::Random::Secure';
+requires 'local::lib',              '==2.000028';
-requires 'Mojo::Base';
+requires 'Log::Any',                '==1.710';
-requires 'Mojo::IOLoop';
+requires 'Log::Any::Adapter',       '==1.710';
-requires 'Mojo::UserAgent';
+requires 'Log::Any::For::Std',      '==0.05';
-requires 'Mojo::UserAgent::Cached';
+requires 'Math::Random::Secure',    '==0.080001';
-requires 'String::Random';
+requires 'Mojolicious',             '==9.22';
-requires 'Text::Fuzzy';
+requires 'Mojo::Base',              '0';
-requires 'URI::Encode::XS';
+requires 'Mojo::IOLoop',            '0';
-requires 'URI::URL';
+requires 'Mojo::UserAgent',         '0';
+requires 'Mojo::UserAgent::Cached', '==1.18';
+requires 'String::Random',          '==0.32';
+requires 'Text::Fuzzy',             '==0.29';
+requires 'URI::Encode::XS',         '==0.11';
+requires 'URI::URL',                '==5.10';

lib/BotLib.pm

@@ -92,7 +92,7 @@ sub Command {
 	} elsif (substr ($text, 1) eq 'roll' || substr ($text, 1) eq 'dice' || substr ($text, 1) eq 'кости') {
 		$reply = sprintf 'На первой кости выпало %d, а на второй — %d.', irand (6) + 1, irand (6) + 1;
 	} elsif (substr ($text, 1) eq 'ver' || substr ($text, 1) eq 'version' || substr ($text, 1) eq 'версия') {
-		$reply = 'Версия:  Нуль.Чего-то_там.Чего-то_там';
+		$reply = 'Версия:  Три.Чего-то_там.С_мелочью';
 	} elsif (substr ($text, 1) eq 'anek' || substr ($text, 1) eq 'анек' || substr ($text, 1) eq 'анекдот') {
 		$msg->typing ();
 		$reply = "```\n" . Anek () . "\n```";

lib/Teapot/Bot/Object/Base.pm

@@ -5,6 +5,7 @@ use Mojo::Base -base;
 use List::Util qw/any/;
 use Carp qw/croak cluck/;
 use Data::Dumper;
+use JSON::PP ();
 
 $Teapot::Bot::Object::Base::VERSION = '0.022';
 

lib/Teapot/Bot/Object/ChatMember.pm

@@ -83,7 +83,7 @@ sub canDeleteMessage {
     my $chatobj = $self->getChat ({ 'chat_id' => $chatid });
 
     # on api error, keep silence
-    unless ($chatobj) {
+    if ($chatobj == 0 || $chatobj->{error}) {
       cluck "Unable to get chat info for $chatid from telegram API";
       return 0;
     }
@@ -91,7 +91,7 @@ sub canDeleteMessage {
     my $myObj = $self->getMe ();
 
     # on api error, keep silence
-    unless ($chatobj) {
+    if ($myObj == 0 || $myObj->{error}) {
       cluck "Unable to get chat info for $chatid from telegram API";
       return 0;
     }
@@ -100,7 +100,7 @@ sub canDeleteMessage {
     my $me = $self->getChatMember ({ 'chat_id' => $chatid, 'user_id' => $myid });
 
     # on api error, keep silence
-    unless ($me) {
+    if ($me == 0 || $me->{error}) {
       cluck 'Unable to get chat info for bot itself from telegram API';
       return 0;
     }

lib/Teapot/Bot/Object/ChatPermissions.pm

@@ -39,26 +39,26 @@ sub canTalk {
     my $chatobj = $self->_brain->getChat ({ 'chat_id' => $chatid });
 
     # on api error, keep silence
-    unless ($chatobj) {
+    if ($chatobj == 0 || $chatobj->{error}) {
       carp "Unable to get chat info for $chatid from telegram API";
-      return 0;
+      return $can_talk;
     }
 
     my $myObj = $self->_brain->getMe ();
 
     # on api error, keep silence
-    unless ($chatobj) {
+    if ($myObj == 0 || $myObj->{error}) {
       carp "Unable to get chat info for $chatid from telegram API";
-      return 0;
+      return $can_talk;
     }
 
     my $myid = $myObj->id;
     my $me = $self->_brain->getChatMember ({ 'chat_id' => $chatid, 'user_id' => $myid });
 
     # on api error, keep silence
-    unless ($me) {
+    if ($me == 0 || $me->{error}) {
       carp 'Unable to get chat info for bot itself from telegram API';
-      return 0;
+      return $can_talk;
     }
 
     if ($me->{'status'} eq 'administrator') {

lib/Teapot/Bot/Object/Message.pm

@@ -157,7 +157,7 @@ sub reply {
 
   my $chatid = $self->chat->id;
 
-  if (Teapot::Bot::Object::ChatPermissions::canTalk($self, $chatid)) {
+  if (Teapot::Bot::Object::ChatPermissions->canTalk($self, $chatid)) {
     return $self->_brain->sendMessage({chat_id => $chatid, text => $text});
   }
 
@@ -170,7 +170,7 @@ sub replyMd {
 
   my $chatid = $self->chat->id;
 
-  if (Teapot::Bot::Object::ChatPermissions::canTalk ($self, $chatid)) {
+  if (Teapot::Bot::Object::ChatPermissions->canTalk ($self, $chatid)) {
     my $send_args;
     $send_args->{text} = $text;
     $send_args->{parse_mode} = 'Markdown';
@@ -187,7 +187,7 @@ sub typing {
 
   my $chatid = $self->chat->id;
 
-  if (Teapot::Bot::Object::ChatPermissions::canTalk ($self, $chatid)) {
+  if (Teapot::Bot::Object::ChatPermissions->canTalk ($self, $chatid)) {
     return $self->_brain->sendChatAction({chat_id => $chatid});
   }
 

lib/TelegramBot.pm

@@ -17,6 +17,7 @@ use BotLib::Admin qw (FortuneToggleList);
 use BotLib qw (RandomCommonPhrase Command Highlight BotSleep IsCensored);
 use BotLib::Conf qw (LoadConf);
 use BotLib::Fortune qw (Fortune);
+use BotLib::Image qw (Oboobs Obutts);
 use BotLib::Karma qw (KarmaSet);
 use BotLib::Util qw (trim fmatch);
 
@@ -125,17 +126,22 @@ sub __on_msg {
 		foreach my $member (@{$msg->new_chat_members}) {
 			my $member_str = '';
 
-			if ($member->can ('first_name') && defined ($member->first_name)) {
+			# avoid naming people by spacing symbols, or empty names
+			if ($member->can ('first_name') && defined ($member->first_name) && $member->first_name !~ /^\s+$/ui) {
 				$member_str .= $member->first_name;
 
-				if ($member->can ('last_name') && defined ($member->last_name)) {
+				if ($member->can ('last_name') && defined ($member->last_name) && $member->last_name !~ /^\s+$/ui) {
 					$member_str .= ' ' . $member->last_name;
 				}
 			} else {
-				if ($member->can ('last_name') && defined ($member->last_name)) {
+				if ($member->can ('last_name') && defined ($member->last_name) && $member->last_name !~ /^\s+$/ui) {
 					$member_str .= ' ' . $member->last_name;
-				} else {
+				# username must be uniq and should contain only english letters and numbers, so...
+				} elsif ($member->can ('username') && defined ($member->username)) {
 					$member_str .= '@' . $member->username;
+				# fallback to id if uose trying to be smartass and use only spacing chars in it's firstname and/or lastname
+				} else {
+					$member_str .= $member->id;
 				}
 			}
 
@@ -195,16 +201,22 @@ sub __on_msg {
 				} else {
 					$just_message_in_chat = 1;
 				}
+			} else {
+				$just_message_in_chat = 1;
 			}
 
 			if ($just_message_in_chat) {
-				if ($text =~ /^кто +все +эти +люди *\?$/i) {
+				if ($text =~ /^ *кто +все +эти +люди *\?$/ui) {
-					$reply = 'Какие люди? Мы здесь вдвоём, только ты и я.';
+					$reply = 'Какие "люди"? Мы здесь вдвоём, только ты и я.';
-				} elsif ($text =~ /покажи +(сиськи|сиси|титьки) *$/i) {
+				} elsif ($text =~ /^ *кто +я *\?$/ui) {
+					$reply = 'Где?';
+				} elsif ($text =~ /^ *кто +(здесь|тут) *\?$/ui) {
+					$reply = 'Ты да я, да мы с тобой.';
+				} elsif ($text =~ /покажи +(сиськи|сиси|титьки) *$/ui) {
 					$reply = Oboobs ();
 				} elsif ($text =~ /show +(titts|tities|boobs) *$/i) {
 					$reply = Oboobs ();
-				} elsif ($text =~ /покажи +(попку|попу) *$/i) {
+				} elsif ($text =~ /покажи +(попку|попу) *$/ui) {
 					$reply = Obutts ();
 				} elsif ($text =~ /show +(ass|butt|butty) *$/i) {
 					$reply = Obutts ();
@@ -262,20 +274,31 @@ sub __on_msg {
 			$log->debug (sprintf ('[DEBUG] In public chat %s (%s) %s quote us!', $chatname, $chatid, $vis_a_vi));
 
 			# do not answer back if someone quote our new member greet
-			if ((substr ($msg->reply_to_message->text, 0, 9) eq 'Дратути, ') &&
+			if (substr ($msg->reply_to_message->text, -61) eq 'Представьтес, пожалуйста, и расскажите, что вас сюда привело.') {
-			    (substr ($msg->reply_to_message->text, -61) eq 'Представьтес, пожалуйста, и расскажите, что вас сюда привело.')) {
+				my @hello = (
-				return;
+					'Дратути, ',
-			} else {
+					'Дарована, ',
-				# remove our name from users reply, just in case
+					'Доброе утро, день или вечер, ',
-				my $pat1 = quotemeta ('@' . $myusername);
+					'Добро пожаловать в наше скромное коммунити, ',
-				my $pat2 = quotemeta $myfullname;
+					'Наше вам с кисточкой тут, на канальчике, ',
-				$phrase = $text;
+				);
-				$phrase =~ s/$pat1//g;
+
-				$phrase =~ s/$pat2//g;
+				foreach my $hi (@hello) {
+					if (substr ($msg->reply_to_message->text, 0, length $hi) eq $hi) {
+						return;
+					}
+				}
+			}
+
+			# remove our name from users reply, just in case
+			my $pat1 = quotemeta ('@' . $myusername);
+			my $pat2 = quotemeta $myfullname;
+			$phrase = $text;
+			$phrase =~ s/$pat1//g;
+			$phrase =~ s/$pat2//g;
 
 			# figure out reply :)
-				$reply = $hailo->{$msg->chat->id}->learn_reply ($phrase) if (length ($phrase) > 3);
+			$reply = $hailo->{$msg->chat->id}->learn_reply ($phrase) if (length ($phrase) > 3);
-			}
 		# simple commands
 		} elsif (substr ($text, 0, 1) eq $csign) {
 			$reply = Command ($self, $msg, $text, $chatid);
@@ -295,8 +318,12 @@ sub __on_msg {
 			if ((lc ($text) =~ /^${qname}[\,|\:]? (.+)/) or (lc ($text) =~ /^${qtname}[\,|\:]? (.+)/)){
 				$phrase = $1;
 
-				if ($phrase =~ /^кто +все +эти +люди *\?$/i) {
+				if ($phrase =~ /^ *кто +все +эти +люди *\?$/ui) {
 					$reply = 'Кто здесь?';
+				} elsif ($phrase =~ /^ *кто +я *?$/ui){
+					$reply = 'Где?';
+				} elsif ($phrase =~ /^ *кто +(здесь|тут) *\?$/ui) {
+					$reply = 'Здесь все: Никита, Стас, Гена, Турбо и Дюша Метёлкин.';
 				} else {
 					$reply = $hailo->{$msg->chat->id}->learn_reply ($phrase);
 				}
@@ -304,8 +331,12 @@ sub __on_msg {
 			} elsif ((lc ($text) =~ /.+ ${qname}[\,|\!|\?|\.| ]/) or (lc ($text) =~ / $qname$/)) {
 				$phrase = $text;
 
-				if ($phrase =~ /^кто +все +эти +люди *\?$/i) {
+				if ($phrase =~ /^ *кто +все +эти +люди *\?$/ui) {
 					$reply = 'Кто здесь?';
+				} elsif ($phrase =~ /^ *кто +я *?$/ui){
+					$reply = 'Где?';
+				} elsif ($phrase =~ /^ *кто +(здесь|тут) *\?$/ui) {
+					$reply = 'Здесь все: Никита, Стас, Гена, Турбо и Дюша Метёлкин.';
 				} else {
 					$reply = $hailo->{$msg->chat->id}->learn_reply ($phrase);
 				}
@@ -313,8 +344,12 @@ sub __on_msg {
 			} elsif ((lc ($text) =~ /.+ ${qtname}[\,|\!|\?|\.| ]/) or (lc ($text) =~ / $qtname$/)) {
 				$phrase = $text;
 
-				if ($phrase =~ /^кто +все +эти +люди *\?$/i) {
+				if ($phrase =~ /^ *кто +все +эти +люди *\?$/ui) {
 					$reply = 'Кто здесь?';
+				} elsif ($phrase =~ /^ *кто +я *?$/ui){
+					$reply = 'Где?';
+				} elsif ($phrase =~ /^ *кто +(здесь|тут) *\?$/ui) {
+					$reply = 'Здесь все: Никита, Стас, Гена, Турбо и Дюша Метёлкин.';
 				} else {
 					$reply = $hailo->{$msg->chat->id}->learn_reply ($phrase);
 				}
@@ -330,8 +365,12 @@ sub __on_msg {
 				}
 			# just message in chat
 			} else {
-				if ($text =~ /^кто +все +эти +люди *\?$/i) {
+				if ($text =~ /^ *кто +все +эти +люди *\?$/ui) {
 					$reply = 'Кто здесь?';
+				} elsif ($phrase =~ /^ *кто +я *?$/ui){
+					$reply = 'Где?';
+				} elsif ($phrase =~ /^ *кто +(здесь|тут) *\?$/ui) {
+					$reply = 'Здесь все: Никита, Стас, Гена, Турбо и Дюша Метёлкин.';
 				} else {
 					$hailo->{$msg->chat->id}->learn ($text);
 				}