#!/usr/bin/perl

use SOAP::Lite 'trace', 'debug';
use Data::Dumper;
$Data::Dumper::Indent=1;
use HTTP::Cookies;
use strict;
use warnings;

#SETTING UP SOAP
my $soap = SOAP::Lite
	-> soapversion('1.2')
	-> envprefix('soap12')
	-> proxy('https://url2archer?wsdl', cookie_jar => HTTP::Cookies->new(ignore_discard => 1));

	
my $data = SOAP::Data->new();
	$data->uri('https://url2archer?wsdl');

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

my $result = $soap->call($session => @params)->result;

#print Dumper($result);

my $token = $soap->sessionToken();

#print Dumper ($token);


=begin
#DIGGING TOKEN INFO
my $token = $soap->sessionToken();

if ($token->fault) {
  die $token->faultstring;
}

print $token
=cut