aleesa-bot/aleesa-telegram
0
Fork 0
Code Pull Requests Projects Releases Activity

5/5 Fix formatting in TelegramBot.pm

Browse Source
This commit is contained in:
eleksir
2023-01-02 19:21:19 +03:00
parent e8765c0e88
commit 5a5e4b5ead
1 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
lib/TelegramBot.pm
View File

@@ -5,21 +5,21 @@ use 5.018; ## no critic (ProhibitImplicitImport)
use strict; use strict;
use warnings; use warnings;
use utf8; use utf8;
use open qw (:std :utf8); use open qw (:std :utf8);
use English qw ( -no_match_vars ); use English qw ( -no_match_vars );
use Clone qw (clone); use Clone qw (clone);
use Data::Dumper qw (Dumper); use Data::Dumper qw (Dumper);
use Log::Any qw ($log); use Log::Any qw ($log);
use Math::Random::Secure qw (irand); use Math::Random::Secure qw (irand);
use Mojo::Base 'Teapot::Bot::Brain'; use Mojo::Base 'Teapot::Bot::Brain';
use BotLib::Admin qw (FortuneToggleList ChanMsgEnabled GreetMsgEnabled GoodbyeMsgEnabled MigrateSettingsToNewChatID use BotLib::Admin qw (FortuneToggleList ChanMsgEnabled GreetMsgEnabled GoodbyeMsgEnabled
IsCensored); MigrateSettingsToNewChatID IsCensored);
use BotLib qw (Command); use BotLib qw (Command);
use BotLib::Conf qw (LoadConf); use BotLib::Conf qw (LoadConf);
use BotLib::Util qw (trim fmatch BotSleep Highlight RandomCommonPhrase); use BotLib::Util qw (trim fmatch BotSleep Highlight RandomCommonPhrase);
use RedisLib qw (redis_events_listener); use RedisLib qw (redis_events_listener);
use version; our $VERSION = qw (1.0); use version; our $VERSION = qw (1.0);
use Exporter qw (import); use Exporter qw (import);
@@ -316,7 +316,7 @@ sub __on_msg {
# Некоторые рекламные товарищи пытаются срать своими каналами в чятик это тоже можно зацензурить ботом и это # Некоторые рекламные товарищи пытаются срать своими каналами в чятик это тоже можно зацензурить ботом и это
# пидорство он будет удалять asap # пидорство он будет удалять asap
# 136817688 - это специальный id пользователя, который принимает облик канала, на него можно нажать и попасть # 136817688 - это специальный id пользователя, который принимает облик канала, на него можно нажать и попасть
# на рекламируемый канал # на рекламируемый канал
if ($msg->from->id == 136817688) { if ($msg->from->id == 136817688) {
my $sender_chat = eval { $msg->sender_chat->id }; my $sender_chat = eval { $msg->sender_chat->id };