?¡ë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::PX; # # $Id: PX.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]; # Highest preference sorted first. __PACKAGE__->set_rrsort_func("preference", sub { my ($a,$b)=($Net::DNS::a,$Net::DNS::b); $a->{'preference'} <=> $b->{'preference'} } ); __PACKAGE__->set_rrsort_func("default_sort", __PACKAGE__->get_rrsort_func("preference") ); sub new { my ($class, $self, $data, $offset) = @_; if ($self->{"rdlength"} > 0) { ($self->{"preference"}) = unpack("\@$offset n", $$data); $offset += Net::DNS::INT16SZ(); ($self->{"map822"}, $offset) = Net::DNS::Packet::dn_expand($data, $offset); ($self->{"mapx400"}, $offset) = Net::DNS::Packet::dn_expand($data, $offset); } return bless $self, $class; } sub new_from_string { my ($class, $self, $string) = @_; if ($string && ($string =~ /^(\d+)\s+(\S+)\s+(\S+)$/)) { $self->{"preference"} = $1; $self->{"map822"} =Net::DNS::stripdot($2); $self->{"mapx400"} =Net::DNS::stripdot($3); } return bless $self, $class; } sub rdatastr { my $self = shift; return $self->{"preference"} ? "$self->{preference} $self->{map822}. $self->{mapx400}." : ''; } sub rr_rdata { my ($self, $packet, $offset) = @_; my $rdata = ""; if (exists $self->{"preference"}) { $rdata .= pack("n", $self->{"preference"}); $rdata .= $packet->dn_comp($self->{"map822"}, $offset + length $rdata); $rdata .= $packet->dn_comp($self->{"mapx400"}, $offset + length $rdata); } return $rdata; } sub _normalize_dnames { my $self=shift; $self->_normalize_ownername(); $self->{'map822'}=Net::DNS::stripdot($self->{'map822'}) if defined $self->{'map822'}; $self->{'mapx400'}=Net::DNS::stripdot($self->{'mapx400'}) if defined $self->{'mapx400'}; } sub _canonicalRdata { my ($self) = shift; my $rdata = ""; if (exists $self->{"preference"}) { $rdata .= pack("n", $self->{"preference"}); $rdata .= $self->_name2wire(lc($self->{"map822"})); $rdata .= $self->_name2wire(lc($self->{"mapx400"})); } return $rdata; } 1; __END__ =head1 NAME Net::DNS::RR::PX - DNS PX resource record =head1 SYNOPSIS C; =head1 DESCRIPTION Class for DNS X.400 Mail Mapping Information (PX) resource records. =head1 METHODS =head2 preference print "preference = ", $rr->preference, "\n"; Returns the preference given to this RR. =head2 map822 print "map822 = ", $rr->map822, "\n"; Returns the RFC822 part of the RFC1327 mapping information. =head2 mapx400 print "mapx400 = ", $rr->mapx400, "\n"; Returns the X.400 part of the RFC1327 mapping information. =head1 COPYRIGHT Copyright (c) 1997-2002 Michael Fuhr. Portions Copyright (c) 2002-2004 Chris Reinhardt. Portions Copyright (c) 2005 Olaf Kolkman NLnet Labs. 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, RFC822, RFC 1327, RFC 2163 =cut