403Webshell
Server IP : 104.21.38.3  /  Your IP : 172.71.81.10
Web Server : Apache
System : Linux krdc-ubuntu-s-2vcpu-4gb-amd-blr1-01.localdomain 5.15.0-142-generic #152-Ubuntu SMP Mon May 19 10:54:31 UTC 2025 x86_64
User : www ( 1000)
PHP Version : 7.4.33
Disable Function : passthru,exec,system,putenv,chroot,chgrp,chown,shell_exec,popen,proc_open,pcntl_exec,ini_alter,ini_restore,dl,openlog,syslog,readlink,symlink,popepassthru,pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,imap_open,apache_setenv
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : ON  |  Pkexec : ON
Directory :  /www/server/mysql/src/mysql-test/include/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /www/server/mysql/src/mysql-test/include/wl6301.inc
--source include/not_windows.inc

--perl
my $MYSQL = $ENV{'MYSQL'};
my $MYSQLADMIN = $ENV{'MYSQLADMIN'};
my $MASTER_MYPORT = $ENV{'MASTER_MYPORT'};
my $MYSQLTEST_VARDIR = $ENV{'MYSQLTEST_VARDIR'};
my $LOG_FILE = $ENV{'WL6301_LOG_FILE'};

my @ipv4_addresses = split (/\n/, `ifconfig | grep 'inet addr' | sed 's/^.*inet addr://' | sed 's/ .*\$//'`);
my @ipv6_addresses = split (/\n/, `ifconfig | grep 'inet6 addr.*Scope:Global' | sed 's/^.*inet6 addr: //' | sed 's/ .*\$//' | sed 's|/.*\$||'`);

push (@ipv6_addresses, '::1');

open (LOGFH, ">$LOG_FILE") or
  die "Can not open '$LOG_FILE': $!\n";

my $ipv4_failed = 0;

foreach my $ip (@ipv4_addresses)
{
  print LOGFH "- ipv4: '$ip'\n";

  my $rc =
    system(
      "$MYSQL " .
      "--host=127.0.0.1 " .
      "--port=$MASTER_MYPORT " .
      "--user=root " .
      "test " .
      "-e 'CREATE USER u1@$ip;'");

  print LOGFH "  CREATE status: $rc\n";

  $ipv4_failed |= $rc;

  my $rc =
    system(
      "$MYSQL " .
      "--host=127.0.0.1 " .
      "--port=$MASTER_MYPORT " .
      "--user=root " .
      "test " .
      "-e 'GRANT ALL PRIVILEGES ON test.* TO u1@$ip;'");

  print LOGFH "  GRANT status: $rc\n";

  $ipv4_failed |= $rc;

  $rc =
    system(
      "$MYSQLADMIN " .
      "--host=$ip " .
      "--port=$MASTER_MYPORT " .
      "--user=u1 " .
      "ping > /dev/null 2>&1");

  print LOGFH "  Connect u1@$ip status: $rc\n";

  $ipv4_failed |= $rc;

  $rc =
    system(
      "$MYSQL " .
      "--host=127.0.0.1 " .
      "--port=$MASTER_MYPORT " .
      "--user=root " .
      "test " .
      "-e 'DROP USER u1@$ip;'");

  print LOGFH "  DROP USER status: $rc\n";

  $ipv4_failed |= $rc;
}

my $ipv6_failed = 0;

foreach my $ip (@ipv6_addresses)
{
  print LOGFH "- ipv6: '$ip'\n";

  my $rc =
    system(
      "$MYSQL " .
      "--host=127.0.0.1 " .
      "--port=$MASTER_MYPORT " .
      "--user=root " .
      "test " .
      "-e 'CREATE USER u1@$ip;'");

  print LOGFH "  CREATE status: $rc\n";

  $ipv4_failed |= $rc;

  my $rc =
    system(
      "$MYSQL " .
      "--host=127.0.0.1 " .
      "--port=$MASTER_MYPORT " .
      "--user=root " .
      "test " .
      "-e 'GRANT ALL PRIVILEGES ON test.* TO u1@$ip;'");

  print LOGFH "  GRANT status: $rc\n";

  $ipv6_failed |= $rc;

  $rc =
    system(
      "$MYSQLADMIN " .
      "--host=$ip " .
      "--port=$MASTER_MYPORT " .
      "--user=u1 " .
      "ping > /dev/null 2>&1");

  print LOGFH "  Connect u1@$ip status: $rc\n";

  $ipv6_failed |= $rc;

  $rc =
    system(
      "$MYSQL " .
      "--host=127.0.0.1 " .
      "--port=$MASTER_MYPORT " .
      "--user=root " .
      "test " .
      "-e 'DROP USER u1@$ip;'");

  print LOGFH "  DROP USER status: $rc\n";

  $ipv6_failed |= $rc;
}

close LOGFH;

unless ($ipv4_failed)
{
  print "IPv4 connectivity: OK\n";
}
else
{
  print "IPv4 connectivity: FAIL\n";
}

unless ($ipv6_failed)
{
  print "IPv6 connectivity: OK\n";
}
else
{
  print "IPv6 connectivity: FAIL\n";
}

EOF

Youez - 2016 - github.com/yon3zu
LinuXploit