aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Plugin/Admin.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/Plugin/Admin.pm b/Plugin/Admin.pm
index 437cf07..ceaa984 100644
--- a/Plugin/Admin.pm
+++ b/Plugin/Admin.pm
@@ -25,6 +25,7 @@ sub configure {
$cmdref->("ignore", sub { $self->ignore(@_); } );
$cmdref->("don't ignore", sub { $self->do_not_ignore(@_); } );
$cmdref->("who are you ignoring?", sub { $self->dump_ignore(@_); } );
+ $cmdref->("exit", sub { $self->exit(@_); } );
return $self;
}
@@ -177,5 +178,12 @@ sub dump_ignore {
return "I am ignoring: " . join ", ", @{$config{ignore}};
}
+sub exit {
+ my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_;
+
+ return "Syntax: exit" unless @arguments == 0;
+
+ exit;
+}
1;