История изменений

Исправление router, 17.07.13 16:02 (текущая версия) :

Я обычно, чтобы было понятно что происходит, вывожу на консоль текст запроса и ответа.

#!/usr/bin/perl

use strict;

use Zabbix::API;
use Data::Dumper;

my $zabbix = Zabbix::API->new(server => "http://$address/zabbix/api_jsonrpc.php",
            verbosity => 0);
eval { $zabbix->login(
    user => 'user',
    password => 'password',
) };

my $params = {
   [...]
}

    printf "request: %s\n", Dumper ($params);
    printf "response: %s\n", Dumper ( $zabbix->query(
        "method" => $method,

        "params" => $params,
    ) ), "\n";

Исходная версия router, 17.07.13 16:02:

А дальше - справочник по API

Я обычно, чтобы было понятно что происходит, вывожу на консоль текст запроса и ответа.

#!/usr/bin/perl

use strict;

use Zabbix::API;
use Data::Dumper;

my $zabbix = Zabbix::API->new(server => "http://$address/zabbix/api_jsonrpc.php",
            verbosity => 0);
eval { $zabbix->login(
    user => 'user',
    password => 'password',
) };

my $params = {
   [...]
}

    printf "request: %s\n", Dumper ($params);
    printf "response: %s\n", Dumper ( $zabbix->query(
        "method" => "user.create",

        "params" => $params,
    ) ), "\n";