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

コミット日時:

2010/04/02 22:58:58 (14 年前)

コミッタ:

sorshi

ログメッセージ:

radiko録音対応

ファイル:

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

trunk/install/perl/ipodtranscode.pl

@@ -134 +134 @@
-}
-
-
-$filenamebody = $inputmpeg2 ;
-
+|.aac$
-
-#デジタルかアナログか
-
-
-
+
-
-if ($filestatus <= $FILESTATUSTRANSCODETSSPLITTING){
@@ -237 +234 @@
-}
-if ($filestatus <= $FILESTATUSTRANSCODEMP4BOX){
+
+unlink("${filenamebody}.base.mp4");
+
+#デジタルラジオなら
+if ($inputmpeg2 =~ /aac$/i){
+        if (-e "$toolpath/perl/tool/MP4Box"){
+                &writelog("ipodtranscode MP4Box $filenamebody");
+                system ("cd $recfolderpath ;$toolpath/perl/tool/MP4Box -add $filenamebody.aac  -new $filenamebody.base.mp4");
+        $exit_value = $? >> 8;
+        $signal_num = $? & 127;
+        $dumped_core = $? & 128;
+        &writelog("ipodtranscode DEBUG MP4Box -add $filenamebody.aac  -new $filenamebody.base.mp4:$exit_value:$signal_num:$dumped_core");
+        }else{
+                &writelog("ipodtranscode WARN; Pls. install $toolpath/perl/tool/MP4Box");
+        }
+}else{
-        # MP4ビルド
-        unlink("${filenamebody}.base.mp4");
-        if (-e "$toolpath/perl/tool/MP4Box"){
-                &changefilestatus($pid,$FILESTATUSTRANSCODEMP4BOX);
-                &writelog("ipodtranscode MP4Box $filenamebody");
-
-
+
-        $exit_value = $? >> 8;
-        $signal_num = $? & 127;
-        $dumped_core = $? & 128;
-        &writelog("ipodtranscode DEBUG MP4Box -fps 29.97 -add $filenamebody.264 -new $filenamebody.base.mp4:$exit_value:$signal_num:$dumped_core");
-
-        
-                if (-e "$filenamebody.base.mp4"){
-#               system ("cd $recfolderpath ; MP4Box -add $filenamebody.aac $filenamebody.base.mp4");
-                system ("cd $recfolderpath ;$toolpath/perl/tool/MP4Box -add $filenamebody.aac $filenamebody.base.mp4");
-        $exit_value = $? >> 8;
@@ -265 +273 @@
-                &writelog("ipodtranscode WARN; Pls. install $toolpath/perl/tool/MP4Box");
-        }
+unlink("$filenamebody.aac");
+}#endif #デジタルラジオなら
+        
-#}
-
@@ -299 +310 @@
-        unlink("$filenamebody.264");
-        unlink("$filenamebody.wav");
-        unlink("$filenamebody.aac");
-        unlink("$filenamebody.base.mp4");
-