aboutsummaryrefslogtreecommitdiff
path: root/Plugin/Admin.pm
diff options
context:
space:
mode:
authorDavid Phillips <david@yeah.nah.nz>2019-01-05 18:16:51 +1300
committerDavid Phillips <david@yeah.nah.nz>2019-01-05 18:16:51 +1300
commit08eeb8b97e96c261b52e55a5426893bc107daccf (patch)
treec9ef1ce09e9740d95d408aee6f1cb5667cfd476f /Plugin/Admin.pm
parent42489797458338ec2a7c273c3068f7c9d9ee9ece (diff)
downloadidalius-08eeb8b97e96c261b52e55a5426893bc107daccf.tar.xz
Implement no-reentry request on modules
This fixes duplicate URL titles from a `title of` command, and will likely find use in future.
Diffstat (limited to 'Plugin/Admin.pm')
-rw-r--r--Plugin/Admin.pm36
1 files changed, 18 insertions, 18 deletions
diff --git a/Plugin/Admin.pm b/Plugin/Admin.pm
index a4847bc..a5217f7 100644
--- a/Plugin/Admin.pm
+++ b/Plugin/Admin.pm
@@ -66,7 +66,7 @@ sub is_admin {
}
sub nick {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return unless is_admin($logger, $who, $ided);
return "Syntax: nick <new nick>" unless @arguments == 1;
@@ -75,7 +75,7 @@ sub nick {
}
sub say {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return unless is_admin($logger, $who, $ided);
return "Syntax: say <channel> <msg>" unless @arguments >= 2;
@@ -87,7 +87,7 @@ sub say {
}
sub do_action {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return unless is_admin($logger, $who, $ided);
return "Syntax: action <channel> <action text>" unless @arguments >= 2;
@@ -99,7 +99,7 @@ sub do_action {
}
sub join_channel {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return unless is_admin($logger, $who, $ided);
return "Syntax: join <channel1> [channel2 ...]" unless @arguments >= 1;
@@ -108,7 +108,7 @@ sub join_channel {
}
sub part {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
$where = $where->[0] if ref($where) eq "ARRAY";
@@ -129,7 +129,7 @@ sub part {
}
sub mode {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
$where = $where->[0] if ref($where) eq "ARRAY";
@@ -144,7 +144,7 @@ sub mode {
}
sub kick {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
$where = $where->[0] if ref($where) eq "ARRAY";
@@ -166,7 +166,7 @@ sub kick {
}
sub topic {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return unless is_admin($logger, $who, $ided);
return "Syntax: topic <new topic>" unless @arguments >= 2;
@@ -179,7 +179,7 @@ sub topic {
}
sub reconnect {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return unless is_admin($logger, $who, $ided);
@@ -190,7 +190,7 @@ sub reconnect {
}
sub ignore {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return unless is_admin($logger, $who, $ided);
return "Syntax: ignore <nick>" unless @arguments == 1;
@@ -201,7 +201,7 @@ sub ignore {
}
sub do_not_ignore {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return unless is_admin($logger, $who, $ided);
return "Syntax: don't ignore <nick>" unless @arguments == 1;
@@ -217,7 +217,7 @@ sub do_not_ignore {
}
sub dump_ignore {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return "Syntax: who are you ignoring?" unless @arguments == 0;
@@ -226,7 +226,7 @@ sub dump_ignore {
}
sub prefix_rm {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return unless is_admin($logger, $who, $ided);
@@ -240,7 +240,7 @@ sub prefix_rm {
}
sub prefix_set {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return unless is_admin($logger, $who, $ided);
@@ -251,7 +251,7 @@ sub prefix_set {
}
sub exit {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return unless is_admin($logger, $who, $ided);
return "Syntax: exit" unless @arguments == 0;
@@ -260,12 +260,12 @@ sub exit {
}
sub dump_plugins {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return "Active plugins: " . join ", ", @{$root_config->{active_plugins}};
}
sub unload_plugin {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return unless is_admin($logger, $who, $ided);
return "Syntax: unload <plugin>" unless @arguments == 1;
@@ -278,7 +278,7 @@ sub unload_plugin {
}
sub load_plugin {
- my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return unless is_admin($logger, $who, $ided);
return "Syntax: load <plugin>" unless @arguments == 1;