vendor/ldns/1.6.17

1 files changed, 137 insertions, 0 deletions

diff --git a/contrib/DNS-LDNS/lib/DNS/LDNS/Zone.pm b/contrib/DNS-LDNS/lib/DNS/LDNS/Zone.pm
new file mode 100644
index 0000000000000..a42beace7288b
--- /dev/null
+++ b/contrib/DNS-LDNS/lib/DNS/LDNS/Zone.pm
@@ -0,0 +1,137 @@
+package DNS::LDNS::Zone;
+
+use 5.008008;
+use strict;
+use warnings;
+
+use DNS::LDNS ':all';
+
+our $VERSION = '0.06';
+
+sub new {
+    my ($class, %args) = @_;
+
+    my $line_nr = 0;
+    my $status = &LDNS_STATUS_OK;
+    my $zone;
+    my $file;
+
+    if ($args{filename}) {
+	unless (open FILE, $args{filename}) {
+	    $DNS::LDNS::last_status = &LDNS_STATUS_FILE_ERR;
+	    $DNS::LDNS::line_nr = 0;
+	    return;
+	}
+
+	$file = \*FILE;
+    }
+
+    if ($file) {
+	$zone = _new_from_file($file, 
+			       $args{origin} || $DNS::LDNS::DEFAULT_ORIGIN, 
+			       $args{default_ttl} || $DNS::LDNS::DEFAULT_TTL, 
+			       $args{class} || $DNS::LDNS::DEFAULT_CLASS, 
+			       $status, $line_nr);
+    }
+    else {
+	$zone = _new();
+    }
+
+    if ($args{filename}) {
+	close $file;
+    }
+
+    $DNS::LDNS::last_status = $status;
+    $DNS::LDNS::line_nr = $line_nr;
+    if (!defined $zone) {
+	return;
+    }
+
+    return $zone;
+}
+
+sub to_string {
+    my $self = shift;
+
+    return join('', map { $self->$_ ? $self->$_->to_string : '' } qw/soa rrs/);
+}
+
+sub soa {
+    my $self = shift;
+    return DNS::LDNS::GC::own($self->_soa, $self);
+}
+
+sub set_soa {
+    my ($self, $soa) = @_;
+    DNS::LDNS::GC::disown(my $old = $self->soa);
+    $self->_set_soa(my $copy = $soa->clone);
+    return DNS::LDNS::GC::own($copy, $self);
+}
+
+sub rrs {
+    my $self = shift;
+    return DNS::LDNS::GC::own($self->_rrs, $self);
+}
+
+sub set_rrs {
+    my ($self, $list) = @_;
+    DNS::LDNS::GC::disown(my $old = $self->rrs);
+    $self->_set_rrs(my $copy = $list->clone);
+    return DNS::LDNS::GC::own($copy, $self);
+}
+
+sub DESTROY {
+    DNS::LDNS::GC::free($_[0]);
+}
+
+1;
+__END__
+
+=head1 NAME
+
+DNS::LDNS::Zone - Parsed zonefile
+
+=head1 SYNOPSIS
+
+  use DNS::LDNS ':all'
+
+  my z = new DNS::LDNS::Zone(
+    filename => '/path/to/myzone',
+    origin => new DNS::LDNS::RData(LDNS_RDF_TYPE_DNAME, 'myzone'), #optional
+    default_ttl => 3600, #optional
+    class => LDNS_RR_CLASS_IN, #optional
+  )
+  my z = new DNS::LDNS::Zone(
+    file => \*FILE,
+    origin => ..., default_ttl => ..., class => ...
+  )
+  my z = new DNS::LDNS::Zone
+
+  z->to_string
+  z->print(\*FILE)
+  z->canonicalize
+  z->sort
+  rr = z->soa
+  z->set_soa(rr)
+  rrlist = z->rrs
+  z->set_rrs(rrlist)
+  z->sign(keylist)
+  z->sign_nsec3(keylist, algorithm, flags, iterations, salt)
+
+=head1 SEE ALSO
+
+http://www.nlnetlabs.nl/projects/ldns
+
+=head1 AUTHOR
+
+Erik Pihl Ostlyngen, E<lt>erik.ostlyngen@uninett.noE<gt>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2013 by UNINETT Norid AS
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.14.2 or,
+at your option, any later version of Perl 5 you may have available.
+
+=cut