GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

ProcessManager: add `kill` command

This commit is contained in:
Pragmatic Software 2020-02-14 19:58:44 -08:00
parent dc7cdd8a2c
commit 42dbf468b2
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
PBot/ProcessManager.pm
View File

@ -35,7 +35,7 @@ sub ps_cmd {
push @processes, "$pid: $self->{processes}->{$pid}->{commands}->[0]";
}
if (@processes) {
return "Running processes: ", join '; ', @processes;
return "Running processes: " . join '; ', @processes;
} else {
return "No running processes.";
}
@ -43,7 +43,21 @@ sub ps_cmd {
sub kill_cmd {
my ($self, $from, $nick, $user, $host, $arguments, $stuff) = @_;
return "Coming soon.";
my $usage = "Usage: kill <pids...>";
my @pids;
while (1) {
my $pid = $self->{pbot}->{interpreter}->shift_arg($stuff->{arglist}) // last;
push @pids, $pid;
}
return $usage if not @pids;
foreach my $pid (@pids) {
return "No such pid $pid." if not exists $self->{processes}->{$pid};
}
kill 'INT', @pids;
return "Killed.";
}
sub add_process {
@ -62,6 +76,10 @@ sub execute_subroutine {
sub execute_process {
my ($self, $stuff, $subref) = @_;
if (not exists $stuff->{commands}) {
$stuff->{commands} = [ $stuff->{command} ];
}
pipe(my $reader, my $writer);
my $pid = fork;