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

Name

CatalystX::Usul::IPC - List/Create/Delete processes

Version

0.7.$Revision: 1181 $

Synopsis

   use parent qw(CatalystX::Usul::IPC);

Description

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

Subroutines/Methods

child_list

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

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

popen

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

Uses IPC::Open3 to fork a command and pipe the lines of input into it. Returns a CatalystX::Usul::IPC::Response object. The response object's out method returns the STDOUT from the command. Throws in the event of an error

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

Generates the process table data used by the HTML::FormWidget table subclass. Called by "proc_table" in CatalystX::Usul::Model::Process

run_cmd

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

Runs the given command by calling system. The keys of the $args hash are:

async

If async is true then the command is run in the background

debug

Debug status. Defaults to $self->debug

err

Passing err => q(out) mixes the normal and error output together

in

Input to the command

log

Logging object. Defaults to $self->log

out

Destination for standard output

tempdir

Directory used to store the lock file and lock table if the fcntl backend is used. Defaults to $self->tempdir

Returns a CatalystX::Usul::IPC::Response object or throws an error. The response object has the following methods:

core

Returns true if the command generated a core dump

err

Contains a cleaned up version of the command's STDERR

out

Contains a cleaned up version of the command's STDOUT

pid

The id of the background process. Only set if command is running async

rv

The return value of the command

sig

If the command died as the result of receiving a signal return the signal number

stderr

Contains the command's STDERR

stdout

Contains the command's STDOUT

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 pids 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

__cleaner

This interrupt handler traps the pipe signal

__handler

This interrupt handler traps the child signal

Diagnostics

None

Configuration and Environment

None

Dependencies

CatalystX::Usul
CatalystX::Usul::Constants
CatalystX::Usul::IPC::Response
CatalystX::Usul::Table
IPC::Open3
IPC::SysV
Module::Load::Conditional
POSIX
Proc::ProcessTable

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, <Support at RoxSoft.co.uk>

License and Copyright

Copyright (c) 2011 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