| Current Path : /home/usr.opt/mysql57/mysql-test/include/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
| Current File : //home/usr.opt/mysql57/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