3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-19 10:29:30 +01:00
pbot/Plugins/MagicCommand.pm

34 lines
875 B
Perl
Raw Normal View History

2017-08-03 22:40:54 +02:00
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
# This module is intended to provide a "magic" command that allows
# the bot owner to trigger special arbitrary code (by editing this
# module and refreshing loaded modules before running the magical
# command).
package Plugins::MagicCommand;
2020-02-09 04:48:05 +01:00
use parent 'Plugins::Plugin';
2017-08-03 22:40:54 +02:00
2020-02-09 04:48:05 +01:00
use warnings; use strict;
2019-07-11 03:40:53 +02:00
use feature 'unicode_strings';
2017-08-03 22:40:54 +02:00
sub initialize {
2020-02-15 23:38:32 +01:00
my ($self, %conf) = @_;
$self->{pbot}->{commands}->register(sub { return $self->cmd_magic(@_) }, "mc", 90);
2017-08-03 22:40:54 +02:00
}
sub unload {
2020-02-15 23:38:32 +01:00
my $self = shift;
$self->{pbot}->{commands}->unregister("mc");
2017-08-03 22:40:54 +02:00
}
sub cmd_magic {
my ($self, $context) = @_;
2017-08-03 22:40:54 +02:00
2020-02-15 23:38:32 +01:00
# do something magical!
return "Did something magical.";
}
2017-08-03 22:40:54 +02:00
1;