Add !admin goodbye command

lib/BotLib.pm

@@ -16,7 +16,7 @@ use BotLib::Conf qw (LoadConf);
 use BotLib::Admin qw (@ForbiddenMessageTypes GetForbiddenTypes AddForbiddenType
                       DelForbiddenType ListForbidden FortuneToggle FortuneStatus
                       PluginToggle PluginStatus PluginEnabled ChanMsgToggle ChanMsgStatus
-					  GreetMsgToggle GreetMsgStatus);
+					  GreetMsgToggle GreetMsgStatus GoodbyeMsgToggle GoodbyeMsgStatus);
 use BotLib::Util qw (trim);
 
 use version; our $VERSION = qw (1.1);
@@ -202,6 +202,10 @@ ${csign}admin greet #       - где 1 - вкл, 0 - выкл приветств
 ${csign}admin приветствие # - где 1 - вкл, 0 - выкл приветствия новых участников чата
 ${csign}admin greet         - приветствуем ли новых участников чата
 ${csign}admin приветствие   - приветствуем ли новых участников чата
+${csign}admin goodbye #     - где 1 - вкл, 0 - выкл прощание с ушедшими участниками чата
+${csign}admin прощание #    - где 1 - вкл, 0 - выкл прощание с ушедшими участниками чата
+${csign}admin goodbye       - прощаемся ли с ушедшими участниками чата
+${csign}admin прощание      - прощаемся ли с ушедшими участниками чата
 ${csign}admin oboobs #      - где 1 - вкл, 0 - выкл плагина oboobs
 ${csign}admin oboobs        - показываем ли сисечки по просьбе участников чата (команды ${csign}tits, ${csign}tities, ${csign}boobs, ${csign}boobies, ${csign}сиси, ${csign}сисечки)
 ${csign}admin obutts #      - где 1 - вкл, 0 - выкл плагина obutts
@@ -288,6 +292,16 @@ MYADMIN
 				} else {
 					$reply = GreetMsgStatus ($chatid);
 				}
+			} elsif ($cmd eq 'goodbye' || $cmd eq 'прощание') {
+				if (defined $args) {
+					if ($args == 1) {
+						$reply = GoodbyeMsgToggle ($chatid, 1);
+					} elsif ($args == 0) {
+						$reply = GoodbyeMsgToggle ($chatid, 0);
+					}
+				} else {
+					$reply = GoodbyeMsgStatus ($chatid);
+				}
 			# Работает ли плагин oboobs в чатике
 			} elsif ($cmd eq 'oboobs') {
 				if (defined $args) {

lib/BotLib/Admin.pm

@@ -18,7 +18,7 @@ our @ISA    = qw / Exporter /; ## no critic (ClassHierarchies::ProhibitExplicitI
 our @EXPORT_OK = qw (@ForbiddenMessageTypes @PluginList GetForbiddenTypes AddForbiddenType DelForbiddenType
                      ListForbidden FortuneToggle FortuneToggleList FortuneStatus PluginToggle PluginStatus
                      PluginEnabled ChanMsgToggle ChanMsgStatus ChanMsgEnabled GreetMsgToggle GreetMsgStatus
-					 GreetMsgEnabled);
+					 GreetMsgEnabled GoodbyeMsgToggle GoodbyeMsgStatus GoodbyeMsgEnabled);
 
 my $c = LoadConf ();
 my $cachedir = $c->{cachedir};
@@ -368,6 +368,92 @@ sub GreetMsgEnabled ($) {
 	}
 }
 
+sub GoodbyeMsgToggle (@) {
+	my $chatid = shift;
+	my $action = shift // undef;
+	my $phrase = 'Прощание с ушедшими участниками чата ';
+
+	my $cache = CHI->new (
+		driver => 'BerkeleyDB',
+		root_dir => $cachedir,
+		namespace => __PACKAGE__ . '_' . 'goodbye_msg',
+	);
+
+	my $state = $cache->get ($chatid);
+
+	if (defined $action) {
+		if ($action) {
+			$cache->set ($chatid, 1, 'never');
+			$phrase .= 'включены.';
+		} else {
+			$cache->set ($chatid, 0, 'never');
+			$phrase .= 'выключены.';
+		}
+	} else {
+		if (defined $state){
+			if ($state) {
+				$cache->set ($chatid, 0, 'never');
+				$phrase .= 'выключены.';
+			} else {
+				$cache->set ($chatid, 1, 'never');
+				$phrase .= 'включены.';
+			}
+		} else {
+			$cache->set ($chatid, 1, 'never');
+			$phrase .= 'включены.';
+		}
+	}
+
+	return $phrase;
+}
+
+sub GoodbyeMsgStatus ($) {
+	my $chatid = shift;
+	my $phrase = 'Прощание с ушедшими участниками чата ';
+
+	my $cache = CHI->new (
+		driver => 'BerkeleyDB',
+		root_dir => $cachedir,
+		namespace => __PACKAGE__ . '_' . 'goodbye_msg',
+	);
+
+	my $state = $cache->get ($chatid);
+
+	if (defined $state) {
+		if ($state) {
+			$phrase .= 'включены.';
+		} else {
+			$phrase .= 'выключены.';
+		}
+	} else {
+		$phrase .= 'выключены.';
+	}
+
+	return $phrase;
+}
+
+sub GoodbyeMsgEnabled ($) {
+	my $chatid = shift;
+
+	my $cache = CHI->new (
+		driver => 'BerkeleyDB',
+		root_dir => $cachedir,
+		namespace => __PACKAGE__ . '_' . 'goodbye_msg',
+	);
+
+	my $state = $cache->get ($chatid);
+
+	if (defined $state) {
+		if ($state) {
+			return 1;
+		} else {
+			return 0;
+		}
+	} else {
+		return 0;
+	}
+}
+
 sub PluginStatus (@) {
 	my $chatid = shift;
 	my $plugin = shift;

lib/TelegramBot.pm

@@ -12,7 +12,7 @@ use Log::Any qw ($log);
 use Math::Random::Secure qw (irand);
 use Mojo::Base 'Teapot::Bot::Brain';
 
-use BotLib::Admin qw (FortuneToggleList ChanMsgEnabled GreetMsgEnabled);
+use BotLib::Admin qw (FortuneToggleList ChanMsgEnabled GreetMsgEnabled GoodbyeMsgEnabled);
 use BotLib qw (Command Highlight BotSleep IsCensored);
 use BotLib::Conf qw (LoadConf);
 use BotLib::Util qw (trim fmatch);
@@ -178,6 +178,48 @@ sub __on_msg {
 		return;
 	}
 
+	# Leaving event, say goodbye to member just left chat
+	if ($msg->can ('left_chat_member') && defined ($msg->left_chat_member)) {
+		unless (GoodbyeMsgEnabled ($chatid)) {
+			return;
+		}
+
+		my @goodbye = (
+			'Чат покинул(а) %s',
+			'Из чата вышел(ла) %s',
+			'До свидания, %s, приходите ещё',
+			'Покеда, %s',
+			'Удачи тебе, %s',
+			'Бывай, %s',
+		);
+
+		my $member = $msg->left_chat_member;
+		my $member_str = '';
+
+		# 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) && $member->last_name !~ /^\s+$/ui) {
+				$member_str .= ' ' . $member->last_name;
+			}
+		} else {
+			if ($member->can ('last_name') && defined ($member->last_name) && $member->last_name !~ /^\s+$/ui) {
+				$member_str .= ' ' . $member->last_name;
+			# 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;
+			}
+		}
+
+		my $leftuser = sprintf '[%s](tg://user?id=%s)', $member_str, $member->id;
+		$phrase = sprintf $goodbye[irand ($#goodbye + 1)], $leftuser;
+		$msg->replyMd ($phrase);
+		return;
+	}
 # is this a 1-on-1 ?
 	if ($msg->chat->type eq 'private') {
 		unless (defined $msg->text) {