チェンジセット 111: trunk/install/perl/ipodtranscode.pl
- コミット日時:
- 2010/08/17 01:12:56 (14 年前)
- ファイル:
凡例:
- 変更無し
- 追加
- 削除
- 更新
- コピー
- 移動
trunk/install/perl/ipodtranscode.pl
r97 r111 306 306 # 中間ファイル消す 307 307 &changefilestatus($pid,$FILESTATUSTRANSCODECOMPLETE); 308 &updatemp4file(); 309 }else{ 310 &writelog("ipodtranscode ERR ; Fail.Giving up! MAQ${mp4filenamestring}.MP4"); 311 &changefilestatus($pid,999); 312 } 308 313 unlink("${filenamebody}_HD.m2t"); 309 314 unlink("${filenamebody}_tss.m2t"); … … 311 316 unlink("$filenamebody.wav"); 312 317 unlink("$filenamebody.base.mp4"); 313 314 &updatemp4file(); 315 }else{ 316 &writelog("ipodtranscode ERR ; Fail MAQ${mp4filenamestring}.MP4"); 317 } 318 318 319 } 319 320