チェンジセット 125: trunk/install/perl/ipodtranscode.pl

コミット日時:

2010/10/19 19:07:34 (15 年前)

コミッタ:

sorshi

ログメッセージ:

MP4変換時に、
・tss.pyでHDストリーム分離
・それに失敗したらWINE経由でTsSplitter?.exeで分離
という工程を踏むように変更。
HDストリームのみのTSは変換終了後破棄。

ファイル:

• trunk/install/perl/ipodtranscode.pl (更新) (9 diffs)

trunk/install/perl/ipodtranscode.pl

@@ -71 +71 @@
-$mp4filenamestring = &mp4filenamestringbuild($pid);
-
+if (-e $inputmpeg2){#MPEG2ファイルが存在していれば
+
-&writelog("ipodtranscode DEBUG mp4filenamestring $mp4filenamestring");
-#展開ディレクトリ作成
@@ -145 +147 @@
-}
-if ($filestatus <= $FILESTATUSTRANSCODEFFMPEG){
-
+
-        # H.264出力
-        $trcnmpegfile = $inputmpeg2 ;
@@ -158 +160 @@
-        # クオリティごとに
-        if (($trconqty eq "")||($trconqty == 1)){
-
+threads 0 -
-        }elsif($trconqty == 2){
-#       $ffmpegencopt = " -s 480x272 -deinterlace -r 29.97 -vcodec libx264 -g 300 -b 400000 -level 13 -loop 1 -sc_threshold 60 -partp4x4 1 -rc_eq 'blurCplx^(1-qComp)' -refs 3 -maxrate 700000 -async 50 -f h264 $filenamebody.264";
-# for ffmpeg 0.5 or later
-
+threads 0  -
-        }elsif($trconqty == 3){#640x352
-#       $ffmpegencopt = " -s 640x352 -deinterlace -r 29.97 -vcodec libx264 -g 100 -b 600000 -level 13 -loop 1 -sc_threshold 60 -partp4x4 1 -rc_eq 'blurCplx^(1-qComp)' -refs 3 -maxrate 700000 -async 50 -f h264 $filenamebody.264";
-# for ffmpeg 0.5 or later
-
+threads 0  -
-        }
-        &changefilestatus($pid,$FILESTATUSTRANSCODEFFMPEG);
-
-
-
-
+
+
+
-        if (! -e "$filenamebody.264"){
-                &changefilestatus($pid,$FILESTATUSTRANSCODETSSPLITTING);
@@ -180 +181 @@
-                &writelog("ipodtranscode tss $inputmpeg2");
-                system("$toolpath/perl/tool/tss.py $inputmpeg2");
-                
-                }else{
-                # TsSplit
-
-
+#
+#
-                }
-                if(-e "${filenamebody}_tss.m2t"){
@@ -192 +192 @@
-                }else{
-                &writelog("ipodtranscode ERR NOT Exist ${filenamebody}_HD.m2t");
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-                #再ffmpeg
-                &changefilestatus($pid,$FILESTATUSTRANSCODEFFMPEG);
@@ -205 +231 @@
-                &writelog("ipodtranscode ffmpeg retry no crop $filenamebody.264");
-                system ("ffmpeg -y -i $trcnmpegfile $ffmpegencopt");
+        }
+        #強制的にWINEでTsSplit.exe
+        if (! -e "$filenamebody.264"){
+        }
+        #それでもエラーならsplitしてないファイルをターゲットに
+        if (! -e "$filenamebody.264"){
+                #再ffmpeg
+                &changefilestatus($pid,$FILESTATUSTRANSCODEFFMPEG);
+                &writelog("ipodtranscode ffmpeg retry No splited originalTS file $filenamebody.264");
+                system ("ffmpeg -y -i $inputmpeg2 $ffmpegencopt");
-        }
-}
@@ -312 +348 @@
-        }
-        unlink("${filenamebody}_HD.m2t");
+# ConfigによってTSファイルは常にsplitした状態にするかどうか選択
+# B25失敗したときにここが走るとファイルぶっ壊れるので検証を入れる
+#
+#       if (-e "${filenamebody}_tss.m2t"){
+#               unlink("${filenamebody}.m2t");
+#               unless (rename "${filenamebody}_tss.m2t", "${filenamebody}.m2t") {
+#               &writelog("ipodtranscode WARNING RENAME FAILED ${filenamebody}_tss.m2t ${filenamebody}.m2t");
+#               }else{
+#               
+#               }
+#       }
-        unlink("${filenamebody}_tss.m2t");
-        unlink("$filenamebody.264");
@@ -386 +433 @@
-#一回で終らせるように
-#exit;
+
+
+}else{#ファイルがなければ
+&writelog("ipodtranscode NO $inputmpeg2 file.Skip.");
+}#end if
+
-}# end while
-#残りファイルがゼロなら
-&writelog("ipodtranscode ALL COMPLETE");
-exit;
+
-
-#-----------------------------------------------------------------------
@@ -464 +518 @@
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+