From ace8734c27d5c8331cc6cd29b4e10671612be693 Mon Sep 17 00:00:00 2001
From: David Phillips <david@yeah.nah.nz>
Date: Wed, 24 Oct 2018 19:33:18 +1300
Subject: Admin: Add runtime prefix changing

---
 Plugin/Admin.pm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

(limited to 'Plugin/Admin.pm')

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) = @_;
 
-- 
cgit v1.1