Current File : /home/mmdealscpanel/yummmdeals.com/Sys.tar
Hostname.pm000064400000006763150330154600006671 0ustar00package Sys::Hostname;

use strict;

use Carp;

require Exporter;

our @ISA     = qw/ Exporter /;
our @EXPORT  = qw/ hostname /;

our $VERSION;

our $host;

BEGIN {
    $VERSION = '1.20';
    {
	local $SIG{__DIE__};
	eval {
	    require XSLoader;
	    XSLoader::load();
	};
	warn $@ if $@;
    }
}


sub hostname {

  # method 1 - we already know it
  return $host if defined $host;

  # method 1' - try to ask the system
  $host = ghname() if defined &ghname;
  return $host if defined $host;

  if ($^O eq 'VMS') {

    # method 2 - no sockets ==> return DECnet node name
    eval { local $SIG{__DIE__}; $host = (gethostbyname('me'))[0] };
    if ($@) { return $host = $ENV{'SYS$NODE'}; }

    # method 3 - has someone else done the job already?  It's common for the
    #    TCP/IP stack to advertise the hostname via a logical name.  (Are
    #    there any other logicals which TCP/IP stacks use for the host name?)
    $host = $ENV{'ARPANET_HOST_NAME'}  || $ENV{'INTERNET_HOST_NAME'} ||
            $ENV{'MULTINET_HOST_NAME'} || $ENV{'UCX$INET_HOST'}      ||
            $ENV{'TCPWARE_DOMAINNAME'} || $ENV{'NEWS_ADDRESS'};
    return $host if $host;

    # method 4 - does hostname happen to work?
    my($rslt) = `hostname`;
    if ($rslt !~ /IVVERB/) { ($host) = $rslt =~ /^(\S+)/; }
    return $host if $host;

    # rats!
    $host = '';
    croak "Cannot get host name of local machine";  

  }
  elsif ($^O eq 'MSWin32') {
    ($host) = gethostbyname('localhost');
    chomp($host = `hostname 2> NUL`) unless defined $host;
    return $host;
  }
  else {  # Unix
    # is anyone going to make it here?

    local $ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin'; # Paranoia.

    # method 2 - syscall is preferred since it avoids tainting problems
    # XXX: is it such a good idea to return hostname untainted?
    eval {
	local $SIG{__DIE__};
	require "syscall.ph";
	$host = "\0" x 65; ## preload scalar
	syscall(&SYS_gethostname, $host, 65) == 0;
    }

    # method 2a - syscall using systeminfo instead of gethostname
    #           -- needed on systems like Solaris
    || eval {
	local $SIG{__DIE__};
	require "sys/syscall.ph";
	require "sys/systeminfo.ph";
	$host = "\0" x 65; ## preload scalar
	syscall(&SYS_systeminfo, &SI_HOSTNAME, $host, 65) != -1;
    }

    # method 3 - trusty old hostname command
    || eval {
	local $SIG{__DIE__};
	local $SIG{CHLD};
	$host = `(hostname) 2>/dev/null`; # BSDish
    }

    # method 4 - use POSIX::uname(), which strictly can't be expected to be
    # correct
    || eval {
	local $SIG{__DIE__};
	require POSIX;
	$host = (POSIX::uname())[1];
    }

    # method 5 - sysV uname command (may truncate)
    || eval {
	local $SIG{__DIE__};
	$host = `uname -n 2>/dev/null`; ## sysVish
    }

    # bummer
    || croak "Cannot get host name of local machine";  

    # remove garbage 
    $host =~ tr/\0\r\n//d;
    $host;
  }
}

1;

__END__

=head1 NAME

Sys::Hostname - Try every conceivable way to get hostname

=head1 SYNOPSIS

    use Sys::Hostname;
    $host = hostname;

=head1 DESCRIPTION

Attempts several methods of getting the system hostname and
then caches the result.  It tries the first available of the C
library's gethostname(), C<`$Config{aphostname}`>, uname(2),
C<syscall(SYS_gethostname)>, C<`hostname`>, C<`uname -n`>,
and the file F</com/host>.  If all that fails it C<croak>s.

All NULs, returns, and newlines are removed from the result.

=head1 AUTHOR

David Sundstrom E<lt>F<sunds@asictest.sc.ti.com>E<gt>

Texas Instruments

XS code added by Greg Bacon E<lt>F<gbacon@cs.uah.edu>E<gt>

=cut

Hostname/Hostname.so000075500000016760150562635320010467 0ustar00ELF>	@�@8	@�� `
`
 `
 �� x
x
 x
 888$$ppp  S�tdppp  P�tdxxx,,Q�tdR�td`
`
 `
 ��GNU29�Ǘ%��'�b�%�5A�@0BE���|�qX�$�� �� �q�~�e, F") < 0 ��
Y__gmon_start___ITM_deregisterTMCloneTable_ITM_registerTMCloneTable__cxa_finalizelibpthread.so.0gethostnamePerl_newSVpvPerl_sv_2mortalPerl_stack_grow__stack_chk_failPerl_croak_xs_usageboot_Sys__HostnamePerl_xs_handshakePerl_newXS_deffilePerl_xs_boot_epiloglibperl.so.5.26libc.so.6_edata__bss_start_endGLIBC_2.2.5GLIBC_2.4ui	Aii
M`
 �	h
 p	p
 p
 � � � � 
� � � � � � � 	� 
� � 
��H��H�I H��t��H����5� �%� ��h�������h��������h�������h�������h�������h�������h�������h��q������h��a������h	��Q�������%% D���% D���% D���%
 D���% D���%� D���%� D���%� D���%� D���%� DH�=� H�� H9�tH�� H��t	�����H�=� H�5� H)�H��H��H��?H�H�tH�� H��t��fD�����=� u+UH�=r H��tH�=� �Y����d����] ]������w������AVAUATUSH��H��PH�/dH�%(H�D$H1�H�GxH��H�P�H�WxHcH�GH��H)�H��H������H�G I��H)�H����I��@L�����1�L��H��A���[���A���t5H��H��H���f���H�EH�+H�D$HdH3%(uOH��P[]A\A]A^�f�H�CA��H��8Mc�J��H�CJ��H��DH��H�����H���e������H��H�5����ff.����UH��L�Z1�SH�
UH��H�S���
H�����H��H�5FH����������H����H��[]�G�����H��H���1.20v5.26.0Hostname.cSys::Hostname::ghname;,8���H��pH����h����zRx�$���FJw�?:*3$"Dp����@\����F�B�B �A(�A0�G��
0A(A BBBC$�����YE�M�Z aFAGNU��	p	p
 U�
<`
 h
 ���o`H�
Wx ����	���o���o����o�o����ox
 ���� 0@PGA$3a1�IGA$3p1113�	9GA*GA$annobin gcc 8.5.0 20210514GA$plugin name: gcc-annobinGA$running gcc 8.5.0 20210514GA*GA*GA!
GA*FORTIFYGA+GLIBCXX_ASSERTIONSGA*GOW*�GA*cf_protectionGA+omit_frame_pointerGA+stack_clashGA!stack_realign
GA*FORTIFY�	�
GA+GLIBCXX_ASSERTIONSHostname.so-5.26.3-423.el8_10.x86_64.debug��ձ�7zXZ�ִF!t/��
�]?�E�h=��ڊ�2N�s\�ٕwIZ:@�o��z
}�Y���Omuא����{�7ğ�-[_9C<���AC{x̺b��h��R-G���(Z�P��y�$O����<�Ie�X<.��dx�En�/׽��[�+.|h\���a�.k�Ϟ,W;����e�i�W�`c�|oؚ*�+����l	�HA:��9��]�-�˰J�z�Zc��>y��s���wfRji�"K�P���u�e�]6��z�:��q�^	�{��Gx�x��&C]`7��"f3���+(����21��n�r�F.li|�2�-kx(�!��p�[~I`?��ۚ�c��|W$��c� �2~F��c��4F�˝/��2_4�4pCir�E���v���ZT�Syt��)��<�GGun8
��з�%wz��SwSǔ}jJc��_���x_e(;Yv$�p1�^X�t�?�;�_�L����~m�xX}�>�5Nx�3��5G�9�e�U�q��c�a0�f
ʣj�-%���>7g�
�e�ovs�RF4�ݖ�$�c��Ca�	���V�hG̱�+�52�����Ur�E�~�s_�i� ��j�~�A����LJ��럜k��ܖ�l�m6�)݅��"�P��봺����'�p;�ڎF�T
,m3
�U�P�X�Ř�TV���E��Ǖ44���þ�;1f-�x�~A��‡\i?-/){�����,'�S�o�+�Q6H�~��2�_�=��C�
DX�ϝ���ȯ�ҕ�\����e^�Cz��95�Y��@�V����6*���g�YZ.shstrtab.note.gnu.build-id.gnu.hash.dynsym.dynstr.gnu.version.gnu.version_r.rela.dyn.rela.plt.init.plt.sec.text.fini.rodata.eh_frame_hdr.eh_frame.note.gnu.property.init_array.fini_array.data.rel.ro.dynamic.got.bss.gnu.build.attributes.gnu_debuglink.gnu_debugdata88$���o``4(���0HHW8���o��$E���o��0T���^B���h��c���n``�w		9}<<
�2II.�xx,�����pp �`
 `
�h
 h
�p
 p
�x
 x
�x x�� �`HH0xP�"