webshell

Ghost Exploiter Team Official

C:/Program Files (x86)/Plesk/perl/lib/Net/DNS/RR/

File / Folder	Size	Action
.	-
A.pm	2.21KB	edt ren
AAAA.pm	3.179KB	edt ren
AFSDB.pm	2.534KB	edt ren
APL.pm	6.172KB	edt ren
CAA.pm	3.049KB	edt ren
CERT.pm	4.479KB	edt ren
CNAME.pm	2.106KB	edt ren
DHCID.pm	4.473KB	edt ren
DNAME.pm	2.007KB	edt ren
EUI48.pm	2.461KB	edt ren
EUI64.pm	2.471KB	edt ren
GPOS.pm	3.345KB	edt ren
HINFO.pm	2.321KB	edt ren
HIP.pm	4.327KB	edt ren
IPSECKEY.pm	6.458KB	edt ren
ISDN.pm	2.368KB	edt ren
KX.pm	2.828KB	edt ren
L32.pm	3.058KB	edt ren
L64.pm	3.089KB	edt ren
LOC.pm	7.156KB	edt ren
LP.pm	3.165KB	edt ren
MB.pm	1.924KB	edt ren
MG.pm	1.891KB	edt ren
MINFO.pm	3.079KB	edt ren
MR.pm	1.88KB	edt ren
MX.pm	3.082KB	edt ren
NAPTR.pm	5.115KB	edt ren
NID.pm	3.177KB	edt ren
NS.pm	2.061KB	edt ren
NULL.pm	1.298KB	edt ren
OPENPGPKEY.pm	2.328KB	edt ren
OPT.pm	8.4KB	edt ren
PTR.pm	1.945KB	edt ren
PX.pm	3.458KB	edt ren
RP.pm	3.078KB	edt ren
RT.pm	2.98KB	edt ren
SOA.pm	7.052KB	edt ren
SPF.pm	1.854KB	edt ren
SRV.pm	3.509KB	edt ren
SSHFP.pm	4.035KB	edt ren
TKEY.pm	4.784KB	edt ren
TLSA.pm	3.889KB	edt ren
TSIG.pm	17.736KB	edt ren
TXT.pm	3.215KB	edt ren
X25.pm	1.983KB	edt ren

package Net::DNS::RR::MX;

#
# $Id: MX.pm 1235 2014-07-29 07:58:19Z willem $
#
use vars qw($VERSION);
$VERSION = (qw$LastChangedRevision: 1235 $)[1];

use strict;
use base qw(Net::DNS::RR);

=head1 NAME

Net::DNS::RR::MX - DNS MX resource record

=cut

use integer;

use Net::DNS::DomainName;

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

$self->{preference} = unpack( "\@$offset n", $$data );
	$self->{exchange} = decode Net::DNS::DomainName1035( $data, $offset + 2, @opaque );
}

sub encode_rdata {			## encode rdata as wire-format octet string
	my $self = shift;
	my ( $offset, @opaque ) = @_;

my $exchange = $self->{exchange} || return '';
	my $rdata = pack 'n', $self->preference;
	$rdata .= $exchange->encode( $offset + length($rdata), @opaque );
}

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

my $exchange = $self->{exchange} || return '';
	join ' ', $self->preference, $exchange->string;
}

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

$self->preference(shift) if @_;
	$self->exchange( shift || return );
}

sub defaults() {			## specify RR attribute default values
	my $self = shift;

$self->preference(10);
}

sub preference {
	my $self = shift;

$self->{preference} = 0 + shift if scalar @_;
	return $self->{preference} || 0;
}

sub exchange {
	my $self = shift;

$self->{exchange} = new Net::DNS::DomainName1035(shift) if scalar @_;
	$self->{exchange}->name if defined wantarray;
}

eval {					## avoid compilation failure using ancient perl
	__PACKAGE__->set_rrsort_func(
		'preference',		## sort RRs in numerically ascending order.
		sub { $Net::DNS::a->{'preference'} <=> $Net::DNS::b->{'preference'} }

);

__PACKAGE__->set_rrsort_func( 'default_sort', __PACKAGE__->get_rrsort_func('preference') );
};

1;
__END__

=head1 SYNOPSIS

use Net::DNS;
    $rr = new Net::DNS::RR('name MX preference exchange');

=head1 DESCRIPTION

DNS Mail Exchanger (MX) resource record

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

$preference = $rr->preference;
    $rr->preference( $preference );

A 16 bit integer which specifies the preference
given to this RR among others at the same owner.
Lower values are preferred.

=head2 exchange

$exchange = $rr->exchange;
    $rr->exchange( $exchange );

A domain name which specifies a host willing
to act as a mail exchange for the owner name.

=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.9

=cut