#P_USER_NAME #P_USER_PASSWORD wmtQ0Smma6txNXooNWIVFw== 2011-08-31T18:35:44.675Z #P_WORKDAY_ID #P_VALUE WORK ##

##

use SOAP::Lite +trace => [ transport => sub { print $_[0]->as_string } ];

my $soapRequest = SOAP::Lite
                -> uri('urn:com.workday/bsvc')
                -> readable(1)
                -> ns('urn:com.workday/bsvc','bsvc')
                -> proxy('https://wd2-impl-services1.workday.com');

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 $Nonce    = SOAP::Header->name('wsse:Nonce')
                           ->attr({'EncodingType'=>'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary'})
                           ->value($nonce);
my $Created  = SOAP::Header->name('wsu:Created' => $created);

my $UsernameToken       = SOAP::Header->name('wsse:UsernameToken')
                        ->attr  ({
                                'wsu:Id'=>'UsernameToken-16',
                                'xmlns:wsu'=> 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd'
                                })
                        ->value(\SOAP::Header->value($Username,$Password,$Nonce,$Created));

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 $Type_Reference  = SOAP::Data ->name('bsvc:Type_Reference')
                        ->attr({'bsvc:Primary'=>'1'})
                        ->value('WORK');

my $Usage_Data  = SOAP::Data ->name('bsvc:Usage_Data')
                        ->attr({'bsvc:Public'=>'1'})
                        ->value(\SOAP::Data->value($Type_Reference));

my $Email_Address       = SOAP::Data ->name('bsvc:Email_Address')
                        ->value('Hadoop_Test@XXX.co.uk');

my $Internet_Email_Address_Data  = SOAP::Data ->name('bsvc:Internet_Email_Address_Data')
                        ->value(\SOAP::Data->value($Email_Address,$Usage_Data));

my $Contact_Data        = SOAP::Data ->name('bsvc:Contact_Data')
                        ->value(\SOAP::Data->value($Internet_Email_Address_Data));

my $Person_Data         = SOAP::Data ->name('bsvc:Person_Data')
                        ->value(\SOAP::Data->value($Contact_Data));

my $Personal_Info_Data  = SOAP::Data ->name('bsvc:Personal_Info_Data')
                        ->value(\SOAP::Data->value($Person_Data));

my $Employee_Personal_Info_Data  = SOAP::Data ->name('bsvc:Employee_Personal_Info_Data')
                        ->value(\SOAP::Data->value($Personal_Info_Data));

my $Type_Reference  = SOAP::Data ->name('bsvc:Type_Reference')
                        ->attr({'bsvc:Primary'=>'1'})
                        ->value(\SOAP::Data->value($Person_Data));

my $Employee_Personal_Info_Data  = SOAP::Data ->name('bsvc:Employee_Personal_Info_Data')
                        ->value(\SOAP::Data->value($Personal_Info_Data));

my $bsvc_ID             = SOAP::Data ->name('bsvc:ID')
                        ->attr({'bsvc:System_ID'=>'WD-EMPLID'})
                        ->value('1234');


my $Int_ID              = SOAP::Data ->name('bsvc:Integration_ID_Reference')
                        ->value(\SOAP::Data->value($bsvc_ID));


my $Employee_Reference  = SOAP::Data ->name('bsvc:Employee_Reference')
                        ->value(\SOAP::Data->value($Int_ID));

my $params = SOAP::Data ->name('bsvc:Employee_Personal_Info_Update')
                        ->attr({'bsvc:version'=>'v24.0'})
                        ->value(\SOAP::Data->value($Employee_Reference));

$soapRequest->call($params,$Employee_Reference,$Employee_Personal_Info_Data,$security);

##

##

HTTP/1.1 500 Internal Server Error
Connection: close
Date: Tue, 19 May 2015 11:38:55 GMT
Host: wd2-impl-services1.workday.com
TE: deflate,gzip;q=0.3
Server: Workday Integration Server /2015.20.649
Content-Type: text/xml
Client-Date: Tue, 19 May 2015 11:38:55 GMT
Client-Peer: 209.177.166.48:443
Client-Response-Num: 1
Client-SSL-Cert-Issuer: /C=US/O=GeoTrust Inc./CN=GeoTrust SSL CA - G4
Client-SSL-Cert-Subject: /C=US/ST=California/L=Pleasanton/O=Workday, Inc./CN=*.workday.com
Client-SSL-Cipher: AES128-SHA
Client-SSL-Warning: Peer certificate not verified
Client-Transfer-Encoding: chunked
Set-Cookie: WorkdayLB=36942858.1835.0000; path=/
Strict-Transport-Security: max-age=15638400; includeSubDomains
X-WD-REQUEST-ID: F5S|E139FF4A|555B20CF
X-Workday-Forwarded-For: 91.186.189.227

SOAP-ENV:Client.validationErrorInvalid request