fix_movie_folder_privs

要求上传五份源代码, 这是重量级的, 苹果达尔文服务器源代码, RTSP, RTP/RTCP等等, 其中RTSP解析, RTP/RTCP接收发送等等高效源码

#!/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" ;
}