Ascio Web Service v3

• Select programming language:
• C#
• PHP 5
• PHP 5 Classes
• Perl
• Java Axis
• Python
• NodeJS
• SOAP

GetDnsSecKeysResponse GetDnsSecKeys(SecurityHeaderDetails securityHeader,GetDnsSecKeysRequest request)

Response codes

GetDnsSecKeys Request

GetDnsSecKeysResponse

Used in Classes

• AbstractResponse

Perl example

use SOAP::Lite;
use Date::Format;
$proxy = "https://aws.demo.ascio.com/v3/AscioService.svc";
$namespace = "http://www.ascio.com/2007/01";
$soap = SOAP::Lite
    ->on_action( sub { "GetDnsSecKeys" } )
    ->proxy($proxy)
    ->ns("http://www.ascio.com/2013/02", "v3")
    ->ns("http://www.ascio.com/2013/02/AscioService", "service");
    
# Please enter your ascio-credentials here

my $header = SOAP::Header->new(
            name =>"v3:SecurityHeaderDetails",
            value => {"v3:Account" => "username", "v3:Password" =>"password"} 
        );
$soap->autotype(0);
$method = SOAP::Data->name("service:GetDnsSecKeys")->attr({xmlns => $namespace});

#PagingInfo
$pageInfo =  \SOAP::Data->value(
	SOAP::Data->name('v3:PageIndex',1),
	SOAP::Data->name('v3:PageSize',1)
);

#GetDnsSecKeysRequest
$request =  \SOAP::Data->value(
	SOAP::Data->name('v3:Handle','JD123'),
	SOAP::Data->name('v3:DigestAlgorithm','RSA-SHA256'),
	SOAP::Data->name('v3:DigestType','SHA-256'),
	SOAP::Data->name('v3:Digest','846E5ED4AB6788032B89393619752F662CF2B7B2046A8EC0804DF88F1469AC1E'),
	SOAP::Data->name('v3:Protocol','ProtocolTest'),
	SOAP::Data->name('v3:KeyType','KeyTypeTest'),
	SOAP::Data->name('v3:KeyAlgorithm','KeyAlgorithmTest'),
	SOAP::Data->name('v3:KeyTag','2224'),
	SOAP::Data->name('v3:PublicKey','PublicKeyTest'),
	SOAP::Data->name('v3:Status','StatusTest'),
	SOAP::Data->name('v3:CreationFromDate',new \DateTime()),
	SOAP::Data->name('v3:CreationToDate',new \DateTime()),
	SOAP::Data->name('v3:OrderSort','CreatedAsc'),
	SOAP::Data->name('v3:PageInfo',$pageInfo)
);
@query = (
	SOAP::Data->name("service:request" => $request)->attr({"xsi:type" => "v3:GetDnsSecKeysRequest"})
);

$result = $soap->call($method => @query, $header);
unless ($result->fault) {
	$response = $result->valueof("//GetDnsSecKeysResponse/GetDnsSecKeysResult");
	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;
}