Perl CreateContact

Creating a contact. The contactHandle is returned in the contact object passed by reference.

Response CreateContact(string sessionId,Contact contact)

Response codes

ResultCodeMessageValue
200OK
401Authorization failed
501Syntax error in parameters or arguments
506Required attribute missing in request

CreateContact request

PropertyDescription
sessionIdExample: o58t9fjgw9bjarp6q7byv13e
contact

CreateContactResponse

Property
CreateContactResult
contact

Perl example

use SOAP::Lite;
use Date::Format;
$proxy = "https://aws.demo.ascio.com/2012/01/01/AscioService.wsdl";
$namespace = "http://www.ascio.com/2007/01";
$soap = SOAP::Lite -> on_action( sub { "http://www.ascio.com/2007/01/IContactService/CreateContact" } ) -> proxy($proxy);
$soap->autotype(0);
$method = SOAP::Data->name("CreateContact")
->attr({xmlns => $namespace});

#Contact
$contact =  \SOAP::Data->value(
);
@query = (
	SOAP::Data->name(sessionId => $sessionId),
	SOAP::Data->name(contact => $contact)
);

$result = $soap->call($method => @query);
unless ($result->fault) {
	$response = $result->valueof("//CreateContactResponse/CreateContactResult");
	print "ResultCode : $response->{'ResultCode'}\r\n";
	print "Message : $response->{'Message'}\r\n";
	if ($response->{"ResultCode"} == 200) {
		print "OK";
	}
}
else {
	print join ", ",
	$result->faultcode,
	$result->faultstring,
	$result->faultdetail;
}
WSDL for AWS v2
https://aws.demo.ascio.com/2012/01/01/AscioService.wsdl (OTE)
https://aws.ascio.com/2012/01/01/AscioService.wsdl (Live)