Ascio Web Service v2

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

Class CreateDnsSecKey

use SOAP::Lite;
use Date::Format;
$proxy = "https://aws.demo.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/IDnsSecKeyService/CreateDnsSecKey" } )->proxy($proxy);
$soap->autotype(0);
$method = SOAP::Data->name("CreateDnsSecKey")->attr({xmlns => $namespace});

#DnsSecKey
$dnsSecKey =  \SOAP::Data->value(
	SOAP::Data->name('DigestAlgorithm','RSA-SHA256'),
	SOAP::Data->name('DigestType','SHA-256'),
	SOAP::Data->name('Digest','846E5ED4AB6788032B89393619752F662CF2B7B2046A8EC0804DF88F1469AC1E'),
	SOAP::Data->name('KeyTag','2224'),
	SOAP::Data->name('PublicKey','PublicKeyTest')
);
@query = (
	SOAP::Data->name("sessionId" => $sessionId),
	SOAP::Data->name("dnsSecKey" => $dnsSecKey)
);

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