2024-08-07 23:48:05 +02:00
# File: AntiHello.pm
#
# Purpose: Handles people that do stand-alone channel greetings without any
# other meaningful content.
# This plugin is opt-in only. Set #channel.nohello to 1 to enable.
# SPDX-FileCopyrightText: 2024 Pragmatic Software <pragma78@gmail.com>
# SPDX-License-Identifier: MIT
package PBot::Plugin::AntiHello ;
use parent 'PBot::Plugin::Base' ;
use PBot::Imports ;
sub initialize ($self, %conf) {
$ self - > { pbot } - > { registry } - > add_default ( 'text' , 'antihello' , 'bad_greetings' ,
2024-08-08 00:51:01 +02:00
$ conf { bad_greetings } // '^\s*(?:[[:punct:]]|\p{Emoticons})*\s*(?:h*e+l+l+o+|h+e+y+a+|y+o+|h*e+n+l+o+|l+o+|h+i+|g+o+d+\s*(d+a+y+|m+o+r+n+i+n+g*|e+v+e+n+i+n+g*|a+f+t+e+r+n+o+n+|n+o+n+)|w*a*s+u+p+|g+[[:punct:]]*d+a+y+|g+r+e+t+s*z*|g+r+e+t+i+n+g+s*|h*o+l+a+|o+i+|h*e+y+|h+a+y+|o*h+a+i+)\s*(?:\s+.{1,10})?\s*(?:[[:punct:]]|\p{Emoticons})*\s*$'
2024-08-07 23:48:05 +02:00
) ;
$ self - > { pbot } - > { registry } - > add_default ( 'text' , 'antihello' , 'kick_msg' , 'https://nohello.net/' ) ;
$ self - > { pbot } - > { event_dispatcher } - > register_handler ( 'irc.caction' , sub { $ self - > on_action ( @ _ ) } ) ;
$ self - > { pbot } - > { event_dispatcher } - > register_handler ( 'irc.public' , sub { $ self - > on_public ( @ _ ) } ) ;
$ self - > { offense_counter } = { } ;
$ self - > { last_warning } = 0 ;
}
sub unload ($self) {
$ self - > { pbot } - > { event_dispatcher } - > remove_handler ( 'irc.caction' ) ;
$ self - > { pbot } - > { event_dispatcher } - > remove_handler ( 'irc.public' ) ;
}
sub punish ($self, $msg, $channel, $nick, $user, $host) {
$ self - > { offense_counter } - > { $ channel } - > { $ nick } + + ;
$ self - > { pbot } - > { logger } - > log ( "[anti-hello] $nick!$user\@$host offense $self->{offense_counter}->{$channel}->{$nick}\n" ) ;
if ( $ self - > { offense_counter } - > { $ channel } - > { $ nick } == 1 ) {
# just do a private warning message for the first offense
my $ now = time ;
2024-08-08 00:51:01 +02:00
if ( $ now - $ self - > { last_warning } >= 60 * 5 ) {
2024-08-07 23:48:05 +02:00
$ self - > { last_warning } = $ now ;
$ self - > { pbot } - > { conn } - > privmsg ( $ channel , "Please do not send stand-alone channel greeting messages; include your question/statement along with the greeting. For more info, see https://nohello.net/ (repeated offenses will result in an automatic ban)" ) ;
}
return 0 ;
} elsif ( $ self - > { offense_counter } - > { $ channel } - > { $ nick } == 2 ) {
$ msg . = ' (WARNING: next offense will result in a temp-ban)' ;
} elsif ( $ self - > { offense_counter } - > { $ channel } - > { $ nick } > 2 ) {
$ msg . = ' (temp ban for repeated offenses)' ;
}
$ self - > { pbot } - > { chanops } - > add_op_command ( $ channel , "kick $channel $nick $msg" ) ;
$ self - > { pbot } - > { chanops } - > gain_ops ( $ channel ) ;
if ( $ self - > { offense_counter } - > { $ channel } - > { $ nick } > 2 ) {
my $ botnick = $ self - > { pbot } - > { conn } - > nick ;
$ self - > { pbot } - > { banlist } - > ban_user_timed ( $ channel , 'b' , "*!*\@$host" , 60 * 60 * 2 , $ botnick , 'anti-hello' ) ;
}
}
sub on_public ($self, $event_type, $event) {
my ( $ nick , $ user , $ host , $ msg ) = ( $ event - > nick , $ event - > user , $ event - > host , $ event - > args ) ;
my $ channel = $ event - > { to } [ 0 ] ;
return 0 if $ channel !~ /^#/ ;
return 0 if not $ self - > { pbot } - > { registry } - > get_value ( $ channel , 'nohello' ) ;
return 0 if not $ self - > { pbot } - > { chanops } - > can_gain_ops ( $ channel ) ;
my $ u = $ self - > { pbot } - > { users } - > loggedin ( $ channel , "$nick!$user\@$host" ) ;
return 0 if $ self - > { pbot } - > { capabilities } - > userhas ( $ u , 'is-whitelisted' ) ;
my $ bad_greetings = $ self - > { pbot } - > { registry } - > get_value ( 'antihello' , 'bad_greetings' ) ;
if ( $ msg =~ m/$bad_greetings/i ) {
my $ kick_msg = $ self - > { pbot } - > { registry } - > get_value ( 'antihello' , 'kick_msg' ) ;
$ self - > punish ( $ kick_msg , $ channel , $ nick , $ user , $ host ) ;
}
return 0 ;
}
sub on_action ($self, $event_type, $event) {
my ( $ nick , $ user , $ host , $ msg , $ channel ) = (
$ event - > nick ,
$ event - > user ,
$ event - > host ,
$ event - > { args } [ 0 ] ,
$ event - > { to } [ 0 ] ,
) ;
return 0 if $ channel !~ /^#/ ;
return 0 if not $ self - > { pbot } - > { registry } - > get_value ( $ channel , 'nohello' ) ;
return 0 if not $ self - > { pbot } - > { chanops } - > can_gain_ops ( $ channel ) ;
my $ u = $ self - > { pbot } - > { users } - > loggedin ( $ channel , "$nick!$user\@$host" ) ;
return 0 if $ self - > { pbot } - > { capabilities } - > userhas ( $ u , 'is-whitelisted' ) ;
my $ bad_actions = $ self - > { pbot } - > { registry } - > get_value ( 'antihello' , 'bad_greetings' ) ;
if ( $ msg =~ m/$bad_actions/i ) {
my $ kick_msg = $ self - > { pbot } - > { registry } - > get_value ( 'antihello' , 'kick_msg' ) ;
$ self - > punish ( $ kick_msg , $ channel , $ nick , $ user , $ host ) ;
}
return 0 ;
}
1 ;