#!/usr/bin/perl
use v5.14;
use strict;
use warnings;

use Benchmark   qw< timethese cmpthese >;
use Dumbbench;
use Frontier::RPC2;
use RPC::XML;
#use XML::Compile::RPC::Client;
#use XML::Compile::RPC::Util;
use XML::RPC;
use XMLRPC::Lite;

use lib "lib";
use XMLRPC::Fast;

use lib "/home/voice/current/agi-bin";
use constant {
    HAVE_DIABOLO_XMLRPC_LITE => eval "use Diabolo::XMLRPC_Lite; 1" // 0,
    HAVE_DIABOLO_XMLRPC_FAST => eval "use Diabolo::XMLRPC_Fast (); 1" // 0,
};


my $ping = [ "client.ping" ];
my $login = [ "auth.login", { login => "someone", password => "secret" } ];
my $set_status = [ "user.set_next_status", { agent_status => 'available' } ];
my $update_infos = [
    "client.update_interface", {
        agent_id => 12345,
        availability_code => "",
        hostname => "dev01.dev.company.com",
        in_conference => "N",
        in_listen => "N",
        in_whisper => "N",
        line_status => "incoming_call_in_conversation",
        logon_time => "2015-08-13T10:00:00 CEST",
        logout_cause => "",
        logout_time => "",
        logout_who => "",
        next_status => "available",
        next_status_availability_code => "",
        phone_number => "+33123456789",
        queue_status => "",
        queue_status_update_time => "",
        status => "incoming_call_in_conversation",
        status_updated_time => "2015-08-13T10:04:32 CEST",
        transferAgent_id => "",
        transferAgent_status => "",
        user_role => "Agent",
        version => 3,

        call_info => {
            destination_origin => "3312345678",
            diaboloCallid => "240306495400301",
            duration => "",
            hangup_cause => "",
            hangup_who => "",
            hybrid_campaign_contact_id => 0,
            id => "",
            inqueue_duration => "",
            on_conference => "N",
            on_hold => "N",
            on_listen => "N",
            on_recording => "N",
            on_whisper => "N",
            owner_agent_id => 12345,
            peer_number => 3312345678,
            pickup_agent_id => 12345,
            pickup_delay => 2,
            pickup_when => "2015-08-13T10:04:31 CEST",
            queue_name => "service apres-vente des emissions",
            real_service => "service apres-vente des emissions",
            service => 123,
            skills => [],
            source => "33123456789",
            status => "incoming_call_in_conversation",
            status_update_time => "2015-08-13T10:04:32 CEST",
            svi_start => "2015-08-13T10:04:30 CEST",
            type => "entrant",
            user_message => "",
            version => 2,
            webcallback_id => 0,
            when_in_queue => "2015-08-13T10:04:32 CEST",
            wrapup_id => 0,
        },
    }
];

my $msg = $update_infos;

my $frpc2 = Frontier::RPC2->new;
my $xrpc = XML::RPC->new("");
#my $rpcclient = XML::Compile::RPC::Client->new(
#    destination => "none",
#);


my @tests = (
    {
        name => "XMLRPC::Fast",
        code => sub {
            my $xml = encode_xmlrpc(method => @$msg);
        }
    },
    {
        name => "XMLRPC::Lite",
        code => sub {
            my $xml = XMLRPC::Serializer->envelope(method => @$msg);
        },
    },
  ( {
        name => "Diabolo::XMLRPC_Fast",
        code => sub {
            my $xml = Diabolo::XMLRPC_Fast::encode_xmlrpc(method => @$msg);
        },
    } ) x!! HAVE_DIABOLO_XMLRPC_FAST,
  ( {
        name => "Diabolo::XMLRPC_Lite",
        code => sub {
            my $xml = Diabolo::XMLRPC_Serializer->envelope(method => @$msg);
        },
    } ) x!! HAVE_DIABOLO_XMLRPC_LITE,
    {
        name => "XML::RPC",
        code => sub {
            my $xml = $xrpc->create_call_xml(@$msg);
        },
    },
    {
        name => "RPC::XML",
        code => sub {
            my $xml = RPC::XML::request->new(@$msg)->as_string;
        },
    },
    {
        name => "Frontier::RPC2",
        code => sub {
            my $xml = $frpc2->encode_call(@$msg);
        },
    },
    # XML::Compile::RPC need a complex structure to specify each and every
    # type of values; even for a midly complex one like $update_infos, this
    # makes it quite tedious; not worth the effort given how slow it is
   #{
   #    name => "XML::Compile::RPC",
   #    code => sub {
   #        # note: the generated XML-RPC actually is incorrect, given
   #        # every value is considered as string
   #        my $xml = $rpcclient->_callmsg(
   #            $msg->[0], struct_from_hash(string => $msg->[1])
   #        );
   #    },
   #},
);


my $r = timethese(100_000, { map { $_->{name} => $_->{code} } @tests });
say "";
cmpthese($r);

exit;
say "";

my $bench = Dumbbench->new(
    target_rel_precision    =>       0.005, # seek ~0.5%
    initial_runs            =>  30_000,
    max_iterations          => 200_000,
);
$bench->add_instances( map Dumbbench::Instance::PerlSub->new(%$_), @tests );
$bench->run;
$bench->report;