32 lines
690 B
Perl
32 lines
690 B
Perl
package Bot::BasicBot::Pluggable::Module::Restart;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Data::Dumper;
|
|
|
|
use base qw(Bot::BasicBot::Pluggable::Module);
|
|
|
|
sub help {return ""}
|
|
|
|
sub mklog {
|
|
open(my $pbh, "-|", "/home/simcop/bin/mklog") or return "$!";
|
|
my $pb = <$pbh>;
|
|
return $pb;
|
|
}
|
|
|
|
sub admin {
|
|
my ($self, $mess) = @_;
|
|
|
|
if ($mess->{body} =~ /^\s*!mklog\s*$/ && $mess->{channel} eq "#dirkocraft-admin" && $mess->{addressed}) {
|
|
return mklog();
|
|
} elsif ($mess->{body} =~ /^\s*!restart\s*$/ && $mess->{channel} eq "#dirkocraft-admin" && $mess->{addressed}) {
|
|
my $pb = mklog();
|
|
system("/home/simcop/bin/crash");
|
|
return "Restarting ". $pb;
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
1;
|