/ 
Zabbix-ServerScript-0.03
River stage zero No dependents
/ Zabbix::ServerScript

NAME

Zabbix::ServerScript - Simplify your Zabbix server scripts' environment.

SYNOPSIS

    #!/usr/bin/perl
    
    use strict;
    use warnings;
    use utf8;
    use Getopt::Long qw(:config bundling);
    use Zabbix::ServerScript;
    
    my $opt = {
    	unique => 1,
    };
    
    my @opt_specs = qw(
    	verbose|v+
    	debug
    	console
    );
    
    sub main {
    	GetOptions($opt, @opt_specs);
    	Zabbix::ServerScript::init($opt);
	Zabbix::ServerScript::return_value(1);
    }

DESCRIPTION

Zabbix::ServerScript is a module to simplify writing new scripts for Zabbix server: external scripts, alert scripts, utils, etc.

SUBROUTINES

init($opt)

Initializes following global variables:

$logger

Log4perl instance

$config

hashref contais both local (script-specific) and global config data.

Default global config is located at Zabbix/ServerScript/DefaultConfig.pm.

User can generate its own global config and store it into Zabbix/ServerScript/Config.pm. Config.pm is preferred over DefaultConfig.pm.

TODO: Provide a tool to simple copy DefaultConfig to Config.

Global config data can be accessed through $Zabbix::ServerScript::Config and $config->{global} variables.

Script-specific config is searched within $Zabbix::ServerScript::Config->{config_dir} path.

$config = {
	global => {
		config_dir => q(/path/to/local/config/dir),
		log_dir => q(/tmp),
		...,
	},
	local_item1 => ...,
	local_item2 => ...,
}
$zx_api

Zabbix::ServerScript::API object

init() accepts hashref as an argument, which can have the following keys:

$opt = {
	config => q(path/to/local/config.yaml),
	console => 0, 				# should the script log to STDERR or not
	verbose => 0, 				# increase verbosity. By default, script will log only WARN messages and above.
	debug => 0, 				# Enable debug mode.
	logger => q(Zabbix.ServerScript), 	# Log4perl logger name
	api => q(),				# name of Zabbix API instance in global config
	id => q(),	 			# unique identifier of what is being done, e.g.: database being checked
	unique => 1, 				# only one instance for each $opt->{id} is allowed
}

return_value($value)

Prints $value to STDOUT and exits. Throws an exception if $value is not defined.

store_cache($cache)

Stores cache to file using Storable module

retrieve_cache($cache_filename)

Retrieves cache from file using Storable module.

connect_to_db($dsn, $user, $password)

Connects to database via unixODBC. $dsn is mandatory. Returns database handle or throws an exception on failure.

send($data_structure, $user, $password)

Send data to Zabbix trapper like zabbix_sender does. $data_structure is mandatory. Returns server response on success or throws an exception on failure. $data_structure must be either hashref or arrayref of hashrefs.

Each of hashref must be like:

{
	host => q(Linux host),	# hostname as in Zabbix frontend
	key => q(item_key),
	value => 1,
	clock => time,		# unix timestamp, optional
}

LICENSE

Copyright (C) Anton Alekseyev.

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

AUTHOR

Anton Alekseyev <akint.wr+github@gmail.com>