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 : TXT.pm

package Net::DNS::RR::TXT;

#
# $Id: TXT.pm 1079 2012-12-14 21:30:38Z willem $
#
use vars qw($VERSION);
$VERSION = (qw$LastChangedRevision: 1079 $)[1];

use base Net::DNS::RR;

=encoding utf8

=head1 NAME

Net::DNS::RR::TXT - DNS TXT resource record

=cut

use strict;
use integer;

use Carp;
use Net::DNS::Text;

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

my $limit = $offset + $self->{rdlength};
	my $text;
	$self->{txtdata} = [];
	while ( $offset < $limit ) {
		( $text, $offset ) = decode Net::DNS::Text( $data, $offset );
		push @{$self->{txtdata}}, $text;
	}

croak('corrupt TXT data') unless $offset == $limit;	# more or less FUBAR
}

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

my $txtdata = $self->{txtdata} || [];
	join '', map $_->encode, @$txtdata;
}

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

my $txtdata = $self->{txtdata} || [];
	join ' ', map $_->string, @$txtdata;
}

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

@{$self}{txtdata} = [map Net::DNS::Text->new($_), @_];
}

sub txtdata {
	my $self = shift;

@{$self}{txtdata} = [map Net::DNS::Text->new($_), @_] if scalar @_;

my $txtdata = $self->{txtdata} || [];

return ( map $_->value, @$txtdata ) if wantarray;

join ' ', map $_->value, @$txtdata if defined wantarray;
}

sub char_str_list {			## historical
	return (&txtdata);
}

sub rdatastr {			## SpamAssassin workaround, per CPAN RT#81760
	my $txtdata = shift->{txtdata} || [];
	join ' ', map $_->quoted_string, @$txtdata;
}

package Net::DNS::Text;

my $QQ = _decode_utf8( pack 'C', 34 );

sub quoted_string {
	my $string = shift->string;
	return $string if $string =~ /^$|\s|["\$'();@]/;	# should already be quoted
	join '', $QQ, $string, $QQ;				# quote previously unquoted string
}

1;
__END__

=head1 SYNOPSIS

use Net::DNS;
    $rr = new Net::DNS::RR( 'name TXT    txtdata ...' );

$rr = new Net::DNS::RR(
	...
	txtdata => 'single text string'
	  or
	txtdata => [ 'multiple', 'strings', ... ]
	);

use encoding 'utf8';
    $rr = new Net::DNS::RR( 'jp  TXT     古池や　蛙飛込む　水の音' );

=head1 DESCRIPTION

Class for DNS Text (TXT) resource records.

=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 txtdata

$string = $rr->txtdata;
    @list   = $rr->txtdata;

When invoked in scalar context, txtdata() returns the descriptive text
as a single string, regardless of the number of elements.

In a list context, txtdata() returns a list of the text elements.

=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>, RFC1035 Section 3.3.14, RFC3629

=cut

${this.title}

Code Editor : TXT.pm