File Coverage

blib/lib/Zabbix/Check/Systemd.pm

Criterion	Covered	Total	%
statement	19	68	27.9
branch	0	28	0.0
condition	0	6	0.0
subroutine	6	12	50.0
pod	0	2	0.0
total	25	116	21.5

package Zabbix::Check::Systemd;
=head1 NAME

Zabbix::Check::Systemd - Zabbix check for Systemd services

=head1 VERSION

version 1.11

=head1 SYNOPSIS

Zabbix check for Systemd services

=cut
use strict;
use warnings;
use v5.10.1;
use Lazy::Utils;

use Zabbix::Check;


BEGIN
{
	require Exporter;
	our $VERSION     = '1.11';
	our @ISA         = qw(Exporter);
	our @EXPORT      = qw(_installed _system_status _service_discovery _service_status);
	our @EXPORT_OK   = qw();
}


our ($systemctl) = whereis('systemctl');


sub get_unit_files
{
	return unless $systemctl;
	my ($type) = @_;
	my $result = {};
	for (`$systemctl --no-legend list-unit-files 2>/dev/null`)
	{
		$_ = trim($_);
		last unless $_;
		my ($unit, $state) = /^(\S+)\s+(\S+)/;
		my $info = {
			unit => $unit,
			state => $state,
		};
		($info->{name}, $info->{type}) = $unit =~ /^([^\.]*)\.(.*)/;
		$result->{$unit} = $info if not $type or $type eq $info->{type};
	}
	return $result;
}

sub get_units
{
	return unless $systemctl;
	my ($type) = @_;
	my $result = {};
	my $first = 1;
	for (`$systemctl --no-legend -a list-units 2>/dev/null`)
	{
		$_ = trim($_);
		last unless $_;
		my ($unit, $load, $active, $sub, $desc) = /^(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(.*)/;
		my $info = {
			unit => $unit,
			load => $load,
			active => $active,
			sub => $sub,
			desc => $desc,
		};
		($info->{name}, $info->{type}) = $unit =~ /^([^\.]*)\.(.*)/;
		$result->{$unit} = $info if not $type or $type eq $info->{type};
	}
	return $result;
}

sub _installed
{
	my $result = $systemctl? 1: 0;
	print $result;
	return $result;
}

sub _system_status
{
	my $result = "";
	my $line = `$systemctl is-system-running 2>/dev/null` if $systemctl;
	if ($line)
	{
		chomp $line;
		$result = $line;
	}
	print $result;
	return $result;
}

sub _service_discovery
{
	my ($name_rgx) = map(zbx_decode($_), @ARGV);
	my @items;
	my $units = get_units('service');
	@items = map($units->{$_}, grep({ not defined($name_rgx) or $units->{$_}->{name} =~ /$name_rgx/ } keys %$units)) if $units;
	return print_discovery(@items);
}

sub _service_status
{
	my ($name) = map(zbx_decode($_), @ARGV);
	return "" unless $name;
	my $name_s = shellmeta($name);
	my $result = "";
	my $line = `$systemctl is-active \"$name_s.service\" 2>/dev/null` if $systemctl;
	if ($line)
	{
		chomp $line;
		$result = $line;
	}
	print $result;
	return $result;
}


1;
__END__