aboutsummaryrefslogtreecommitdiff
path: root/Plugin/Admin.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Plugin/Admin.pm')
-rw-r--r--Plugin/Admin.pm25
1 files changed, 25 insertions, 0 deletions
diff --git a/Plugin/Admin.pm b/Plugin/Admin.pm
index ff8b646..404dbf4 100644
--- a/Plugin/Admin.pm
+++ b/Plugin/Admin.pm
@@ -34,6 +34,9 @@ sub configure {
$cmdref->($self, "ignore", sub { $self->ignore(@_); } );
$cmdref->($self, "don't ignore", sub { $self->do_not_ignore(@_); } );
$cmdref->($self, "who are you ignoring?", sub { $self->dump_ignore(@_); } );
+ $cmdref->($self, "prefix rm", sub { $self->prefix_rm(@_); } );
+ $cmdref->($self, "prefix del", sub { $self->prefix_rm(@_); } );
+ $cmdref->($self, "prefix set", sub { $self->prefix_set(@_); } );
$cmdref->($self, "exit", sub { $self->exit(@_); } );
@@ -41,6 +44,7 @@ sub configure {
$cmdref->($self, "load", sub { $self->load_plugin(@_); } );
$cmdref->($self, "unload", sub { $self->unload_plugin(@_); } );
+
return $self;
}
@@ -221,6 +225,27 @@ sub dump_ignore {
return "I am ignoring: " . join ", ", @{$root_config->{ignore}};
}
+sub prefix_rm {
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+
+ return "Syntax: prefix rm" unless @arguments == 0;
+
+ my $old = $root_config->{prefix};
+ $root_config->{prefix} = undef;
+
+ return "Prefix removed (used to be $old)" if $old;
+ return "Prefix was already removed";
+}
+
+sub prefix_set {
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;
+
+ return "Syntax: prefix set <new prefix>" unless @arguments > 0;
+
+ $root_config->{prefix} = $rest;
+ return "Prefix set to $root_config->{prefix}";
+}
+
sub exit {
my ($self, $irc, $logger, $who, $where, $ided, $rest, @arguments) = @_;