First run with admin module: fix typos in ChatMember.pm, Brain.pm, admin.pm, botlib.pm

.perlcriticrc

@@ -89,3 +89,7 @@ lib_sections    = NAME | VERSION | DESCRIPTION | AUTHOR | LICENSE AND COPYRIGHT
 
 [-InputOutput::RequireBriefOpen]
 # Yes, i do!
+
+[-ControlStructures::ProhibitDeepNests]
+# Have to use it, so fuckoff
+

data/sample_config.json

@@ -1,6 +1,9 @@
 {
     "user" : "nobody",
     "debug_log" : "/var/log/aleesa-telegram-bot/debug.log",
+    "admin" : {
+        "dir" : "data/admin"
+    },
     "friday" : {
         "dir" : "data/friday",
         "src" : "data/friday.txt"

lib/Teapot/Bot/Brain.pm

@@ -254,6 +254,39 @@ sub forwardMessage {
   }
 }
 
+# TODO: Check that message is no older than 48 hrs
+sub deleteMessage {
+  my $self = shift;
+  my $args = shift || {};
+  my $send_args = {};
+
+  unless ($args->{chat_id}) {
+    cluck 'No chat_id supplied in deleteMessage()';
+    return {'error' => 1};
+  }
+
+  $send_args->{chat_id} = $args->{chat_id};
+
+  unless ($args->{message_id}) {
+    cluck 'No message_id supplied in deleteMessage()';
+    return {'error' => 1};
+  }
+
+  $send_args->{message_id} = $args->{message_id};
+
+  my $token = $self->token || croak 'No token supplied to deleteMessage()?';
+
+  if (Teapot::Bot::Object::ChatMember::canDeleteMessage($self, $args->{chat_id})) {
+    my $url = "https://api.telegram.org/bot${token}/deleteMessage";
+    $self->_post_request($url, $send_args);
+  }
+  else {
+    return {'error' => 1};
+  }
+
+  return;
+}
+
 
 sub sendPhoto {
   my $self = shift;
@@ -571,6 +604,14 @@ Returns a L<Teapot::Bot::Object::Message> object.
 
 On error returns hash reference with error set to 1
 
+=head2 deleteMessage
+
+See L<https://core.telegram.org/bots/api#deletemessage>.
+
+Returns a L<Teapot::Bot::Object::Message> object.
+
+On error returns hash reference with error set to 1
+
 =head2 sendPhoto
 
 See L<https://core.telegram.org/bots/api#sendphoto>.

lib/Teapot/Bot/Object/ChatMember.pm

@@ -3,6 +3,7 @@ package Teapot::Bot::Object::ChatMember;
 
 use Mojo::Base 'Teapot::Bot::Object::Base';
 use Teapot::Bot::Object::User;
+use Carp qw(cluck);
 
 $Teapot::Bot::Object::ChatMember::VERSION = '0.022';
 
@@ -38,6 +39,59 @@ sub fields {
         };
 }
 
+
+sub canDeleteMessage {
+  my $self = shift;
+  my $chatid = shift;
+
+  my $can_delete = 0;
+
+  if ($chatid < 0) {
+    # group chat
+    my $chatobj = $self->getChat ({ 'chat_id' => $chatid });
+
+    # on api error, keep silence
+    unless ($chatobj) {
+      cluck "Unable to get chat info for $chatid from telegram API";
+      return 0;
+    }
+
+    my $myObj = $self->getMe ();
+
+    # on api error, keep silence
+    unless ($chatobj) {
+      cluck "Unable to get chat info for $chatid from telegram API";
+      return 0;
+    }
+
+    my $myid = $myObj->id;
+    my $me = $self->getChatMember ({ 'chat_id' => $chatid, 'user_id' => $myid });
+
+    # on api error, keep silence
+    unless ($me) {
+      cluck 'Unable to get chat info for bot itself from telegram API';
+      return 0;
+    }
+
+    # bot can delete msg if it is group and it is admin there.
+    if ($chatobj->{'type'} eq 'group') {
+      if ($me->{'status'} eq 'administrator') {
+        $can_delete = 1;
+      }
+    # in supergroup bot must be granted with can_delete_messages
+    } elsif (($chatobj->{'type'} eq 'supergroup') || ($chatobj->{'type'} eq 'channel')) {
+      if ($me->{'can_delete_messages'}) {
+        $can_delete = 1;
+      }
+    }
+  } else {
+    # 1 on 1 chat with user
+    $can_delete = 1;
+  }
+
+  return $can_delete;
+}
+
 1;
 
 __END__
@@ -60,6 +114,14 @@ The base class for Telegram 'ChatMember' type objects.
 See L<https://core.telegram.org/bots/api#chatmember> for details of the
 attributes available for L<Teapot::Bot::Object::ChatMember> objects.
 
+=head1 METHODS
+
+=head2 canDeleteMessage
+
+A convenience method to check if bot can delete message in given conversation.
+
+Returns true if the bot can delete the message in given conversation, otherwise false.
+
 =head1 AUTHOR
 
 Sergei Fedosov <eleksir@gmail.com>

lib/Teapot/Bot/Object/ChatPermissions.pm

@@ -97,6 +97,14 @@ The base class for Telegram 'ChatPermissions' type objects.
 See L<https://core.telegram.org/bots/api#chatpermissions> for details of the
 attributes available for L<Teapot::Bot::Object::ChatPermissions> objects.
 
+=head1 METHODS
+
+=head2 canTalk
+
+A convenience method to check if bot can talk in given conversation.
+
+Returns true if the bot can talk in given conversation, otherwise false.
+
 =head1 AUTHOR
 
 Sergei Fedosov <eleksir@gmail.com>

lib/admin.pm

@@ -0,0 +1,282 @@
+package admin;
+
+use 5.018;
+use strict;
+use warnings;
+use utf8;
+use open qw (:std :utf8);
+use English qw ( -no_match_vars );
+use Carp qw (cluck croak);
+use File::Path qw (make_path);
+use SQLite_File;
+use conf qw (loadConf);
+use util qw (utf2sha1);
+
+use version; our $VERSION = qw (1.0);
+use Exporter qw (import);
+# to export array we need @ISA here
+our @ISA    = qw / Exporter /; ## no critic (ClassHierarchies::ProhibitExplicitISA)
+our @EXPORT_OK = qw (@forbiddenMessageTypes getForbiddenTypes addForbiddenType delForbiddenType listForbidden fortune_toggle fortune_toggle_list fortune_status);
+
+my $c = loadConf ();
+my $dir = $c->{admin}->{dir};
+our @forbiddenMessageTypes = qw (audio voice photo video video_note animation sticker dice game poll document); ## no critic (Variables::ProhibitPackageVars)
+
+sub initCensorDB {
+	my $backingfile = shift;
+
+	tie my %censor, 'SQLite_File', $backingfile  ||  cluck "Unable to tie to $backingfile: $OS_ERROR";
+
+	foreach (@forbiddenMessageTypes) {
+		$censor{$_} = 0;
+	}
+
+	untie %censor;
+
+	return;
+}
+
+sub getForbiddenTypes {
+	my $chatid = shift;
+
+	unless (-d $dir) {
+		unless (make_path $dir) {
+			cluck "Unable to create $dir: $OS_ERROR";
+			return;
+		}
+	}
+
+	my $messageTypes;
+	my $backingfile = utf2sha1 $chatid;
+	$backingfile =~ s/\//-/xmsg;
+	$backingfile = sprintf '%s/censor_%s.db', $dir, $backingfile;
+	my %censor;
+
+	unless (-f $backingfile) {
+		initCensorDB ($backingfile);
+	}
+
+	unless (tie %censor, 'SQLite_File', $backingfile) {
+		cluck "Unable to tie to $backingfile: $OS_ERROR";
+		return $messageTypes;
+	}
+
+	foreach (keys %censor) {
+		if ($censor{$_}) {
+			$messageTypes->{$_} = 1;
+		} else {
+			$messageTypes->{$_} = 0;
+		}
+	}
+
+	untie %censor;
+	return $messageTypes;
+}
+
+sub addForbiddenType {
+	my $chatid = shift;
+	my $type = shift;
+
+	unless (-d $dir) {
+		unless (make_path $dir) {
+			cluck "Unable to create $dir: $OS_ERROR";
+			return;
+		}
+	}
+
+	my $backingfile = utf2sha1 $chatid;
+	$backingfile =~ s/\//-/xmsg;
+	$backingfile = sprintf '%s/censor_%s.db', $dir, $backingfile;
+
+	unless (-f $backingfile) {
+		initCensorDB ($backingfile);
+	}
+
+	my %censor;
+
+	unless (tie %censor, 'SQLite_File', $backingfile) {
+		cluck "Unable to tie to $backingfile: $OS_ERROR";
+		return;
+	}
+
+	$censor{$type} = 1;
+	untie %censor;
+
+	return;
+}
+
+sub delForbiddenType {
+	my $chatid = shift;
+	my $type = shift;
+
+	unless (-d $dir) {
+		unless (make_path $dir) {
+			cluck "Unable to create $dir: $OS_ERROR";
+			return;
+		}
+	}
+
+	my $backingfile = utf2sha1 $chatid;
+	$backingfile =~ s/\//-/xmsg;
+	$backingfile = sprintf '%s/censor_%s.db', $dir, $backingfile;
+
+	unless (-f $backingfile) {
+		initCensorDB ($backingfile);
+		return;
+	}
+
+	my %censor;
+
+	unless (tie %censor, 'SQLite_File', $backingfile) {
+		cluck "Unable to tie to $backingfile: $OS_ERROR";
+		return;
+	}
+
+	$censor{$type} = 0;
+	untie %censor;
+
+	return;
+}
+
+sub listForbidden {
+	my $chatid = shift;
+
+	unless (-d $dir) {
+		unless (make_path $dir) {
+			cluck "Unable to create $dir: $OS_ERROR";
+			return;
+		}
+	}
+
+	my @list;
+	my $backingfile = utf2sha1 $chatid;
+	$backingfile =~ s/\//-/xmsg;
+	$backingfile = sprintf '%s/censor_%s.db', $dir, $backingfile;
+
+	unless (-f $backingfile) {
+		initCensorDB ($backingfile);
+	}
+
+	my %censor;
+
+	# FIXME: return list with all types alowed
+	unless (tie %censor, 'SQLite_File', $backingfile) {
+		cluck "Unable to tie to $backingfile: $OS_ERROR";
+		return '';
+	}
+
+	foreach (keys %censor) {
+		if ($censor{$_}) {
+			push @list, sprintf 'Тип сообщения %s удаляется', $_;
+		} else {
+			push @list, sprintf 'Тип сообщения %s не удаляется', $_;
+		}
+	}
+
+	untie %censor;
+
+	return join "\n", @list;
+}
+
+sub fortune_toggle (@) {
+	my $chatid = shift;
+	my $action = shift // undef;
+	my $phrase = 'Фортунка с утра ';
+
+	unless (-d $dir) {
+		make_path ($dir)  ||  do {
+			cluck "[ERROR] Unable to create $dir: $OS_ERROR";
+			return;
+		};
+	}
+
+	my $backingfile = sprintf '%s/chats.sqlite', $dir;
+
+	tie my %toggle, 'SQLite_File', $backingfile  ||  do {
+		cluck "[ERROR] Unable to tie to $backingfile: $OS_ERROR";
+		return;
+	};
+
+	my $state = $toggle{$chatid};
+
+	if (defined $action) {
+		if ($action) {
+			$toggle{$chatid} = 1;
+			$phrase .= 'будет показываться.';
+		} else {
+			if (defined $state) {
+				delete $toggle{$chatid};
+			}
+
+			$phrase .= 'не будет показываться.';
+		}
+	} else {
+		if (defined $state && $state) {
+			delete $toggle{$chatid};
+			$phrase .= 'не будет показываться.';
+		} else {
+			$toggle{$chatid} = 1;
+			$phrase .= 'будет показываться.';
+		}
+	}
+
+	untie %toggle;
+	return $phrase;
+}
+
+sub fortune_status ($) {
+	my $chatid = shift;
+	my $phrase = 'Фортунка с утра ';
+
+	unless (-d $dir) {
+		make_path ($dir)  ||  do {
+			cluck "[ERROR] Unable to create $dir: $OS_ERROR";
+			return;
+		};
+	}
+
+	my $backingfile = sprintf '%s/chats.sqlite', $dir;
+
+	tie my %toggle, 'SQLite_File', $backingfile  ||  do {
+		cluck "[ERROR] Unable to tie to $backingfile: $OS_ERROR\n";
+		return;
+	};
+
+	my $state = $toggle{$chatid};
+
+	if (defined $state && $state) {
+		$phrase .= 'показывается.';
+	} else {
+		$phrase .= 'не показывается.';
+	}
+
+	untie %toggle;
+	return $phrase;
+}
+
+sub fortune_toggle_list () {
+	unless (-d $dir) {
+		make_path ($dir)  ||  do {
+			cluck "[ERROR] Unable to create $dir: $OS_ERROR";
+			my @empty = ();
+			return @empty;
+		}
+	}
+
+	my $backingfile = sprintf '%s/chats.sqlite', $dir;
+
+	tie my %toggle, 'SQLite_File', $backingfile  ||  do {
+		cluck "[ERROR] Unable to tie to $backingfile: $OS_ERROR";
+		my @empty = ();
+		return @empty;
+	};
+
+	my @list = keys %toggle;
+	untie %toggle;
+	return @list;
+}
+
+
+1;
+
+# vim: set ft=perl noet ai ts=4 sw=4 sts=4:

lib/botlib.pm

@@ -11,9 +11,10 @@ use Carp qw (carp);
 use Math::Random::Secure qw (irand);
 
 use conf qw (loadConf);
+use admin qw (@forbiddenMessageTypes getForbiddenTypes addForbiddenType delForbiddenType listForbidden fortune_toggle fortune_status);
 use archeologist qw (dig);
 use fisher qw (fish);
-use fortune qw (fortune fortune_toggle fortune_status);
+use fortune qw (fortune);
 use friday qw (friday);
 use karma qw (karmaSet karmaGet);
 use kitty qw (kitty);
@@ -23,7 +24,7 @@ use weather qw (weather);
 
 use version; our $VERSION = qw (1.0);
 use Exporter qw (import);
-our @EXPORT_OK = qw (randomCommonPhrase command highlight botsleep);
+our @EXPORT_OK = qw (randomCommonPhrase command highlight botsleep isCensored);
 
 my $c = loadConf ();
 my $csign = $c->{telegrambot}->{csign};
@@ -52,7 +53,7 @@ sub command {
 	my $text = shift;
 	my $chatid = shift;
 	my $reply;
-	my ($userid, $username, $fullname, $highlight, $visavi) = highlight $msg;
+	my ($userid, $username, $fullname, $highlight, $visavi) = highlight ($msg);
 
 	if (substr ($text, 1) eq 'ping') {
 		$reply = 'Pong.';
@@ -93,12 +94,6 @@ sub command {
 		$reply = sprintf "```\n%s\n```\n", trim (fortune ());
 		$msg->replyMd ($reply);
 		return;
-	} elsif (substr ($text, 1) eq 'f 1'  ||  substr ($text, 1) eq 'fortune 1'  ||  substr ($text, 1) eq 'фортунка 1'  ||  substr ($text, 1) eq 'ф 1') {
-		$reply = fortune_toggle ($chatid, 1);
-	} elsif (substr ($text, 1) eq 'f 0'  ||  substr ($text, 1) eq 'fortune 0'  ||  substr ($text, 1) eq 'фортунка 0'  ||  substr ($text, 1) eq 'ф 0') {
-		$reply = fortune_toggle ($chatid, 0);
-	} elsif (substr ($text, 1) eq 'f ?'  ||  substr ($text, 1) eq 'fortune ?'  ||  substr ($text, 1) eq 'фортунка ?'  ||  substr ($text, 1) eq 'ф ?') {
-		$reply = fortune_status ($chatid);
 	} elsif (substr ($text, 1) eq 'dig' || substr ($text, 1) eq 'копать') {
 		$reply = dig $highlight;
 		$msg->typing ();
@@ -121,10 +116,6 @@ ${csign}fish | ${csign}рыба | ${csign}рыбка      - порыбачить
 ${csign}fishing | ${csign}рыбалка         - порыбачить
 ${csign}f | ${csign}ф                     - рандомная фраза из сборника цитат fortune_mod
 ${csign}fortune | ${csign}фортунка        - рандомная фраза из сборника цитат fortune_mod
-${csign}f # | ${csign}ф #                 - где 1 - вкл, 0 - выкл фортунку с утра
-${csign}fortune # | ${csign}фортунка #    - где 1 - вкл, 0 - выкл фортунку с утра
-${csign}f ? | ${csign}ф ?                 - показываем ли с утра фортунку для чата
-${csign}fortune ? | ${csign}фортунка ?    - показываем ли с утра фортунку для чата
 ${csign}friday | ${csign}пятница          - а не пятница ли сегодня?
 ${csign}lat | ${csign}лат                 - сгенерить фразу из крылатых латинских выражений
 ${csign}ping | ${csign}пинг               - попинговать бота
@@ -138,6 +129,72 @@ ${csign}karma фраза | ${csign}карма фраза - посмотреть
 MYHELP
 		$msg->replyMd ($reply);
 		return;
+	} elsif (substr ($text, 1) eq 'admin'  ||  substr ($text, 1) eq 'админ') {
+		my $member = $self->getChatMember ({ 'chat_id' => $msg->chat->id, 'user_id' => $msg->from->id });
+
+		# this msg should be shown only if admins of chat request it
+		if (($member->status eq 'administrator') || ($member->status eq 'creator')) {
+			$reply = << "MYADMIN";
+```
+${csign}admin censor type # - где 1 - вкл, 0 - выкл цензуры для означенного типа сообщений
+${csign}админ ценз тип #    - где 1 - вкл, 0 - выкл цензуры для означенного типа сообщений
+${csign}admin censor        - показать список состояния типов сообщений
+${csign}админ ценз          - показать список состояния типов сообщений
+${csign}admin fortune #     - где 1 - вкл, 0 - выкл фортунку с утра
+${csign}admin фортунка #    - где 1 - вкл, 0 - выкл фортунку с утра
+${csign}admin fortune       - показываем ли с утра фортунку для чата
+${csign}admin фортунка      - показываем ли с утра фортунку для чата
+```
+Типы сообщений:
+audio voice photo video animation sticker dice game poll document
+MYADMIN
+
+			$msg->replyMd ($reply);
+		}
+
+		return;
+	} elsif ((substr ($text, 1, 5) eq 'admin'  ||  substr ($text, 1, 5) eq 'админ') && (length ($text) >= 8)) {
+		my $member = $self->getChatMember ({ 'chat_id' => $msg->chat->id, 'user_id' => $msg->from->id });
+
+		# this msg should be shown only if admins of chat request it
+		if (($member->status eq 'administrator') || ($member->status eq 'creator')) {
+			my $command = trim (substr $text, 7);
+			my ($cmd, $args) = split /\s+/, $command, 2;
+
+			if ($cmd eq '') {
+				return;
+			} elsif ($cmd eq 'censor' || $cmd eq 'ценз') {
+				if (defined ($args) && ($args ne '')) {
+					my ($msgType, $toggle) = split /\s/, $args, 2;
+
+					if (defined $toggle) {
+						foreach (@forbiddenMessageTypes) {
+							if ($msgType eq $_) {
+								if ($toggle == 1) {
+									addForbiddenType ($chatid, $msgType);
+									$reply = "Теперь сообщения с $msgType будут автоматически удаляться";
+								} elsif ($toggle == 0) {
+									delForbiddenType ($chatid, $msgType);
+									$reply = "Теперь сообщения с $msgType будут оставаться";
+								}
+							}
+						}
+					}
+				} else {
+					$reply = listForbidden ($chatid);
+				}
+			} elsif ($cmd eq 'fortune' || $cmd eq 'фортунка') {
+				if (defined $args) {
+					if ($args == 1) {
+						$reply = fortune_toggle ($chatid, 1);
+					} elsif ($args == 0) {
+						$reply = fortune_toggle ($chatid, 0);
+					}
+				} else {
+					$reply = fortune_status ($chatid);
+				}
+			}
+		}
 	}
 
 	return $reply;
@@ -201,6 +258,20 @@ sub botsleep {
 	return;
 }
 
+sub isCensored {
+	my $msg = shift;
+
+	my $forbidden = getForbiddenTypes ($msg->chat->id);
+
+	foreach (keys %{$forbidden}) {
+		if ($forbidden->{$_} && $msg->can ($_) && (defined $msg->{$_})) {
+			return 1;
+		}
+	}
+
+	return 0;
+}
+
 1;
 
 # vim: set ft=perl noet ai ts=4 sw=4 sts=4:

lib/fortune.pm

@@ -15,7 +15,7 @@ use conf qw (loadConf);
 
 use version; our $VERSION = qw (1.0);
 use Exporter qw (import);
-our @EXPORT_OK = qw (seed fortune fortune_toggle fortune_toggle_list fortune_status);
+our @EXPORT_OK = qw (seed fortune);
 
 my $c = loadConf ();
 my $dir = $c->{fortune}->{dir};
@@ -80,104 +80,6 @@ sub fortune () {
 	return $phrase;
 }
 
-sub fortune_toggle (@) {
-	my $chatid = shift;
-	my $action = shift // undef;
-	my $phrase = 'Фортунка с утра ';
-
-	unless (-d $dir) {
-		make_path ($dir)  ||  do {
-			cluck "[ERROR] Unable to create $dir: $OS_ERROR";
-			return;
-		};
-	}
-
-	my $backingfile = sprintf '%s/chats.sqlite', $dir;
-
-	tie my %toggle, 'SQLite_File', $backingfile  ||  do {
-		cluck "[ERROR] Unable to tie to $backingfile: $OS_ERROR";
-		return;
-	};
-
-	my $state = $toggle{$chatid};
-
-	if (defined $action) {
-		if ($action) {
-			$toggle{$chatid} = 1;
-			$phrase .= 'будет показываться.';
-		} else {
-			if (defined $state) {
-				delete $toggle{$chatid};
-			}
-
-			$phrase .= 'не будет показываться.';
-		}
-	} else {
-		if (defined $state && $state) {
-			delete $toggle{$chatid};
-			$phrase .= 'не будет показываться.';
-		} else {
-			$toggle{$chatid} = 1;
-			$phrase .= 'будет показываться.';
-		}
-	}
-
-	untie %toggle;
-	return $phrase;
-}
-
-sub fortune_status ($) {
-	my $chatid = shift;
-	my $phrase = 'Фортунка с утра ';
-
-	unless (-d $dir) {
-		make_path ($dir)  ||  do {
-			cluck "[ERROR] Unable to create $dir: $OS_ERROR";
-			return;
-		};
-	}
-
-	my $backingfile = sprintf '%s/chats.sqlite', $dir;
-
-	tie my %toggle, 'SQLite_File', $backingfile  ||  do {
-		cluck "[ERROR] Unable to tie to $backingfile: $OS_ERROR\n";
-		return;
-	};
-
-	my $state = $toggle{$chatid};
-
-	if (defined $state && $state) {
-		$phrase .= 'показывается.';
-	} else {
-		$phrase .= 'не показывается.';
-	}
-
-	untie %toggle;
-	return $phrase;
-}
-
-sub fortune_toggle_list () {
-	unless (-d $dir) {
-		make_path ($dir)  ||  do {
-			cluck "[ERROR] Unable to create $dir: $OS_ERROR";
-			my @empty = ();
-			return @empty;
-		}
-	}
-
-	my $backingfile = sprintf '%s/chats.sqlite', $dir;
-
-	tie my %toggle, 'SQLite_File', $backingfile  ||  do {
-		cluck "[ERROR] Unable to tie to $backingfile: $OS_ERROR";
-		my @empty = ();
-		return @empty;
-	};
-
-	my @list = keys %toggle;
-	untie %toggle;
-	return @list;
-}
-
 1;
 
 # vim: ft=perl noet ai ts=4 sw=4 sts=4:

lib/telegrambot.pm

@@ -13,9 +13,10 @@ use File::Path qw (make_path);
 use Hailo;
 use Math::Random::Secure qw (irand);
 use Mojo::Base 'Teapot::Bot::Brain';
-use botlib qw (randomCommonPhrase command highlight botsleep);
+use admin qw (fortune_toggle_list);
+use botlib qw (randomCommonPhrase command highlight botsleep isCensored);
 use conf qw (loadConf);
-use fortune qw (fortune fortune_toggle_list);
+use fortune qw (fortune);
 use karma qw (karmaSet);
 use util qw (trim fmatch);
 
@@ -51,7 +52,7 @@ sub __cron {
 			$send_args->{text} = sprintf "%s\n```\n%s\n```\n", $intro[irand ($#intro + 1)], trim (fortune ());
 			$send_args->{chat_id} = $enabledfortunechat;
 			$send_args->{parse_mode} = 'Markdown';
-			Teapot::Bot::Brain::sendMessage ($self, $send_args);
+			$self->sendMessage ($send_args);
 		}
 	}
 
@@ -68,7 +69,7 @@ sub __on_msg {
 	my $csign = $c->{telegrambot}->{csign};
 
 	unless ($myid) {
-		my $myObj = Teapot::Bot::Brain::getMe ($self);
+		my $myObj = $self->getMe ();
 
 		unless ($myObj) {
 			carp '[ERROR] Unable to get chatid, API Error?';
@@ -212,13 +213,18 @@ sub __on_msg {
 		if (defined $reply) {
 			$msg->typing ();
 			sleep 1;
-			carp sprintf ("[DEBUG] Private chat bot reply to $vis_a_vi: %s", $reply) if $c->{debug};
+			carp sprintf ('[DEBUG] Private chat bot reply to %s: %s', $vis_a_vi, $reply) if $c->{debug};
 			$msg->reply ($reply);
 		}
 # group chat
 	} elsif (($msg->chat->type eq 'supergroup') or ($msg->chat->type eq 'group')) {
 		my $reply;
 
+		if (isCensored $msg) {
+			carp sprintf '[INFO] In public chat %s (%s) message from %s was censored', $chatname, $chatid, $vis_a_vi;
+			$self->deleteMessage ({chat_id => $chatid, message_id => $msg->{message_id}});
+		}
+
 		# detect and log messages without text, noop here
 		unless (defined $msg->text) {
 			carp sprintf ('[INFO] No text in message from %s', $vis_a_vi);