?PNG
IHDR ? f ??C1 sRGB ?? gAMA ?a pHYs ? ??od GIDATx^LeY?a?("Bh?_????q5k?*:t0A-o??]VkJM??f?8\k2ll1]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
Hostname/FQDN.pm 0000666 00000010666 15050157522 0007427 0 ustar 00 package Sys::Hostname::FQDN;
#use 5.006;
use strict;
#use warnings;
use Carp;
use vars qw($VERSION @ISA @EXPORT_OK);
$VERSION = do { my @r = (q$Revision: 0.11 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
require Exporter;
require DynaLoader;
#use AutoLoader;
@ISA = qw(Exporter DynaLoader);
@EXPORT_OK = qw (
asciihostinfo
gethostinfo
inet_ntoa
inet_aton
fqdn
short
);
bootstrap Sys::Hostname::FQDN $VERSION;
# Preloaded methods go here.
sub DESTROY {};
# Autoload methods go after =cut, and are processed by the autosplit program.
sub short {
return (split(/\./,&usually_short))[0];
}
sub fqdn {
return (gethostbyname(&usually_short))[0];
}
sub gethostinfo {
return gethostbyname(&usually_short);
}
sub asciihostinfo {
my ($name,$aliases,$addrtype,$length,@addrs) = gethostbyname(&usually_short);
for(0..$#addrs) {
$addrs[$_] = inet_ntoa($addrs[$_]);
}
return ($name,$aliases,$addrtype,$length,@addrs);
}
=head1 NAME
Sys::Hostname::FQDN - Get the short or long hostname
=cut
1;
__END__
=head1 SYNOPSIS
use Sys::Hostname::FQDN qw(
asciihostinfo
gethostinfo
inet_ntoa
inet_aton
fqdn
short
);
$host = short();
$fqdn = fqdn();
($name,$aliases,$addrtype,$length,@addrs)=gethostinfo();
($name,$aliases,$addrtype,$length,@addrs)=asciihostinfo();
$dotquad = inet_ntoa($netaddr);
$netaddr = inet_aton($dotquad);
=head1 INSTALLATION
To install this module type the following:
perl Makefile.PL
make
make test
make install
Solaris users, see the 'hints' subdirectory if you have problems with the
build.
=head1 DESCRIPTION
B uses the host 'C' library to discover the (usually)
short host name, then uses (perl) gethostbyname to extract the real
hostname.
The results from gethostbyname are exported as B and
B as a convenience since they are available. Similarly, the
'C' library functions B and B are exported.
=over 4
=item $host = short();
returns the host part of this host's FQDN.
=item $fqdn = fqdn();
returns the fully qualified host name of this host.
=item ($name,$aliases,$addrtype,$length,@addrs)=gethostinfo();
returns:
$name fully qualifed host name of this host.
$aliases alternate names for this host.
$addrtype The type of address; always AF_INET at present.
$length The length of the address in bytes.
@addrs array of network addresses for this host
in network byte order.
=item ($name,$aliases,$addrtype,$length,@addrs)=asciihostinfo();
returns:
$name fully qualifed host name of this host.
$aliases alternate names for this host.
$addrtype The type of address; always AF_INET at present.
$length The length of the address in bytes.
@addrs array of dot quad IP addresses for this host.
=item $dotquad = inet_ntoa($netaddr);
input: packed network address in network byte order.
returns: dot quad IP address.
=item $netaddr = inet_aton($dotquad);
input: dot quad IP address.
returns: packed network address in network byte order.
=back
=head1 DEPENDENCIES
none
=head1 EXPORT
None by default
=head1 EXPORT_OK
asciihostinfo
gethostinfo
inet_ntoa
inet_aton
fqdn
short
=head1 ACKNOWLEDGEMENTS
The workaround for systems that do not have 'inet_aton' is taken directly
from Socket.xs in the Perl 5 kit for perl-5.8.0 by Larry Wall, copyright
1989-2002. Thank you Larry for making PERL possible for all of us.
=head1 AUTHOR
Michael Robinton
=head1 COPYRIGHT AND LICENCE
Copyright 2003-2010, Michael Robinton
This module is free software; you can redistribute it and/or modify it
under the terms of either:
a) the GNU General Public License as published by the Free Software
Foundation; either version 1, or (at your option) any later version,
or
b) the "Artistic License" which comes with this module.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either
the GNU General Public License or the Artistic License for more details.
You should have received a copy of the Artistic License with this
module, in the file ARTISTIC. If not, I'll be glad to provide one.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
=cut
Syslog/Syslog.so 0000666 00000051430 15050164613 0007657 0 ustar 00 ELF > ` @ L @ 8 @ LC LC PC PC PC H ` HH HH HH $ $ Ptd x? x? x? t t Qtd GNU ]ov 5`00 . `
@$A. 6 : fZxmy@yO|өBE/K6qX98jT,Ԙ0[ k e f + B ` O H Q " y Y q 0 " j ? 3 , 0/ V u 1 ^ R 8 K `' ^ K > # D K 3 : 6 ) ^ ! % ^ __gmon_start__ _init _fini __cxa_finalize _Jv_RegisterClasses Perl_Gthr_key_ptr pthread_getspecific Perl_get_hv Perl_hv_common_key_len Perl_newSV_type Perl_sv_upgrade Perl_newCONSTSUB Perl_croak boot_Sys__Syslog Perl_Istack_sp_ptr Perl_Imarkstack_ptr_ptr Perl_Istack_base_ptr Perl_newSVpv Perl_new_version Perl_sv_derived_from Perl_vcmp XS_Sys__Syslog_constant Perl_newXS XS_Sys__Syslog_LOG_FAC XS_Sys__Syslog_LOG_PRI XS_Sys__Syslog_LOG_MAKEPRI XS_Sys__Syslog_LOG_MASK XS_Sys__Syslog_LOG_UPTO XS_Sys__Syslog_openlog_xs XS_Sys__Syslog_syslog_xs XS_Sys__Syslog_setlogmask_xs XS_Sys__Syslog_closelog_xs Perl_newSViv Perl_Isub_generation_ptr Perl_Iunitcheckav_ptr Perl_Iscopestack_ix_ptr Perl_call_list Perl_Isv_yes_ptr Perl_sv_2pv_flags Perl_form Perl_get_sv Perl_vstringify closelog Perl_sv_free2 Perl_croak_xs_usage Perl_sv_2iv_flags Perl_Iop_ptr Perl_Icurpad_ptr setlogmask Perl_sv_setiv Perl_mg_set Perl_sv_newmortal __syslog_chk Perl_newSVsv openlog Perl_newSVpvf_nocontext Perl_sv_2mortal libc.so.6 _edata __bss_start _end GLIBC_2.4 GLIBC_2.2.5 ii
ui
C u= C = C = C = C = D = D = 8D = PD = hD = D = D = D = D = D > D > E > (E > @E (> XE 3> pE >> E I> E T> E _> E j> E r> F {> F > 0F > HF > `F > xF > F > F > F > F > F > G > G > 8G ? PG ? hG ? G *? G 2? G A? G M? G U? G b? H l? @H @H I I I . I / I ; I I 0 J 1 J <