Ascio DNS

Perl GetRoles

Returns the available roles and their permissions.

Response GetRoles(GetRoles getRoles)

Response codes

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

GetRoles Request

GetRolesResponse

Property
GetRolesResult
roles

Perl example

use SOAP::Lite;
use Date::Format;
$proxy = "https://dnsservice.demo.ascio.com/DnsService.svc";
$namespace = "http://www.ascio.com/2007/01";
$soap = SOAP::Lite->on_action( sub { "http://groupnbt.com/2010/10/30/Dns/DnsService/IDnsService/GetRoles" } )->proxy($proxy);
$soap->autotype(0);
$method = SOAP::Data->name("GetRoles")->attr({xmlns => $namespace});
@query = (

);

$result = $soap->call($method => @query);
unless ($result->fault) {
	$response = $result->valueof("//GetRolesResponse/GetRolesResult");
	print "ResultCode : $response->{'ResultCode'}\r\n";
	print "Message : $response->{'ResultMessage'}\r\n";
	if ($response->{"ResultCode"} == 200) {
		print "OK";
	}
}
else {
	print join ", ",
	$result->faultcode,
	$result->faultstring,
	$result->faultdetail;
}
WSDL AscioDns
https://dnsservice.demo.ascio.com/2010/10/30/DnsService.wsdl (OTE)
https://dnsservice.ascio.com/2010/10/30/DnsService.wsdl (Live)
Please configure the IP-Whitelisting in the portal/demo-portal.