/ 
Provision-Unix-0.42
River stage zero No dependents
/ Provision::Unix::DNS::tinydns

# SPF # ":$domain:16:" . characterCount( $text ) . escape( $text ) . ":" . $ttl; NAPTR # :comunip.com:35:\000\012\000\144\001u\007E2U+sip\036!^.*$!sip\072info@comunip.com.br!\000:300 # |-order-|-pref--|flag|-services-|---------------regexp---------------|re-| if ( ( $order >= 0 && $order <= 65535 ) && ( $prefrence >= 0 && $prefrence <= 65535 ) && ( $flag eq "u" ) ) { $result = ":" . escape( $domain ) . ":35:" . escapeNumber( $order ) . escapeNumber( $prefrence ) . characterCount( $flag ) . $flag . characterCount( $services ) . escape( $services ) . characterCount( $regexp ) . escape( $regexp );

    if ( $replacement ne "" ) {
        $result = $result . characterCount( $replacement ) . escape( $replacement );
    }
    $result = $result . "\\000:" . $ttl;

    print $result;
}
else {
    print "priority, weight or port not within 0 - 65535\n";
}
}
domainKeys
# :joe._domainkey.anders.com:16:\341k=rsa; p=MIGfMA0GCSqGSIb3DQ ... E2hHCvoVwXqyZ/MbQIDAQAB
#  |lt|  |typ|  |-key----------------------------------------|
if ( $key ne "" ) {
    $key = $key;
    $key =~ s/\r//g;
    $key =~ s/\n//g;
        $line = "k=" . $encryptionType . "; p=" . $key;
    $result = ":" . escape( $domain ) . ":16:" . characterCount( $line ) . 
        escape( $line ) . ":" . $ttl;
    print $result;
}
else {
    print "didn't get a valid key for the key field\n";
}
}

NAME

Provision::Unix::DNS::tinydns - Provision tinydns DNS entries

VERSION

Version 0.52

SYNOPSIS

Provision DNS entries into a tinydns DNS management system using the tinydns native API.

use Provision::Unix::DNS::tinydns;

my $dns = Provision::Unix::DNS::tinydns->new();
...

FUNCTIONS

AUTHOR

Matt Simerson, <matt at tnpi.net>

BUGS

Please report any bugs or feature requests to bug-unix-provision-dns at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Provision-Unix. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Provision::Unix::DNS::tinydns

You can also look for information at:

ACKNOWLEDGEMENTS

some of the record generation logic was lifted from http://www.anders.com/projects/sysadmin/djbdnsRecordBuilder/

COPYRIGHT & LICENSE

Copyright 2008 Matt Simerson

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.