Token Based Security

With AddHTTPHeader calls, error is "Unauthorized to access the resource"

Without AddHTTPHeader calls, error is "Security token is required to access the service"

============================================================

*** Load the Proxy and Support Class Libraries
DO SecurityTokenServiceProxy.prg

*** Create an instance of the Proxy
LOCAL loSecurityService as SecurityTokenServiceProxy
*loService = CREATEOBJECT("ChronoServiceProxy","V4") && Optionally specify .NET Version
loSecurityService = CREATEOBJECT("SecurityTokenServiceProxy")

loMyToken = loSecurityService.issuetoken("account", "password")

*** Load the Proxy and Support Class Libraries
DO ChronosServiceProxy.prg

loProxy = CREATE("ChronosServiceProxy")

loProxy.oService.AddHttpHeader("authenticationToken",loMyToken)
loProxy.oService.AddHttpHeader("districtID","0970")

myChronos = loProxy.oService.getChronos("0970",1838,.T.)

============================================================
WORKING CODE FROM PERL

sub getChrono
{
my $self = shift;
my $args = shift;
if ($args) {
my ($chronoId, $districtId, $username, $password, $token);
$chronoId = getParameter($args, 'chronoId');
$districtId = getParameter($args, 'districtId');
$token = getParameter($args, 'token');

$self->{_cs}->proxy('http://xxxxx.dcn:8080/xxx-soap/chronosservice?wsdl');
$self->{_cs}->ns('http://xxxxxxx/chronosstubs', 'chr');
$self->{_cs}->endpoint('http://xxxx:8080/xxx-soap/chronosservice');

$self->{_cs}->transport->http_request->header('authenticationToken' => $token);
$self->{_cs}->transport->http_request->header('districtID' => $districtID);

#my $method = SOAP::Data->name('tns:getChrono');
my $method = SOAP::Data->name('chr:getChronos');

my @params = ( SOAP::Data->name('chr:district' => $districtId),
SOAP::Data->name('chr:chronoId' => $chronoId) );

my $response = $self->{_cs}->call($method => @params);
return $response;
} else {
die "no arguments provided to getChrono";
}
}