403Webshell
Server IP : 104.21.38.3  /  Your IP : 172.69.165.58
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/suite/ndb/include/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /www/server/mysql/src/mysql-test/suite/ndb/include/have_ndb_rqg.inc
--perl
use strict;

use File::Basename;
use IO::File;
use lib "lib/";
use My::Find;

#
# Look for
# - RQG_HOME
# - binaries needed to run ndb rqg scripts
#

#
# Set up paths
#
my $vardir = $ENV{MYSQLTEST_VARDIR} or die "Need MYSQLTEST_VARDIR";
my $mysql_test_dir = $ENV{MYSQL_TEST_DIR} or die "Need MYSQL_TEST_DIR";
my $basedir = dirname($mysql_test_dir);
my $bindir = $ENV{MTR_BINDIR} || $basedir; # Out of source set MTR_BINDIR

#
# Check if the needed jars and libs are available
#

my $runall = my_find_file($basedir,
                          ["storage/ndb/test/rqg" ],
                          "load_and_run.sh", NOT_REQUIRED);

my $loadrqg = my_find_file($basedir,
                          ["storage/ndb/test/rqg" ],
                          "load_rqg.sh", NOT_REQUIRED);

my $runrqg = my_find_file($basedir,
                          ["storage/ndb/test/rqg" ],
                          "run_rqg.sh", NOT_REQUIRED);

my $exe_mysqltest = my_find_bin($bindir,
		                ["client", "bin"],
                                "mysqltest", NOT_REQUIRED);

my $F = IO::File->new("$vardir/tmp/have_ndb_rqg.inc", 'w') or die;
if ($ENV{RQG_HOME}) {
  print $F "--echo RQG_HOME: $ENV{RQG_HOME}\n"
} else {
  print $F "skip Could not find RQG, set environment variable RQG_HOME\n";
}

my $env_mysqltest="";
if ($exe_mysqltest) {
  $env_mysqltest="EXE_MYSQLTEST=$exe_mysqltest"
}
else {
  print $F "skip Could find mysqltest binary\n";
}


if ($runall) {
  print $F "--let \$RUN_ALL= $env_mysqltest bash $runall -p \$MASTER_MYPORT\n"
} else {
  print $F "skip Could not find load_and_run.sh\n";
}

if ($loadrqg) {
  print $F "--let \$LOAD_RQG= $env_mysqltest bash $loadrqg -p \$MASTER_MYPORT\n"
} else {
  print $F "skip Could not find load_rqg.sh\n";
}

if ($runrqg) {
  print $F "--let \$RUN_RQG= $env_mysqltest bash $runrqg -p \$MASTER_MYPORT\n"
} else {
  print $F "skip Could not find run_rqg.sh\n";
}

$F->close();

EOF

--source $MYSQLTEST_VARDIR/tmp/have_ndb_rqg.inc

Youez - 2016 - github.com/yon3zu
LinuXploit