(Perl) SOAP WS-Security Username Authentication

Demonstrates creating SOAP XML for WS-Security Username Authentication. The client user name and password are encapsulated in a WS-Security <wsse:UsernameToken>.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# Generate this XML with the code that follows:

# 	<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
# 	 <soap:Header>	     
# 	  <wsse:Security xmlns:wsse="http://schemas.xmlsoap.org/ws/2003/06/secext">
# 	   <wsse:UsernameToken wsu:Id="sample" 
# 	       xmlns:wsu="http://schemas.xmlsoap.org/ws/2003/06/utility">
# 	    <wsse:Username>sample</wsse:Username>
# 	    <wsse:Password Type="wsse:PasswordText">oracle</wsse:Password>
# 	    <wsu:Created>2004-05-19T08:44:51Z</wsu:Created>
# 	   </wsse:UsernameToken>
# 	  </wsse:Security>
# 	  <wsse:Security soap:actor="oracle" 
# 	      xmlns:wsse="http://schemas.xmlsoap.org/ws/2003/06/secext">
# 	   <wsse:UsernameToken wsu:Id="oracle" 
# 	       xmlns:wsu="http://schemas.xmlsoap.org/ws/2003/06/utility">
# 	    <wsse:Username>myUsername</wsse:Username>
# 	    <wsse:Password Type="wsse:PasswordText">myPassword</wsse:Password>
# 	    <wsu:Created>2004-05-19T08:46:04Z</wsu:Created>
# 	   </wsse:UsernameToken>
# 	  </wsse:Security>
# 	 </soap:Header>
# 	  <soap:Body>
# 	   <getHello xmlns="http://www.oracle.com"/>
# 	  </soap:Body>
# 	</soap:Envelope>
# 

# First build the outer housing:
$xml = chilkat::CkXml->new();
$xml->put_Tag("soap:Envelope");
$xml->AddAttribute("xmlns:soap","http://schemas.xmlsoap.org/soap/envelope/");
$xml->UpdateChildContent("soap:Header","");
$xml->UpdateAttrAt("soap:Body|getHello",1,"xmlns","http://www.oracle.com");

# Get the current date/time in a string with this format: 2004-05-19T08:46:04Z
$dt = chilkat::CkDateTime->new();
$dt->SetFromCurrentSystemTime();
$bLocal = 0;
$created = $dt->getAsTimestamp($bLocal);

# Now build each UsernameToken block:
$wsse1 = chilkat::CkXml->new();
$wsse1->put_Tag("wsse:Security");
$wsse1->AddAttribute("xmlns:wsse","http://schemas.xmlsoap.org/ws/2003/06/secext");
$wsse1->UpdateAttrAt("wsse:UsernameToken",1,"wsu:Id","sample");
$wsse1->UpdateAttrAt("wsse:UsernameToken",1,"xmlns:wsu","http://schemas.xmlsoap.org/ws/2003/06/utility");
$wsse1->UpdateChildContent("wsse:UsernameToken|wsse:Username","sample");
$wsse1->UpdateAttrAt("wsse:UsernameToken|wsse:Password",1,"Type","wsse:PasswordText");
$wsse1->UpdateChildContent("wsse:UsernameToken|wsse:Password","oracle");
$wsse1->UpdateChildContent("wsse:UsernameToken|wsu:Created",$created);

$wsse2 = chilkat::CkXml->new();
$wsse2->put_Tag("wsse:Security");
$wsse2->AddAttribute("soap:actor","oracle");
$wsse2->AddAttribute("xmlns:wsse","http://schemas.xmlsoap.org/ws/2003/06/secext");
$wsse2->UpdateAttrAt("wsse:UsernameToken",1,"wsu:Id","oracle");
$wsse2->UpdateAttrAt("wsse:UsernameToken",1,"xmlns:wsu","http://schemas.xmlsoap.org/ws/2003/06/utility");
$wsse2->UpdateChildContent("wsse:UsernameToken|wsse:Username","oracle");
$wsse2->UpdateAttrAt("wsse:UsernameToken|wsse:Password",1,"Type","wsse:PasswordText");
$wsse2->UpdateChildContent("wsse:UsernameToken|wsse:Password","oracle");
$wsse2->UpdateChildContent("wsse:UsernameToken|wsu:Created",$created);

# Insert the UsernameToken blocks:
# xHeader is a Xml
$xHeader = $xml->GetChildWithTag("soap:Header");
$xHeader->AddChildTree($wsse1);
$xHeader->AddChildTree($wsse2);

# Show the XML:
print $xml->getXml() . "\r\n";