#!/usr/bin/perl -w
use strict;
use English qw( -no_match_vars);
use Frontier::Client;

my $header_hr = {
    cipux_version  => '3.4.0.0',
    client_name    => 'cipux_rpc_task_sum_test',
    client_version => '0.1',
    rpc_version    => '2.0',
    client_key     => '',
    client_cred    => '',
    gmt_time       => time,
};

my $pay_hr = {
    header_hr => $header_hr,
    login     => 'dummy',
    ticket    => 'dummy',
    cmd       => 'cipux_task_sum',
    param_hr  => {
        summand1 => 4,
        summand2 => 7,
    },
};

my $http_url  = "http://localhost:8001/RPC2";
my $server    = Frontier::Client->new( url => $http_url );
my $answer_hr = {};
eval { $answer_hr = $server->call( 'task', $pay_hr ); };

if ($EVAL_ERROR) {
    print "Server down\n";
}
elsif ( $answer_hr->{status} eq 'TRUE' ) {
    print "Sever up\n";
}
else {
    print "Server problem\n";
}

use Data::Dumper;
print Dumper($answer_hr);

