Default page

Your IP: 216.73.216.124
Server IP: 50.28.103.30
Server: Linux host.jcukjv-lwsites.com 4.18.0-553.22.1.el8_10.x86_64 #1 SMP Tue Sep 24 05:16:59 EDT 2024 x86_64
Server Software: nginx/1.28.0
PHP Version: 8.3.12
Buat File | Buat Folder

Dir : ~/www/server/mysql/mysql-test/include/

View File Name : if_encrypted.inc

#################### Perl module starts ####################
perl;
my $d_dir = $ENV{'datadir'};
my $s_pattern = $ENV{'search_pattern'};
my $filename = $ENV{'ts_name'};
my $ts_filename="$d_dir/$filename";
open TS_FILE, "<$ts_filename" or die "$!";
@lines = <TS_FILE>;
close TS_FILE;

my $vardir = $ENV{'MYSQLTEST_VARDIR'};
my $filename="$vardir/tmpfile.txt";
open(OP_FILE, '>', $filename) or die "$!";

my $found = 0;
foreach $line (@lines) {
        chomp( $line );
        print OP_FILE;
        if($line =~ /$s_pattern/) {
                $found=1;
        }
}

if ($found == 1) {
        print OP_FILE "table space is Unencrypted.\n";
} else {
        print OP_FILE "table space is Encrypted.\n";
}

close OP_FILE;
EOF
#################### Perl module ends ####################

--echo # Print result
cat_file $MYSQLTEST_VARDIR/tmpfile.txt;