#!/usr/bin/perl use SOAP::Lite;# +trace => [ transport => sub { print $_[0]->as_string } ]; $SOAP::Constants::PREFIX_ENV = "soapenv"; $SOAP::Constants::PREFIX_ENC = "soapenc"; my $soapRequest = SOAP::Lite -> uri('XXX') -> readable(1) -> ns('XXX') -> proxy('XXX'); my $Username = SOAP::Header->name('wsse:Username' => $username); my $Password = SOAP::Header->name('wsse:Password') ->attr({'Type'=>'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText'}) ->value($password); my $UsernameToken = SOAP::Header->name('wsse:UsernameToken') ->value(\SOAP::Header->value($Username,$Password)); my $security = SOAP::Header->name('wsse:Security') ->attr ({'soapenv:mustUnderstand'=>'1', 'xmlns:wsse' => 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd' }) ->value(\SOAP::Header->value($UsernameToken)); my $bsvc_ID = SOAP::Data ->name('had:Proxy_User_Name') ->value('XXX'); my $bsvc_ID1 = SOAP::Data ->name('had:Proxy_Password') ->value('XXX'); my $Int_ID = SOAP::Data ->name('had:Authentication') ->value(\SOAP::Data->value($bsvc_ID,$bsvc_ID1)); my $Employee_Reference = SOAP::Data ->name('had:Report_Parameters') ->value(\SOAP::Data->value($Int_ID)); my $params = SOAP::Data ->name('had:Execute_Report') ->value(\SOAP::Data->value($Employee_Reference)); $soapRequest->call($params,$Employee_Reference,$security); #### 6c995364b0311079b40f3b5067d12175