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 /
os2 /
OS2 /
OS2-REXX /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
rx_cmprt.t
1.38
KB
-r--r--r--
2014-12-27 11:48
rx_dllld.t
955
B
-r--r--r--
2014-12-27 11:48
rx_emxrv.t
1.58
KB
-r--r--r--
2014-12-27 11:48
rx_objcall.t
767
B
-r--r--r--
2014-12-27 11:48
rx_sql.test
1.74
KB
-r--r--r--
2014-12-27 11:48
rx_tiesql.test
1.39
KB
-r--r--r--
2014-12-27 11:48
rx_tievar.t
1.56
KB
-r--r--r--
2014-12-27 11:48
rx_tieydb.t
972
B
-r--r--r--
2014-12-27 11:48
rx_varset.t
1.02
KB
-r--r--r--
2014-12-27 11:48
rx_vrexx.t
1.81
KB
-r--r--r--
2014-12-27 11:48
Save
Rename
BEGIN { chdir 't' if -d 't/lib'; @INC = '../lib' if -d 'lib'; require Config; import Config; if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) { print "1..0\n"; exit 0; } } use OS2::REXX; $path = $ENV{LIBPATH} || $ENV{PATH} or die; foreach $dir (split(';', $path)) { next unless -f "$dir/RXU.DLL"; $found = "$dir/RXU.DLL"; last; } $found or print "1..0 # skipped: cannot find RXU.DLL\n" and exit; print "1..5\n"; $module = DynaLoader::dl_load_file($found) or die "not ok 1\n# load\n"; print "ok 1\n"; $address = DynaLoader::dl_find_symbol($module, "RXPROCID") or die "not ok 2\n# find\n"; print "ok 2\n"; $result = OS2::REXX::_call("RxProcId", $address) or die "not ok 3\n# REXX"; print "ok 3\n"; ($pid, $ppid, $ssid) = split(/\s+/, $result); $pid == $$ ? print "ok 4\n" : print "not ok 4\n# pid\n"; $ssid == 1 ? print "ok 5\n" : print "not ok 5\n# pid\n"; print "# pid=$pid, ppid=$ppid, ssid=$ssid\n";