root/trunk/install/perl/captureimagemaker.pl

#!/usr/bin/perl
#usage captureimagemaker.pl  MPEG2filename
#
# Anime recording system foltia
# http://www.dcc-jpl.com/soft/foltia/
#
#
# キャプチャ画像作成モジュール
# recwrap.plから呼び出される。
#
# DCC-JPL Japan/foltia project
#

$path = $0;
$path =~ s/captureimagemaker.pl$//i;
if ($pwd  ne "./"){
push( @INC, "$path");
}

require "foltialib.pl";

#$tid = $ARGV[0] ;
$filename = $ARGV[0] ;

# filenameの妥当性をチェック
@filenametmp = split(/\./,$filename);
@filename = split(/-/,$filenametmp[0]);
$tid = $filename[0];

# tidが数字のみかチェック
$tid =~ s/[^0-9]//ig;
#print "$tid\n";

if ($tid eq "" ){
        #引き数なし出実行されたら、終了
        print "usage captureimagemaker.pl  MPEG2filename\n";
        exit;
}

if ($tid >= 0){
#       print "TID is valid\n";
}else{
        &writelog("captureimagemaker TID invalid");
        exit;
}


$countno = $filename[1];
$countno =~ s/[^0-9]//ig;
#if ($countno eq "" ){
#$countno = "x";
#}
#       print "CNTNO:$countno\n";

$date = $filename[2];
$date =~ s/[^0-9]//ig;
if ($date eq "" ){
        $date =  `date  +%Y%m%d`
}
#       print "DATE:$date\n";


$time = $filename[3];
$time = substr($time, 0, 4);
$time =~ s/[^0-9]//ig;
if ($time eq "" ){
        $time =  `date  +%H%M`
}
#       print "TIME:$time\n";

#　録画ファイルがアルかチェック
if (-e "$recfolderpath/$filename"){
#       print "EXIST $recfolderpath/$filename\n";
}else{
#       print "NO $recfolderpath/$filename\n";
        &writelog("captureimagemaker notexist $recfolderpath/$filename");

        exit;
}

# 展開先ディレクトリがあるか確認

$capimgdirname = "$tid.localized/";
$capimgdirname = $recfolderpath."/".$capimgdirname;
#なければ作る
unless (-e $capimgdirname ){
        system("$toolpath/perl/mklocalizeddir.pl $tid");
        &writelog("captureimagemaker mkdir $capimgdirname");
}
$capimgdirname = "$tid.localized/img";
$capimgdirname = $recfolderpath."/".$capimgdirname;
#なければ作る
unless (-e $capimgdirname ){
        mkdir $capimgdirname ,0777;
        &writelog("captureimagemaker mkdir $capimgdirname");
}


# キャプチャ入れるディレクトリ作成 
# $captureimgdir = "$tid"."-"."$countno"."-"."$date"."-"."$time";
$captureimgdir = $filename;
$captureimgdir =~ s/\.m2p$//; 

unless (-e "$capimgdirname/$captureimgdir"){
        mkdir "$capimgdirname/$captureimgdir" ,0777;
        &writelog("captureimagemaker mkdir $capimgdirname/$captureimgdir");

}

# 変換
#system ("mplayer -ss 00:00:10 -vo jpeg:outdir=$capimgdirname/$captureimgdir/ -vf crop=702:468:6:6,scale=160:120,pp=lb -ao null -sstep 14 -v 3 $recfolderpath/$filename");

#system ("mplayer -ss 00:00:10 -vo jpeg:outdir=$capimgdirname/$captureimgdir/ -vf crop=702:468:6:6,scale=160:120 -ao null -sstep 14 -v 3 $recfolderpath/$filename");


#　ETVとか黒線入るから左右、もうすこしづつ切ろう。
#system ("mplayer -ss 00:00:10 -vo jpeg:outdir=$capimgdirname/$captureimgdir/ -vf crop=690:460:12:10,scale=160:120 -ao null -sstep 14 -v 3 $recfolderpath/$filename");

#　10秒ごとに
system ("mplayer -ss 00:00:10 -vo jpeg:outdir=$capimgdirname/$captureimgdir/ -vf crop=690:460:12:10,scale=160:120 -ao null -sstep 9 -v 3 $recfolderpath/$filename");