mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-24 11:42:35 +01:00
148 lines
4.8 KiB
Perl
148 lines
4.8 KiB
Perl
# File: Misc.pm
|
|
#
|
|
# Purpose: Registers misc PBot commands that don't really belong in any
|
|
# other file.
|
|
|
|
# SPDX-FileCopyrightText: 2010-2023 Pragmatic Software <pragma78@gmail.com>
|
|
# SPDX-License-Identifier: MIT
|
|
|
|
package PBot::Core::Commands::Misc;
|
|
|
|
use PBot::Imports;
|
|
use parent 'PBot::Core::Class';
|
|
|
|
use Time::Duration qw/duration/;
|
|
|
|
sub initialize($self, %conf) {
|
|
# misc commands
|
|
$self->{pbot}->{commands}->register(sub { $self->cmd_nop(@_) }, 'nop', 0);
|
|
$self->{pbot}->{commands}->register(sub { $self->cmd_uptime(@_) }, 'uptime', 0);
|
|
$self->{pbot}->{commands}->register(sub { $self->cmd_in_channel(@_) }, 'in', 0);
|
|
$self->{pbot}->{commands}->register(sub { $self->cmd_list(@_) }, 'list', 0);
|
|
|
|
# misc administrative commands
|
|
$self->{pbot}->{commands}->register(sub { $self->cmd_sl(@_) }, 'sl', 1);
|
|
$self->{pbot}->{commands}->register(sub { $self->cmd_die(@_) }, 'die', 1);
|
|
$self->{pbot}->{commands}->register(sub { $self->cmd_export(@_) }, 'export', 1);
|
|
$self->{pbot}->{commands}->register(sub { $self->cmd_eval(@_) }, 'eval', 1);
|
|
|
|
# misc capabilities
|
|
$self->{pbot}->{capabilities}->add('admin', 'can-in', 1);
|
|
}
|
|
|
|
sub cmd_nop($self, $context) {
|
|
$self->{pbot}->{logger}->log("Disregarding NOP command.\n");
|
|
return '';
|
|
}
|
|
|
|
sub cmd_uptime($self, $context) {
|
|
return localtime($self->{pbot}->{startup_timestamp}) . ' [' . duration(time - $self->{pbot}->{startup_timestamp}) . ']';
|
|
}
|
|
|
|
sub cmd_in_channel($self, $context) {
|
|
my $usage = 'Usage: in <channel> <command>';
|
|
|
|
if (not length $context->{arguments}) {
|
|
return $usage;
|
|
}
|
|
|
|
my ($channel, $command) = $self->{pbot}->{interpreter}->split_args($context->{arglist}, 2, 0, 1);
|
|
|
|
if (not defined $channel or not defined $command) {
|
|
return $usage;
|
|
}
|
|
|
|
# invoker must be present in that channel
|
|
if (not $self->{pbot}->{nicklist}->is_present($channel, $context->{nick})) {
|
|
return "You must be present in $channel to do this.";
|
|
}
|
|
|
|
# update context with new channel and command
|
|
$context->{from} = $channel;
|
|
$context->{command} = $command;
|
|
|
|
# perform the command and return the result
|
|
return $self->{pbot}->{interpreter}->interpret($context);
|
|
}
|
|
|
|
sub cmd_list($self, $context) {
|
|
my $text;
|
|
|
|
my $usage = 'Usage: list <applets|commands>';
|
|
|
|
return $usage if not length $context->{arguments};
|
|
|
|
if ($context->{arguments} =~ /^applets$/i) {
|
|
$text = 'Loaded applets: ';
|
|
foreach my $channel (sort $self->{pbot}->{factoids}->{data}->{storage}->get_keys) {
|
|
foreach my $command (sort $self->{pbot}->{factoids}->{data}->{storage}->get_keys($channel)) {
|
|
next if $command eq '_name';
|
|
if ($self->{pbot}->{factoids}->{data}->{storage}->get_data($channel, $command, 'type') eq 'applet') {
|
|
$text .= $self->{pbot}->{factoids}->{data}->{storage}->get_data($channel, $command, '_name') . ' ';
|
|
}
|
|
}
|
|
}
|
|
|
|
return $text;
|
|
}
|
|
|
|
if ($context->{arguments} =~ /^commands$/i) {
|
|
my $commands = $self->{pbot}->{commands}->{commands};
|
|
$text = 'Registered commands: ';
|
|
foreach my $command (sort keys %$commands) {
|
|
if ($commands->{$command}->{requires_cap}) {
|
|
$text .= "+$command ";
|
|
} else {
|
|
$text .= "$command ";
|
|
}
|
|
}
|
|
|
|
return $text;
|
|
}
|
|
|
|
return $usage;
|
|
}
|
|
|
|
sub cmd_sl($self, $context) {
|
|
return "Usage: sl <ircd command>" if not length $context->{arguments};
|
|
$self->{pbot}->{conn}->sl($context->{arguments});
|
|
return "/msg $context->{nick} sl: command sent. See log for result.";
|
|
}
|
|
|
|
sub cmd_die($self, $context) {
|
|
$self->{pbot}->{logger}->log("$context->{hostmask} made me exit.\n");
|
|
$self->{pbot}->{conn}->privmsg($context->{from}, "Good-bye.") if $context->{from} ne 'stdin@pbot';
|
|
$self->{pbot}->{conn}->quit("Departure requested.") if defined $self->{pbot}->{conn};
|
|
$self->{pbot}->atexit();
|
|
exit 0;
|
|
}
|
|
|
|
sub cmd_export($self, $context) {
|
|
my $usage = "Usage: export factoids";
|
|
|
|
return $usage if not length $context->{arguments};
|
|
|
|
if ($context->{arguments} =~ /^factoids$/i) {
|
|
return $self->{pbot}->{factoids}->{exporter}->export;
|
|
}
|
|
|
|
return $usage;
|
|
}
|
|
|
|
sub cmd_eval($self, $context) {
|
|
$self->{pbot}->{logger}->log("eval: $context->{from} $context->{hostmask} evaluating `$context->{arguments}`\n");
|
|
|
|
my $ret = '';
|
|
my $result = eval $context->{arguments};
|
|
if ($@) {
|
|
if (length $result) { $ret .= "[Error: $@] "; }
|
|
else { $ret .= "Error: $@"; }
|
|
$ret =~ s/ at \(eval \d+\) line 1.//;
|
|
}
|
|
$result = 'Undefined.' if not defined $result;
|
|
$result = 'No output.' if not length $result;
|
|
return "/say $ret $result";
|
|
}
|
|
|
|
1;
|