| Server IP : 112.74.42.100 / Your IP : 216.73.216.142 Web Server : nginx/1.20.2 System : Linux iZwz96lx4pjqiy84w4hni7Z 5.10.134-17.3.al8.x86_64 #1 SMP Thu Oct 31 14:29:57 CST 2024 x86_64 User : www ( 1000) PHP Version : 8.0.26 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 : ON | Sudo : ON | Pkexec : ON Directory : /www/server/mysql/mysql-test/include/ |
Upload File : |
# ==== Purpose ====
#
# The sql statement containing REPLACE_STRING_VAL string is replaced by given
# list of parameters and executed.
#
# ==== Usage ====
#
# --let $execute_list= <param1>,<param2>,<param3>
# --let $execute_sql_statement= SELECT REPLACE_STRING_VAL
# --source include/execute_list_command.inc
#
# Parameters:
#
# $execute_list
# The REPLACE_STRING_VAL string in execute_sql_statement statement is
# replaced by list of parameters and executed.
#
# $execute_sql_statement
# The sql statement containing REPLACE_STRING_VAL string is replaced by
# given list of parameters and executed.
--let $result_file = $MYSQLTEST_VARDIR/tmp/exec_list_tmp.inc
--let _RESULT_FILE = $result_file
--let _STATEMENT=$execute_sql_statement
--let $_list= $execute_list
while ($_list)
{
# Set $_rpl_diff_server_i to the first number in the list
--let $_list_i= `SELECT SUBSTRING_INDEX('$_list', ',', 1)`
# Remove $_rpl_diff_server_i from the list
--let $_list= `SELECT SUBSTRING('$_list', LENGTH('$_list_i') + 2)`
--let _REPLACE_STRING_VAL=$_list_i
--perl
use strict;
my $_statement= $ENV{'_STATEMENT'} or die "execute_sql_statement is not set";
my $_replace= $ENV{'_REPLACE_STRING_VAL'} or die "execute_list is not set properly";
my $_search = "REPLACE_STRING_VAL";
my $outfile = $ENV{'_RESULT_FILE'};
$_statement =~ s/$_search/$_replace/;
open(FILE, ">", $outfile) or die "Error $? opening $outfile: $!";
print FILE $_statement or die "Error $? writing to $outfile: $!";
close FILE or die "Error $? closing $outfile: $!";
chmod 0777, $outfile;
EOF
--let $exec_sql_string = `SELECT LOAD_FILE('$result_file')`
--eval $exec_sql_string
}
--remove_file $result_file