Perl DeleteRegistrant

Deleting a registrant object based on a registrant handle.

Response DeleteRegistrant(string sessionId,string registrantHandle)

Response codes

ResultCodeMessageValue
200OK
401Authorization failed
404Object not found
405Access denied
501Syntax error in parameters or arguments

DeleteRegistrant request

PropertyDescription
sessionIdExample: o58t9fjgw9bjarp6q7byv13e
registrantHandle

DeleteRegistrantResponse

Property
DeleteRegistrantResult

Perl example

use SOAP::Lite;
use Date::Format;
$proxy = "https://awstest.ascio.com/2012/01/01/AscioService.svc";
$namespace = "http://www.ascio.com/2007/01";
$soap = SOAP::Lite -> on_action( sub { "http://www.ascio.com/2007/01/IRegistrantService/DeleteRegistrant" } ) -> proxy($proxy);
$soap->autotype(0);
$method = SOAP::Data->name("DeleteRegistrant")
->attr({xmlns => $namespace});
@query = (
	SOAP::Data->name(sessionId => $sessionId),
	SOAP::Data->name(registrantHandle => $registrantHandle)
);

$result = $soap->call($method => @query);
unless ($result->fault) {
	$response = $result->valueof("//DeleteRegistrantResponse/DeleteRegistrantResult");
	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)