mirror of
https://github.com/pragma-/pbot.git
synced 2024-11-20 10:59:29 +01:00
80 lines
2.0 KiB
Perl
80 lines
2.0 KiB
Perl
# File: Plugins.pm
|
|
#
|
|
# Purpose: Registers commands for loading and unloading plugins.
|
|
|
|
# SPDX-FileCopyrightText: 2021 Pragmatic Software <pragma78@gmail.com>
|
|
# SPDX-License-Identifier: MIT
|
|
|
|
package PBot::Core::Commands::Plugins;
|
|
|
|
use PBot::Imports;
|
|
use parent 'PBot::Core::Class';
|
|
|
|
use File::Basename;
|
|
|
|
sub initialize {
|
|
my ($self, %conf) = @_;
|
|
|
|
# plugin management bot commands
|
|
$self->{pbot}->{commands}->register(sub { $self->cmd_plug(@_) }, "plug", 1);
|
|
$self->{pbot}->{commands}->register(sub { $self->cmd_unplug(@_) }, "unplug", 1);
|
|
$self->{pbot}->{commands}->register(sub { $self->cmd_replug(@_) }, "replug", 1);
|
|
$self->{pbot}->{commands}->register(sub { $self->cmd_pluglist(@_) }, "pluglist", 0);
|
|
}
|
|
|
|
sub cmd_plug {
|
|
my ($self, $context) = @_;
|
|
|
|
my $plugin = $context->{arguments};
|
|
|
|
if (not length $plugin) { return "Usage: plug <plugin>"; }
|
|
|
|
if ($self->{pbot}->{plugins}->load($plugin)) {
|
|
return "Loaded $plugin plugin.";
|
|
} else {
|
|
return "Plugin $plugin failed to load.";
|
|
}
|
|
}
|
|
|
|
sub cmd_unplug {
|
|
my ($self, $context) = @_;
|
|
|
|
my $plugin = $context->{arguments};
|
|
|
|
if (not length $plugin) { return "Usage: unplug <plugin>"; }
|
|
|
|
if ($self->{pbot}->{plugins}->unload($plugin)) {
|
|
return "Unloaded $plugin plugin.";
|
|
} else {
|
|
return "Plugin $plugin is not loaded.";
|
|
}
|
|
}
|
|
|
|
sub cmd_replug {
|
|
my ($self, $context) = @_;
|
|
|
|
my $plugin = $context->{arguments};
|
|
|
|
if (not length $plugin) { return "Usage: replug <plugin>"; }
|
|
|
|
my $unload_result = $self->cmd_unplug($context);
|
|
my $load_result = $self->cmd_plug($context);
|
|
|
|
my $result;
|
|
$result .= "$unload_result " if $unload_result =~ m/^Unloaded/;
|
|
$result .= $load_result;
|
|
return $result;
|
|
}
|
|
|
|
sub cmd_pluglist {
|
|
my ($self, $context) = @_;
|
|
|
|
my @plugins = sort keys %{$self->{pbot}->{plugins}->{plugins}};
|
|
|
|
return "No plugins loaded." if not @plugins;
|
|
|
|
return scalar @plugins . ' plugin' . (@plugins == 1 ? '' : 's') . ' loaded: ' . join (', ', @plugins);
|
|
}
|
|
|
|
1;
|