fix_movie_folder_privs

来自「要求上传五份源代码, 这是重量级的, 苹果达尔文服务器源代码, RTSP, RT」· 代码 · 共 10 行

#!/usr/bin/perl

$install_loc = $_[0];
$movies_folder = "$install_loc/Library/QuickTimeStreaming/Movies";

if (-e "$movies_folder") {
    print ("Changing all folders and files in $movies_folder to owner=qtss, group=admin.\n");
	exec "$3/usr/sbin/chown -R 76:80 $movies_folder" ;
}