チェンジセット 97: trunk/install/perl/ipodtranscode.pl
- コミット日時:
- 2010/04/02 22:58:58 (15 年前)
- ファイル:
凡例:
- 変更無し
- 追加
- 削除
- 更新
- コピー
- 移動
trunk/install/perl/ipodtranscode.pl
r94 r97 134 134 } 135 135 136 137 136 $filenamebody = $inputmpeg2 ; 138 $filenamebody =~ s/.m2t$|.ts$|.m2p$|.mpg$ //gi;137 $filenamebody =~ s/.m2t$|.ts$|.m2p$|.mpg$|.aac$//gi; 139 138 140 139 #デジタルかアナログか 141 if ($inputmpeg2 =~ /m2t$|ts$/i){ 142 #print "MPEG2-TS\n"; 143 140 if ($inputmpeg2 =~ /m2t$|ts$|aac$/i){ 144 141 145 142 if ($filestatus <= $FILESTATUSTRANSCODETSSPLITTING){ … … 237 234 } 238 235 if ($filestatus <= $FILESTATUSTRANSCODEMP4BOX){ 236 237 unlink("${filenamebody}.base.mp4"); 238 239 #デジタルラジオなら 240 if ($inputmpeg2 =~ /aac$/i){ 241 if (-e "$toolpath/perl/tool/MP4Box"){ 242 &writelog("ipodtranscode MP4Box $filenamebody"); 243 system ("cd $recfolderpath ;$toolpath/perl/tool/MP4Box -add $filenamebody.aac -new $filenamebody.base.mp4"); 244 $exit_value = $? >> 8; 245 $signal_num = $? & 127; 246 $dumped_core = $? & 128; 247 &writelog("ipodtranscode DEBUG MP4Box -add $filenamebody.aac -new $filenamebody.base.mp4:$exit_value:$signal_num:$dumped_core"); 248 }else{ 249 &writelog("ipodtranscode WARN; Pls. install $toolpath/perl/tool/MP4Box"); 250 } 251 }else{ 239 252 # MP4ビルド 240 unlink("${filenamebody}.base.mp4");241 253 if (-e "$toolpath/perl/tool/MP4Box"){ 242 254 &changefilestatus($pid,$FILESTATUSTRANSCODEMP4BOX); 243 255 &writelog("ipodtranscode MP4Box $filenamebody"); 244 # system ("cd $recfolderpath ; MP4Box -fps 29.97 -add $filenamebody.264 -new $filenamebody.base.mp4"); 245 system ("cd $recfolderpath ;$toolpath/perl/tool/MP4Box -fps 29.97 -add $filenamebody.264 -new $filenamebody.base.mp4"); 256 system ("cd $recfolderpath ;$toolpath/perl/tool/MP4Box -fps 29.97 -add $filenamebody.264 -new $filenamebody.base.mp4"); 246 257 $exit_value = $? >> 8; 247 258 $signal_num = $? & 127; 248 259 $dumped_core = $? & 128; 249 260 &writelog("ipodtranscode DEBUG MP4Box -fps 29.97 -add $filenamebody.264 -new $filenamebody.base.mp4:$exit_value:$signal_num:$dumped_core"); 250 251 252 261 if (-e "$filenamebody.base.mp4"){ 253 # system ("cd $recfolderpath ; MP4Box -add $filenamebody.aac $filenamebody.base.mp4");254 262 system ("cd $recfolderpath ;$toolpath/perl/tool/MP4Box -add $filenamebody.aac $filenamebody.base.mp4"); 255 263 $exit_value = $? >> 8; … … 265 273 &writelog("ipodtranscode WARN; Pls. install $toolpath/perl/tool/MP4Box"); 266 274 } 275 unlink("$filenamebody.aac"); 276 }#endif #デジタルラジオなら 277 267 278 #} 268 279 … … 299 310 unlink("$filenamebody.264"); 300 311 unlink("$filenamebody.wav"); 301 unlink("$filenamebody.aac");302 312 unlink("$filenamebody.base.mp4"); 303 313