NAME
Net::DNS::AutoDNS - Generates XML and communicates with AutoDNS
VERSION
version 0.1
SYNOPSIS
use Net::DNS::AutoDNS;
my $autodns = Net::DNS::AutoDNS->new(
gateway => 'http://autodns.example.org/gateway/',
user => '...',
password => '...',
context => '...',
);
my $xml_snippet = $rr->autodns_xml;DESCRIPTION
This module adds methods to several Net::DNS::RR classes (by boldly invading their namespaces) and provides a simple interface to the AutoDNS gateway. This module doesn't quite really support UTF-8, and apparently neither does AutoDNS, but its documentation states that encoding="utf-8" is required.
METHODS
new (gateway => $gateway, user => $user, password => $password, context => $context)
Creates a new AutoDNS object and returns it. $context is part of the authentication information, not related to Perl's use of the word "context".
request ($code, element => contents, ...)
Sends a request to AutoDNS. In scalar context, returns the response XML text. In list context, returns the XML text and an XML document object.
Request codes are documented in the AutoDNS Interface Documentation. The codes must be passed as strings, including leading 0's.
The contents are a key/value list, where the value is a string or an ARRAY reference with another key/value list. These can be nested.
For example, this list:
'1234', root => [
a => "Example",
b => "Voorbeeld",
c => [
d => "More",
],
];will result in the following XML to be submitted:
<?xml...?>
<request>
<auth>...</auth>
<task>
<code>1234</code>
<a>Example</a>
<b>Voorbeeld</b>
<c>
<d>More</d>
</c>
</task>
</request>In the key/value list, references to strings of literal XML may be passed at any position. They are mixed into the request string without verification.
On failure, an exception is thrown.
get_zone_list
Issues request 0205. Retuns a list of zone names.
get_zone_xml ($name)
Issues request 0205 to request a single zone. Returns the response XML document as a string and/or a document object, like the request method.
get_zone ($name)
Issues request 0205 to request a single zone. Returns a Net::DNS::AutoDNS::Zone object.
create_zone ($zone)
Issues request 0201 to create a zone. Requires a Net::DNS::AutoDNS::Zone object. Returns what the request method returns.
update_zone ($zone)
Issues request 0202 to update a zone. Requires a Net::DNS::AutoDNS::Zone object. Returns what the request method returns.
delete_zone ($name)
Issues request 0203 to delete a zone. Requires a Net::DNS::AutoDNS::Zone object or the name of a zone. Returns what the request method returns.
Other classes
Net::DNS::AutoDNS::Zone
Class for objects representing zones in AutoDNS. See Net::DNS::AutoDNS::Zone.
Monkeypatched methods
Net::DNS::RR::<type>::autodns_xml
Returns a piece of XML representing the RR in AutoDNS format. To check if a certain RR type is supported by this module, you can use:
if ($rr->can('autodns_xml')) { print $rr->autodns_xml; }As of december 2009, the following record types are supported by AutoDNS and this module: A, MX, CNAME, NS, PTR, HINFO, TXT, AAAA, SRV, NAPTR.
Note that AutoDNS mutilates records by removing " characters, making it impossible to use whitespace in values.
Absolute hostnames have their origin replaced by XXORIGINXX. in the value.
CAVEATS
SSL CERTIFICATES ARE ACCEPTED WITHOUT VERIFICATION. Vulnerable to MITM attacks and DNS/resolver (cache) poisoning/hijacking. (The underlying SSL module may implement checks. See LWP for a list of supported modules, and their respective manuals.)
XML entities emitted are numeric (decimal).
Validity and wellformedness are not verified.
Behaviour for non-ASCII data is undefined.
SEE ALSO
Net::DNS::AutoDNS::Zone, Net::DNS
http://www.cpanel.com/, http://www.autodns.com/
AutoDNS Interface Documentation
AUTHOR
Juerd Waalboer <juerd@tnx.nl>
COPYRIGHT AND LICENSE
This software is Copyright (c) 2013 by Juerd Waalboer.
This is free software, licensed under:
The (three-clause) BSD License