Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
ext /
Sys-Hostname /
Delete
Unzip
Name
Size
Permission
Date
Action
blib
[ DIR ]
drwxr-xr-x
2016-10-10 17:40
t
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
Hostname.bs
0
B
-rw-r--r--
2016-10-10 17:41
Hostname.c
6.94
KB
-rw-r--r--
2016-10-10 17:40
Hostname.o
3.65
KB
-rw-r--r--
2016-10-10 17:40
Hostname.pm
3.49
KB
-r--r--r--
2014-12-27 11:49
Hostname.xs
1.44
KB
-r--r--r--
2014-12-27 11:49
Makefile
29.28
KB
-rw-r--r--
2016-10-10 17:40
Makefile.PL
1.55
KB
-rw-r--r--
2016-10-10 17:40
pm_to_blib
0
B
-rw-r--r--
2016-10-10 17:40
Save
Rename
#define PERL_NO_GET_CONTEXT #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #if defined(I_UNISTD) && defined(HAS_GETHOSTNAME) # include <unistd.h> #endif /* a reasonable default */ #ifndef MAXHOSTNAMELEN # define MAXHOSTNAMELEN 256 #endif /* swiped from POSIX.xs */ #if defined(__VMS) && !defined(__POSIX_SOURCE) # if ((__VMS_VER >= 70000000) && (__DECC_VER >= 50200000)) || (__CRTL_VER >= 70000000) # include <utsname.h> # endif #endif #ifdef I_SYSUTSNAME # include <sys/utsname.h> #endif MODULE = Sys::Hostname PACKAGE = Sys::Hostname void ghname() PREINIT: IV retval = -1; SV *sv; PPCODE: EXTEND(SP, 1); #ifdef HAS_GETHOSTNAME { char tmps[MAXHOSTNAMELEN]; retval = PerlSock_gethostname(tmps, sizeof(tmps)); sv = newSVpv(tmps, 0); } #else # ifdef HAS_PHOSTNAME { PerlIO *io; char tmps[MAXHOSTNAMELEN]; char *p = tmps; char c; io = PerlProc_popen(PHOSTNAME, "r"); if (!io) goto check_out; while (PerlIO_read(io, &c, sizeof(c)) == 1) { if (isSPACE(c) || p - tmps >= sizeof(tmps)) break; *p++ = c; } PerlProc_pclose(io); retval = 0; sv = newSVpvn(tmps, p - tmps); } # else # ifdef HAS_UNAME { struct utsname u; if (PerlEnv_uname(&u) == -1) goto check_out; sv = newSVpv(u.nodename, 0); retval = 0; } # endif # endif #endif #ifndef HAS_GETHOSTNAME check_out: #endif if (retval == -1) XSRETURN_UNDEF; else PUSHs(sv_2mortal(sv));