The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

Name

Class::Usul::IPC - List / create / delete processes

Synopsis

   use Class::Usul;
   use Class::Usul::IPC;

   my $ipc = Class::Usul::IPC->new( builder => Class::Usul->new );

   $result_object = $ipc->run_cmd( [ qw( ls -l ) ] );

Description

Displays the process table and allows signals to be sent to selected processes

Configuration and Environment

Defines these attributes;

cache_ttys

Boolean that defaults to true. Passed to Proc::ProcessTable

config

A required instance of type ConfigProvider

log

A required instance of type Logger

Subroutines/Methods

BUILDARGS

Extracts config and log objects from the builder attribute if it is supplied to the constructor

child_list

   @pids = $self->child_list( $pid );

Called with a process id for an argument this method returns a list of child process ids

list_pids_by_file_system

   @pids = $self->list_pids_by_file_system( $file_system );

Returns the list of process ids produced by the fuser command

popen

   $response = $self->popen( $cmd, @opts );

Uses IPC::Open3 to fork a command and pipe the lines of input into it. Returns a Class::Usul::Response::IPC object. The response object's out method returns the STDOUT from the command. Throws in the event of an error. See "run_cmd" for a full list of options and response attributes

process_exists

   $bool = $self->process_exists( file => $path, pid => $pid );

Tests for the existence of the specified process. Either specify a path to a file containing the process id or specify the id directly

process_table

   $res = $self->process_table( type => ..., );

Returns a hash reference representing the current process table

run_cmd

   $response = $self->run_cmd( $cmd, $opts );

Runs the given command. If $cmd is a string then an implementation based on the IPC::Open3 function is used. If $cmd is an array reference then an implementation using fork and exec in Class::Usul::IPC::Cmd is used to execute the command. If the command contains pipes then an implementation based on IPC::Run is used if it is installed. If IPC::Run is not installed then the arrayref is joined with spaces and the system implementation is used. The $opts hash reference and the $response object are described in Class::Usul::IPC::Cmd

On MSWin32 the "popen" method is used instead. That method does not support the async option

signal_process

Send a signal the the selected processes. Invokes the suid root wrapper

signal_process_as_root

   $self->signal_process( [{] param => value, ... [}] );

This is called by processes running as root to send signals to selected processes. The passed parameters can be either a list of key value pairs or a hash ref. Either a single pid, or an array ref pids, or file must be passwd. The file parameter should be a path to a file containing process ids one per line. The sig defaults to TERM. If the flag parameter is set to one then the given signal will be sent once to each selected process. Otherwise each process and all of it's children will be sent the signal. If the force parameter is set to true the after a grace period each process and it's children are sent signal KILL

Diagnostics

None

Dependencies

Class::Usul
Class::Usul::Constants
Class::Usul::IPC::Cmd
Module::Load::Conditional
Proc::ProcessTable
Try::Tiny

Incompatibilities

There are no known incompatibilities in this module

Bugs and Limitations

There are no known bugs in this module. Please report problems to the address below. Patches are welcome

Author

Peter Flanigan, <pjfl@cpan.org>

License and Copyright

Copyright (c) 2018 Peter Flanigan. All rights reserved

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic

This program is distributed in the hope that it will be useful, but WITHOUT WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE