?¡ëPNG  IHDR ? f ??C1 sRGB ??¨¦ gAMA ¡À? ¨¹a pHYs ? ??o¡§d GIDATx^¨ª¨¹L¡±¡Âe¡ÂY?a?("Bh?_¨°???¡é¡ì?q5k?*:t0A-o??£¤]VkJ¡éM??f?¡À8\k2¨ªll¡ê1]q?¨´???T
Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found in /home/user1137782/www/china1.by/classwithtostring.php on line 86

Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 213

Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 214

Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 215

Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 216

Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 217

Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 218
package Net::DNS::RR::RP; # # $Id: RP.pm 718 2008-02-26 21:49:20Z olaf $ # use strict; BEGIN { eval { require bytes; } } use vars qw(@ISA $VERSION); @ISA = qw(Net::DNS::RR); $VERSION = (qw$LastChangedRevision: 718 $)[1]; sub new { my ($class, $self, $data, $offset) = @_; if ($self->{"rdlength"} > 0) { ($self->{"mbox"}, $offset) = Net::DNS::Packet::dn_expand($data, $offset); ($self->{"txtdname"}, $offset) = Net::DNS::Packet::dn_expand($data, $offset); } return bless $self, $class; } sub new_from_string { my ($class, $self, $string) = @_; if ($string && ($string =~ /^(\S+)\s+(\S+)$/)) { $self->{"mbox"} = Net::DNS::stripdot($1); $self->{"txtdname"} = Net::DNS::stripdot($2); } return bless $self, $class; } sub rdatastr { my $self = shift; if (exists $self->{"mbox"}) { return "$self->{mbox}. $self->{txtdname}."; } return ''; } sub rr_rdata { my ($self, $packet, $offset) = @_; my $rdata = ""; if (exists $self->{"mbox"}) { $rdata .= $packet->dn_comp($self->{"mbox"}, $offset); $rdata .= $packet->dn_comp($self->{"txtdname"}, $offset + length $rdata); } return $rdata; } sub _normalize_dnames { my $self=shift; $self->_normalize_ownername(); $self->{'mbox'}=Net::DNS::stripdot($self->{'mbox'}) if defined $self->{'mbox'}; $self->{'txtdname'}=Net::DNS::stripdot($self->{'txtdname'}) if defined $self->{'txtdname'}; } sub _canonicalRdata { my $self = shift; my $rdata = ""; if (exists $self->{"mbox"}) { $rdata .= $self->_name2wire(lc($self->{"mbox"})); $rdata .= $self->_name2wire(lc($self->{"txtdname"})); } return $rdata; } 1; __END__ =head1 NAME Net::DNS::RR::RP - DNS RP resource record =head1 SYNOPSIS C; =head1 DESCRIPTION Class for DNS Responsible Person (RP) resource records. =head1 METHODS =head2 mbox print "mbox = ", $rr->mbox, "\n"; Returns a domain name that specifies the mailbox for the responsible person. =head2 txtdname print "txtdname = ", $rr->txtdname, "\n"; Returns a domain name that specifies a TXT record containing further information about the responsible person. =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, L, L, L, L, L, L, RFC 1183 Section 2.2 =cut