GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-25 04:02:37 +01:00
Code Issues Projects Releases Wiki Activity

Commands: add uptime command

Browse Source
This commit is contained in:
Pragmatic Software 2020-01-23 21:09:57 -08:00
parent 7feb528024
commit 4e2a17a5ed
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
PBot/Commands.pm
View File

@ -19,8 +19,7 @@ use feature 'unicode_strings';
use base 'PBot::Registerable'; use base 'PBot::Registerable';
use Carp (); use Time::Duration qw/duration/;
use PBot::HashObject;
sub new { sub new {
Carp::croak("Options to " . __FILE__ . " should be key/value pairs, not hash reference") if ref($_[1]) eq 'HASH'; Carp::croak("Options to " . __FILE__ . " should be key/value pairs, not hash reference") if ref($_[1]) eq 'HASH';
@ -38,9 +37,10 @@ sub initialize {
$self->{metadata} = PBot::HashObject->new(pbot => $self->{pbot}, name => 'Commands', filename => $conf{filename}); $self->{metadata} = PBot::HashObject->new(pbot => $self->{pbot}, name => 'Commands', filename => $conf{filename});
$self->load_metadata; $self->load_metadata;
$self->register(sub { $self->set(@_) }, "cmdset", 90); $self->register(sub { $self->cmdset(@_) }, "cmdset", 90);
$self->register(sub { $self->unset(@_) }, "cmdunset", 90); $self->register(sub { $self->cmdunset(@_) }, "cmdunset", 90);
$self->register(sub { $self->help(@_) }, "help", 0); $self->register(sub { $self->help(@_) }, "help", 0);
$self->register(sub { $self->uptime(@_) }, "uptime", 0);
} }
sub register { sub register {
@ -145,14 +145,14 @@ sub save_metadata {
$self->{metadata}->save; $self->{metadata}->save;
} }
sub set { sub cmdset {
my ($self, $from, $nick, $user, $host, $arguments, $stuff) = @_; my ($self, $from, $nick, $user, $host, $arguments, $stuff) = @_;
my ($command, $key, $value) = $self->{pbot}->{interpreter}->split_args($stuff->{arglist}, 3); my ($command, $key, $value) = $self->{pbot}->{interpreter}->split_args($stuff->{arglist}, 3);
return "Usage: cmdset <command> [key [value]]" if not defined $command; return "Usage: cmdset <command> [key [value]]" if not defined $command;
return $self->{metadata}->set($command, $key, $value); return $self->{metadata}->set($command, $key, $value);
} }
sub unset { sub cmdunset {
my ($self, $from, $nick, $user, $host, $arguments, $stuff) = @_; my ($self, $from, $nick, $user, $host, $arguments, $stuff) = @_;
my ($command, $key) = $self->{pbot}->{interpreter}->split_args($stuff->{arglist}, 2); my ($command, $key) = $self->{pbot}->{interpreter}->split_args($stuff->{arglist}, 2);
return "Usage: cmdunset <command> <key>" if not defined $command or not defined $key; return "Usage: cmdunset <command> <key>" if not defined $command or not defined $key;
@ -237,4 +237,9 @@ sub help {
return $result; return $result;
} }
sub uptime {
my ($self, $from, $nick, $user, $host, $arguments, $stuff) = @_;
return localtime ($self->{pbot}->{startup_timestamp}) . " [" . duration (time - $self->{pbot}->{startup_timestamp}) . "]";
}
1; 1;