MOON

Server: Apache/2.2.21 (Unix) mod_ssl/2.2.21 OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4

System: Linux vps.panamaemb.org.sg 3.10.0-1160.80.1.vz7.191.4 #1 SMP Thu Dec 15 20:31:06 MSK 2022 x86_64

User: panama (500)

PHP: 5.2.17

Disabled: NONE

Upload Files

File: //proc/3/cwd/usr/share/mysql-test/include/get_file_permissions.inc

--perl
use strict;
my $input_file= $ENV{'_INPUT_FILE_'} or die "Input file is not set";
my $mode = (stat($input_file))[2];
open(FILE, ">", "$ENV{MYSQL_TMP_DIR}/permissions.inc") or die;
my $perm= $mode & 07777;
print FILE "let \$FILE_PERMISSIONS= $perm;\n";
close FILE;
EOF