BLUEGALE weBlog

// フォルダごとの設定部分
// mp4実体ファイルのあるフォルダ
$DirectoryToScan = mb_convert_encoding("g:/video3/所さん~1","SJIS","UTF-8"); 
$ScanCommand1 = mb_convert_encoding("g:\\video3\\所さん~1\\*.mp4","SJIS","UTF-8");
// ハードリンクを作成するフォルダ
$HardlinkFolder = mb_convert_encoding("g:/hardlink/tokoro","SJIS","UTF-8");
$ScanCommand2 = mb_convert_encoding("g:\\hardlink\\tokoro\\*.mp4","SJIS","UTF-8");
// perlRTMPで指定したドキュメントルートからの相対アドレス
$dirHeader = "vs3/tokoro/";
// プレイリストの出力先
$listpath = "d:/webroot/stream/tokoro/";
$title = "所さんの世田谷ベース";
// 以下共通処理
exec("dir " . $ScanCommand1 ,$count1);
exec("dir " . $ScanCommand2 ,$count2);
if(count($count1) > count($count2)){    // エイリアスより実体ファイルの数が多いとき
    exec("del " . $ScanCommand2);
    $fp = fopen($listpath . "list.xml","w");
    // RSSプレイリスト
    fputs($fp, "<rss version=\"2.0\" xmlns:jwplayer=\"http://developer.longtailvideo.com/trac/wiki/FlashFormats\">\n");
    fputs($fp, "<channel>\n<title>" . $title . "</title>\n");
    $dir = opendir($DirectoryToScan);
    while (($file = readdir($dir)) !== false) {
        $FullFileName = realpath($DirectoryToScan.'/'.$file);
        if (is_file($FullFileName) && mb_eregi("\.mp4",$FullFileName)) {
            set_time_limit(10);
            $file8 = mb_convert_encoding($file,"UTF-8","SJIS");
            fputs($fp, " <item>\n");
            // ダミーのファイル名を与えておく
            fputs($fp, "  <enclosure url=\"dummy.flv\" />\n");
           // ファイル名をタイトルに
            fputs($fp, "  <jwplayer:title>" . str_replace(".mp4", "", $file8) . "</jwplayer:title>\n");
           // RTMP指定
            fputs($fp, "  <jwplayer:type>rtmp</jwplayer:type>");
           // 適当に半角英数ファイル名を作成する
            $file8 = urlencode($file8);
            $file8 = str_replace("+","%20",$file8);
           // あまり長いファイル名はperlRTMPに嫌われる
            if(strlen($file8) > 120){
                $pos = strpos($file8,"%",100);
                // 同名(になってしまった)ファイルの連番処理
                if(file_exists($hlFolder . "/" . substr($file8,0,$pos) . ".mp4")){
                    for($i=0;;$i++){
                        if(!file_exists($hlFolder . "/" . substr($file8,0,$pos) . "_" . $i . ".mp4")){
                            $file8 = substr($file8,0,$pos) . "_" . $i . ".mp4";
                            break;
                        }
                    }
                } else {
                    $file8 = substr($file8,0,$pos) . ".mp4";
                }
            }
            // URL Encodeしたままだと、処理系に依っては日本語に戻される可能性があるので%を削除
            $file8 = str_replace("%","",$file8);
            // ここで実際のファイル名を指定
            fputs($fp, "  <jwplayer:file>" . $dirHeader . $file8 . "</jwplayer:file>\n");
            // 自鯖のアドレス(プロトコルはrtmp)
            fputs($fp, "  <jwplayer:streamer>rtmp://www.your-server.jp/</jwplayer:streamer>\n");
            fputs($fp, "</item>\n");
            // ハードリンク作成
            $cmd_exec = "fsutil.exe hardlink create " . $hlFolder . "/" . $file8 . " \"" . $DirectoryToScan . "/" . $file . "\"";
        }
    }
    fputs($fp, "</channel>\n</rss>\n");
    fclose($fp);
}