#!/usr/bin/perl

use strict;
use warnings;
use HTTP::Cookies;
use SOAP::Lite (
    +trace  => 'all',
    maptype => {}
);

use Data::Dumper::Concise;
$Data::Dumper::Indent = 1;

my $soap =
  SOAP::Lite->proxy( 'https://url2archer?wsdl',
    cookie_jar => HTTP::Cookies->new( ignore_discard => 1 ) );

my $session = SOAP::Data->name('CreateUserSession')
  ->attr( { xmlns => 'https://url2archer.com/' } );

my @params = (
    SOAP::Data->name('userName')->value('username'),
    SOAP::Data->name('pin')->value(10000),
    SOAP::Data->name('password')->value('password'),
);

my %keyHash =
  %{ $soap->call( $session => @params )->body->{'CreateUserSession'} };

foreach my $k ( keys %keyHash ) {
    print "$k = $keyHash{$k}";
}

=begin

    DIGGING TOKEN INFO

    my $token = $soap->sessionToken();
    if ($token->fault) {
        die $token->faultstring;
    }

    print $token

=cut