Gecko [ www.finalhopeacademy.com ]

Name	Size	Permission
A.pm	2.22 KB	-rw-r--r--
AAAA.pm	3.22 KB	-rw-r--r--
AFSDB.pm	2.47 KB	-rw-r--r--
APL.pm	6.05 KB	-rw-r--r--
CERT.pm	4.4 KB	-rw-r--r--
CNAME.pm	2.09 KB	-rw-r--r--
DHCID.pm	4.37 KB	-rw-r--r--
DNAME.pm	1.99 KB	-rw-r--r--
EID.pm	1.15 KB	-rw-r--r--
HINFO.pm	2.28 KB	-rw-r--r--
HIP.pm	4.21 KB	-rw-r--r--
IPSECKEY.pm	6.31 KB	-rw-r--r--
ISDN.pm	2.32 KB	-rw-r--r--
KX.pm	2.79 KB	-rw-r--r--
L32.pm	3.06 KB	-rw-r--r--
L64.pm	3.1 KB	-rw-r--r--
LOC.pm	7.24 KB	-rw-r--r--
LP.pm	3.13 KB	-rw-r--r--
MB.pm	1.92 KB	-rw-r--r--
MG.pm	1.9 KB	-rw-r--r--
MINFO.pm	3.02 KB	-rw-r--r--
MR.pm	1.9 KB	-rw-r--r--
MX.pm	2.85 KB	-rw-r--r--
NAPTR.pm	4.93 KB	-rw-r--r--
NID.pm	3.18 KB	-rw-r--r--
NIMLOC.pm	1.16 KB	-rw-r--r--
NS.pm	2.04 KB	-rw-r--r--
NSAP.pm	5.38 KB	-rw-r--r--
NULL.pm	1.25 KB	-rw-r--r--
OPT.pm	8.29 KB	-rw-r--r--
PTR.pm	1.92 KB	-rw-r--r--
PX.pm	3.36 KB	-rw-r--r--
RP.pm	2.98 KB	-rw-r--r--
RT.pm	2.93 KB	-rw-r--r--
SOA.pm	6.71 KB	-rw-r--r--
SPF.pm	1.38 KB	-rw-r--r--
SRV.pm	3.32 KB	-rw-r--r--
SSHFP.pm	3.92 KB	-rw-r--r--
TKEY.pm	4.5 KB	-rw-r--r--
TLSA.pm	3.64 KB	-rw-r--r--
TSIG.pm	9.38 KB	-rw-r--r--
TXT.pm	3.16 KB	-rw-r--r--
X25.pm	1.96 KB	-rw-r--r--

Code Editor : DHCID.pm

package Net::DNS::RR::DHCID;

#
# $Id: DHCID.pm 1096 2012-12-28 13:35:15Z willem $
#
use vars qw($VERSION);
$VERSION = (qw$LastChangedRevision: 1096 $)[1]; # Unchanged since 1037

use base Net::DNS::RR;

=head1 NAME

Net::DNS::RR::DHCID - DNS DHCID resource record

=cut

use strict;
use integer;

use MIME::Base64;

sub decode_rdata {			## decode rdata from wire-format octet string
	my $self = shift;
	my ( $data, $offset ) = @_;

my $size = $self->{rdlength} - 3;
	@{$self}{qw(identifiertype digesttype digest)} = unpack "\@$offset nC a$size", $$data;
}

sub encode_rdata {			## encode rdata as wire-format octet string
	my $self = shift;

return '' unless $self->{digest};
	pack 'nC a*', map $self->$_, qw(identifiertype digesttype digest);
}

sub format_rdata {			## format rdata portion of RR string.
	my $self = shift;

my $base64 = MIME::Base64::encode $self->encode_rdata;
	chomp $base64;
	return length($base64) > 40 ? "(\n$base64 )" : $base64;
}

sub parse_rdata {			## populate RR from rdata in argument list
	my $self = shift;

$self->rdata(@_);
}

#   +------------------+------------------------------------------------+
#   |  Identifier Type | Identifier                                     |
#   |       Code       |                                                |
#   +------------------+------------------------------------------------+
#   |      0x0000      | The 1-octet 'htype' followed by 'hlen' octets  |
#   |                  | of 'chaddr' from a DHCPv4 client's DHCPREQUEST |
#   |                  | [7].                                           |
#   |      0x0001      | The data octets (i.e., the Type and            |
#   |                  | Client-Identifier fields) from a DHCPv4        |
#   |                  | client's Client Identifier option [10].        |
#   |      0x0002      | The client's DUID (i.e., the data octets of a  |
#   |                  | DHCPv6 client's Client Identifier option [11]  |
#   |                  | or the DUID field from a DHCPv4 client's       |
#   |                  | Client Identifier option [6]).                 |
#   |  0x0003 - 0xfffe | Undefined; available to be assigned by IANA.   |
#   |      0xffff      | Undefined; RESERVED.                           |
#   +------------------+------------------------------------------------+

sub identifiertype {
	my $self = shift;

$self->{identifiertype} = shift if @_;
	return 0 + ( $self->{identifiertype} || 0 );
}

sub digesttype {
	my $self = shift;

$self->{digesttype} = shift if @_;
	return 0 + ( $self->{digesttype} || 0 );
}

sub digest {
	my $self = shift;

$self->{digest} = shift if @_;
	$self->{digest} || "";
}

sub rdata {
	my $self = shift;

if (@_) {
		my $data = MIME::Base64::decode( join "", @_ ) if @_;
		my $size = length($data) - 3;
		@{$self}{qw(identifiertype digesttype digest)} = unpack "n C a$size", $data;
	}
	return MIME::Base64::encode( $self->encode_rdata, "" ) if defined wantarray;
}

1;
__END__

=head1 SYNOPSIS

use Net::DNS;
    $rr = new Net::DNS::RR('name DHCID algorithm fptype fingerprint');

=head1 DESCRIPTION

DNS RR for Encoding DHCP Information (DHCID)

=head1 METHODS

The available methods are those inherited from the base class augmented
by the type-specific methods defined in this package.

Use of undocumented package features or direct access to internal data
structures is discouraged and could result in program termination or
other unpredictable behaviour.

=head2 identifiertype

$identifiertype = $rr->identifiertype;

The 16-bit identifier type describes the form of host identifier
used to construct the DHCP identity information.

=head2 digesttype

$digesttype = $rr->digesttype;

The 8-bit digest type number describes the message-digest
algorithm used to obfuscate the DHCP identity information.

=head2 digest

$digest = $rr->digest;

Binary representation of the digest of DHCP identity information.

=head2 rdata

The RDATA for this record is stored in master files as a single
block using Base64 representation.

White space characters may appear anywhere within the Base64 text
and will be silently ignored.

=head1 COPYRIGHT

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

=head1 SEE ALSO

L<perl>, L<Net::DNS>, L<Net::DNS::RR>, RFC4701

=cut

${this.title}

Code Editor : DHCID.pm