sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updated to use ban()

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-02-15 22:58:36 -07:00
1 parent 7dbebdeca9
commit 04949f38bf
1 file changed
+3 -3
Download Patch File Download Diff File Expand all files Collapse all files
modules/Badwords.pm
+3 -3
View File
@@ -6,7 +6,7 @@ use strict;
use warnings; use warnings;
use feature qw(switch); use feature qw(switch);
use API::Std qw(hook_add hook_del conf_get err); use API::Std qw(hook_add hook_del conf_get err);
use API::IRC qw(privmsg notice kick cmode); use API::IRC qw(privmsg notice kick ban);
# Initialization subroutine. # Initialization subroutine.
sub _init sub _init
@@ -52,11 +52,11 @@ sub actonbadword
kick($src->{svr}, $chan, $src->{nick}, 'Foul language is prohibited here.'); kick($src->{svr}, $chan, $src->{nick}, 'Foul language is prohibited here.');
} }
when ('kickban') { when ('kickban') {
cmode($src->{svr}, $chan, '+b *!*@'.$src->{host}); ban($src->{svr}, $chan, 'b', $src);
kick($src->{svr}, $chan, $src->{nick}, 'Foul language is prohibited here.'); kick($src->{svr}, $chan, $src->{nick}, 'Foul language is prohibited here.');
} }
when ('quiet') { when ('quiet') {
cmode($src->{svr}, $chan, '+q *!*@'.$src->{host}); ban($src->{svr}, $chan, 'q', $src);
} }
default { default {
kick($src->{svr}, $chan, $src->{nick}, 'Foul language is prohibited here.'); kick($src->{svr}, $chan, $src->{nick}, 'Foul language is prohibited here.');