Net::DNS::RR::APL - DNS APL resource record

Net-DNS documentation Contained in the Net-DNS distribution.

Index

Code Index:

NAME

Top

Net::DNS::RR::APL - DNS APL resource record

SYNOPSIS

Top

use Net::DNS::RR;

DESCRIPTION

Top

This is an RR type for address prefix lists. Please see the RFC3123 for details.

METHODS

Top

applist

Returns an array of Net::DNS::APL::ApItem objects.

Each ApItem objecst contains the following attribute that can be accessed and set using methods of the same name: addressfamily, prefix, negation, address

  foreach my $ap ($apl->aplist()){
     	print $ap->negation()?"!":"";		
    	print $ap->addressfamily().":";		
    	print $ap->address();		
    	print $ap->prefix(). " ";
    }

In addition the Net::DNS::APL::ApItem objects can be printed using the string method.

    foreach my $ap ($apl->aplist())
              print $ap->string."\n";		
    }

COPYRIGHT

Top

Copyright (c) 2008 Olaf Kolkman (NLnet Labs)

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

SEE ALSO

Top

Net::DNS::RR::APL::ApItem, perl(1), Net::DNS, Net::DNS::Resolver, Net::DNS::Packet, Net::DNS::Header, Net::DNS::Question, Net::DNS::RR, RFC 3123

Net-DNS documentation Contained in the Net-DNS distribution. 
package Net::DNS::RR::APL;
#
# $Id: APL.pm 759 2008-12-23 21:23:48Z olaf $
#
use strict;
BEGIN { 
    eval { require bytes; }
} 
use vars qw(@ISA $VERSION);

@ISA     = qw(Net::DNS::RR);
$VERSION = (qw$LastChangedRevision: 684 $)[1];

use Net::DNS::RR::APL::ApItem;

1;






sub new {
	my ($class, $self, $data, $offset) = @_;
	my $max=$offset+$self->{"rdlength"};
	
	while ($offset < $max){
		my $apitem;
		($apitem,$offset)=Net::DNS::RR::APL::ApItem->new_from_wire($$data,$offset);
		push @{$self->{"aplist"}}, $apitem if defined ($apitem);
	}
	bless $self, $class;
}



sub new_from_string {
	my ($class, $self, $string) = @_;
	my @input=split(/\s+/, $string);
	foreach my $i (@input){
		my $apitem=Net::DNS::RR::APL::ApItem->new($i);
		push @{$self->{"aplist"}}, $apitem if defined ($apitem);
	}
	return bless $self, $class;
}




sub rdatastr {
	my $self = shift;
	my $rdatastr="";
	foreach my $apitem (@{$self->{'aplist'}}){
		$rdatastr.=$apitem->string." ";
	}
	chop $rdatastr; #trailing space
	return $rdatastr;
}

sub rr_rdata {
	my $self = shift;
	my $rdata = "";

	foreach my $apitem (@{$self->{'aplist'}}){
		$rdata.=$apitem->rdata;
	}
	return $rdata;
}



sub aplist {
	my $self=shift;
	return @{$self->{'aplist'}};
}