Perl SearchNameServer

Search for nameserver objects based on a search criteria.

Response SearchNameServer(string sessionId,SearchCriteria criteria)

Response codes

ResultCodeMessageValue
200OK
401Authorization failed
501Invalid attribute name
505Syntax error in parameters or arguments
506Required attribute missing in request
506Search criteria must have at least one clause
506Required attribute missing in request
506Too many clauses
554Error during search

You can search for these attributes:

,
  • HostName
  • IPAddress

You can filter these states:

,
  • deleted
  • pending
  • transfer_lock
  • update_lock
  • delete_lock

SearchNameServer request

PropertyDescription
sessionIdExample: o58t9fjgw9bjarp6q7byv13e
criteria

SearchNameServerResponse

Property
SearchNameServerResult
nameServers

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

#Clause
$clause =  \SOAP::Data->value(
	SOAP::Data->name('Attribute','AttributeTest'),
	SOAP::Data->name('Operator','Is'),
	SOAP::Data->name('Value','Mr.')
);

#ArrayOfClause
$clauses = array($clause);
	
	\SOAP::Data->value(

	)

#SearchCriteria
$criteria =  \SOAP::Data->value(
	SOAP::Data->name('Clauses',$clauses),
	SOAP::Data->name('Mode','Strict'),
	SOAP::Data->name('Withoutstates',SOAP::Data->value(SOAP::Data->name('string',''))),
	SOAP::Data->name('Withstates',SOAP::Data->value(SOAP::Data->name('string','')))
);
@query = (
	SOAP::Data->name(sessionId => $sessionId),
	SOAP::Data->name(criteria => $criteria)
);

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