Perl CreateRegistrant

Creating Registrant object. The registrantHandle will be returned in the registrant object passed by reference.

Response CreateRegistrant(string sessionId,Registrant registrant)

Response codes

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

CreateRegistrant Request

PropertyDescription
sessionIdExample: o58t9fjgw9bjarp6q7byv13e
registrant

CreateRegistrantResponse

Property
CreateRegistrantResult
registrant

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/IRegistrantService/CreateRegistrant" } ) -> proxy($proxy);
$soap->autotype(0);
$method = SOAP::Data->name("CreateRegistrant")
->attr({xmlns => $namespace});

#Registrant
$registrant =  \SOAP::Data->value(
	SOAP::Data->name('Name','John Doe'),
	SOAP::Data->name('Address1','Address1Test'),
	SOAP::Data->name('City','CityTest'),
	SOAP::Data->name('PostalCode','888349'),
	SOAP::Data->name('CountryCode','DK'),
	SOAP::Data->name('Email',"administrator@ascio-test-domain.com",
	SOAP::Data->name('Phone','+45.123456789')
);
@query = (
	SOAP::Data->name(sessionId => $sessionId),
	SOAP::Data->name(registrant => $registrant)
);

$result = $soap->call($method => @query);
unless ($result->fault) {
	$response = $result->valueof("//CreateRegistrantResponse/CreateRegistrantResult");
	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)
Please configure the IP-Whitelisting in the portal/demo-portal.