Scroll to navigation

Munin::Node::OS(3pm) User Contributed Perl Documentation Munin::Node::OS(3pm)


Munin::Node::OS - OS related utility methods for the Munin node.


 use Munin::Node::OS;
 my $uid  = Munin::Node::OS->get_uid('foo');
 my $host = Munin::Node::OS->get_fq_hostname();


 $uid = $class->get_uid($user)

Returns the user ID. $user might either be a user name or a user ID. Returns undef if the user doesn't exist.

 $gid = $class->get_gid($group)

Returns the group ID. $group might either be a group name or a group ID. Returns undef if the group doesn't exist.

 $host = $class->get_fq_hostname()

Returns the fully qualified host name of the machine.

 $bool = $class->check_perms_if_paranoid($target);

If paranoia is enabled, returns false unless $target is owned by root, and has safe permissions. If $target is a file, also checks the directory it inhabits.

  $result = run_as_child($timeout, $coderef, @arguments);

Creates a child process to run $code and waits for up to $timeout seconds for it to complete. Returns a hashref containing the following keys:

"stdout", "stderr"
Array references containing the output of these filehandles;
The result of wait();
True if the child had to be interrupted.

System errors will cause it to carp.


Sends SIGHUP and SIGKILL to the process group identified by $pid.

Sleeps for 2 seconds between SIGHUP and SIGKILL.

 my $bool = $class->possible_to_signal_process($pid)

Check whether it's possible to send a signal to $pid (that means, to be brief, that the process is owned by the same user, or we are the super-user). This is a useful way to check that a child process is alive (even if only as a zombie) and hasn't changed its UID.

 eval {
 if ($@) {
     # Failed to set EUID

The name says it all ...

See documentation for set_effective_user_id()
See documentation for set_effective_user_id()
See documentation for set_effective_user_id()
Set umask so that files created by plugins are group writable Only call right before exec-ing a plugin.
2023-03-21 perl v5.36.0