B4BY.588
Home
Terminal
Upload
information
Create File
Create Folder
About
Tools
:
/
usr
/
share
/
mysql-test
/
include
/
Filename :
get_file_permissions.inc
back
Copy
--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