root/trunk/install/perl/digitaltvrecording.pl

#!/usr/bin/perl
#
# Anime recording system foltia
# http://www.dcc-jpl.com/soft/foltia/
#
#digitaltvrecording.pl
# PT1,PT2,friioをはじめとするデジタル録画プログラムを呼びだす録画モジュール。
#
#usage digitaltvrecording.pl bandtype ch length(sec) [stationid] [sleeptype] [filename] [TID] [NO] [unittype]
#引数
#bandtype : 0:地デジ 1:BSデジタル 2:CSデジタル
#ch :録画チャンネル (地デジはそのまま渡す、BS/CSデジタルは基本的にチャンネル BS1/BS2など同じ数時に)
#length(sec) :録画秒数 [必須項目]
#[stationid] :foltia stationid
#[sleeptype] :0かN Nならスリープなしで録画
#[filename] :出力ファイル名
#[TID] :しょぼかるタイトルID
#[NO] :その番組の放送話数
#[unittype] :friioかfriioBSかユニデンチューナかHDUSかなど(未使用)
#
# DCC-JPL Japan/foltia project
#
#

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

#tvConfig.pl -------------------------------
$extendrecendsec = 10;                                                  #recording end second. 
#$startupsleeptime = 52;                                        #process wait(MAX60sec)
$startupsleeptime = 32;                                 #process wait(MAX60sec)
#-------------------------------

require 'foltialib.pl';

 &writelog("digitaltvrecording: DEBUG $ARGV[0] $ARGV[1] $ARGV[2] $ARGV[3] $ARGV[4] $ARGV[5] $ARGV[6] $ARGV[7] $ARGV[8]");


#準備
&prepare;
#もし録画が走ってたら、止める
#$reclengthsec = &chkrecprocess();
#&setbitrate;
#&chkextinput;
#$reclengthsec = $reclengthsec + $extendrecendsec ;

&calldigitalrecorder;

&writelog("digitaldigitaltvrecording:RECEND:$bandtype $recch $lengthsec $stationid $sleeptype $filename $tid $countno $unittype
");

# -- これ以下サブルーチン ----------------------------


sub prepare{

#引数エラー処理
$bandtype = $ARGV[0] ;
$recch = $ARGV[1] ;
$lengthsec = $ARGV[2] ;
$stationid = $ARGV[3] ;
$sleeptype = $ARGV[4] ;
$filename = $ARGV[5] ;
$tid = $ARGV[6] ;
$countno = $ARGV[7] ;
$unittype = $ARGV[8] ; 

if (($bandtype eq "" )|| ($recch eq "")|| ($lengthsec eq "")){
        print "usage digitaltvrecording.pl bandtype ch length(sec) [stationid] [sleeptype] [filename] [TID] [NO] [unittype]\n";
        exit;
}

my $intval = $recch % 10; # 0〜9 sec
my $startupsleep = $startupsleeptime - $intval; #  18〜27 sec
$reclengthsec = $lengthsec + (60 - $startupsleep) + 1; #

if ( $sleeptype ne "N"){
        &writelog("digitaltvrecording: DEBUG SLEEP $startupsleeptime:$intval:$startupsleep:$reclengthsec");
        sleep ( $startupsleep);
        #2008/08/12_06:39:00 digitaltvrecording: DEBUG SLEEP 17:23:-6:367
}else{
        &writelog("digitaltvrecording: DEBUG RAPID START");
}
## recfriio このへんどうなってるの?
#if ($recunits > 1){
#my $deviceno = $recunits - 1;#3枚差しのとき/dev/video2から使う
#       $recdevice = "/dev/video$deviceno";
#       $recch = $ARGV[0] ;
#}else{
##1枚差し
#       $recdevice = "/dev/video0";
#       $recch = $ARGV[0] ;
#}

$outputpath = "$recfolderpath"."/";

if ($countno eq "0"){
        $outputfile = $outputpath.$tid."--";
}else{
        $outputfile = $outputpath.$tid."-".$countno."-";
}
#2番目以降のクリップでファイル名指定があったら
        if ($filename  ne ""){

                $outputfile = $filename ;
                $outputfile = &filenameinjectioncheck($outputfile);
                $outputfilewithoutpath = $outputfile ;
                $outputfile = $outputpath.$outputfile ;
                &writelog("digitaltvrecording: DEBUG FILENAME ne null \$outputfile $outputfile ");
        }else{
        $outputfile .= strftime("%Y%m%d-%H%M", localtime(time + 60));
                chomp($outputfile);
                $outputfile .= ".m2t";
                $outputfilewithoutpath = $outputfile ;
                &writelog("digitaltvrecording:  DEBUG FILENAME is null \$outputfile $outputfile ");
        }


@wday_name = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
$sleepcounter = 0;
$cmd="";

#二重録りなど既に同名ファイルがあったら中断
if ( -e "$outputfile" ){
        if ( -s "$outputfile" ){
        &writelog("digitaltvrecording :ABORT :recfile $outputfile exist.");
        exit 1;
        }
}

}#end prepare


#------------------------------------------------------------------------------------
#
sub calldigitalrecorder{
#
#白friioと黒friio、PT1対応
#2008/10/23 recfriio4仕様に変更 
#
my $oserr = 0;
my $originalrecch = $recch;
my $pt1recch =  $recch;
my $errorflag = 0;
if ($bandtype == 0){
# 地デジ friio

}elsif($bandtype == 1){
# BS/CS friio
                #recfriiobs用チャンネルリマップ
                if ($recch == 101) {
                        $bssplitflag = $recch;
                        $recch = "b10";#22 : NHK BS1/BS2 
                }elsif($recch == 102){
                        $bssplitflag = $recch;
                        $recch = "b10";#22 : NHK BS1/BS2 
                }elsif($recch == 103){
                        $recch = "b11";#23 : NHK hi  
                }elsif($recch == 141){
                        $recch = "b8";# 20 : BS-NTV  
                }elsif($recch == 151){
                        $recch = "b1";#13 : BS-Asahi 
                }elsif($recch == 161){
                        $recch = "b2";#14 : BS-i  
                }elsif($recch == 171){
                        $recch = "b4";#16 : BS-Japan 
                }elsif($recch == 181){
                        $recch = "b9";#21 : BS-Fuji 
                }elsif($recch == 191){
                        $recch = "b3";#15 : WOWOW 
                }elsif($recch == 192){
                        $recch = "b3";#15 : WOWOW 
                }elsif($recch == 193){
                        $recch = "b3";#15 : WOWOW 
                }elsif($recch == 200){
                        $recch = "b6";# b6 # Star Channel
                }elsif($recch == 211){
                        $recch = "b5";#17 : BS11  
                }else{
                        $recch = "b7";#19 : TwellV 
                }
#PT1はそのまま通る

}elsif($bandtype == 2){
# recpt1でのみ動作確認
                if($recch == 335){
                $pt1recch = "CS8";#335ch：キッズステーション HD
        }elsif($recch == 237){
                $pt1recch = "CS2";#237ch：スター・チャンネル プラス
        }elsif($recch == 239){
                $pt1recch = "CS2";#239ch：日本映画専門チャンネルHD
        }elsif($recch == 306){
                $pt1recch = "CS2";#306ch：フジテレビCSHD
        }elsif($recch == 100){
                $pt1recch = "CS4";#100ch：e2プロモ
        }elsif($recch == 256){
                $pt1recch = "CS4";#256ch：J sports ESPN
        }elsif($recch == 312){
                $pt1recch = "CS4";#312ch：FOX
        }elsif($recch == 322){
                $pt1recch = "CS4";#322ch：スペースシャワーTV
        }elsif($recch == 331){
                $pt1recch = "CS4";#331ch：カートゥーンネットワーク
        }elsif($recch == 194){
                $pt1recch = "CS4";#194ch：インターローカルTV
        }elsif($recch == 334){
                $pt1recch = "CS4";#334ch：トゥーン・ディズニー
        }elsif($recch == 221){
                $pt1recch = "CS6";#221ch：東映チャンネル 
        }elsif($recch == 222){
                $pt1recch = "CS6";#222ch：衛星劇場
        }elsif($recch == 223){
                $pt1recch = "CS6";#223ch：チャンネルNECO
        }elsif($recch == 224){
                $pt1recch = "CS6";#224ch：洋画★シネフィル・イマジカ
        }elsif($recch == 292){
                $pt1recch = "CS6";#292ch：時代劇専門チャンネル
        }elsif($recch == 238){
                $pt1recch = "CS6";#238ch：スター・チャンネル クラシック
        }elsif($recch == 310){
                $pt1recch = "CS6";#310ch：スーパー！ドラマTV
        }elsif($recch == 311){
                $pt1recch = "CS6";#311ch：AXN
        }elsif($recch == 343){
                $pt1recch = "CS6";#343ch：ナショナルジオグラフィックチャンネル
        }elsif($recch == 055){
                $pt1recch = "CS8";#055ch：ショップ チャンネル
        }elsif($recch == 228){
                $pt1recch = "CS10";#228ch：ザ・シネマ
        }elsif($recch == 800){
                $pt1recch = "CS10";#800ch：スカチャンHD800
        }elsif($recch == 801){
                $pt1recch = "CS10";#801ch：スカチャン801
        }elsif($recch == 802){
                $pt1recch = "CS10";#802ch：スカチャン802
        }elsif($recch == 260){
                $pt1recch = "CS12";#260ch：ザ・ゴルフ・チャンネル
        }elsif($recch == 303){
                $pt1recch = "CS12";#303ch：テレ朝チャンネル
        }elsif($recch == 323){
                $pt1recch = "CS12";#323ch：MTV 324ch：大人の音楽専門TV◆ミュージック・エア
        }elsif($recch == 352){
                $pt1recch = "CS12";#352ch：朝日ニュースター
        }elsif($recch == 353){
                $pt1recch = "CS12";#353ch：BBCワールドニュース
        }elsif($recch == 354){
                $pt1recch = "CS12";#354ch：CNNj
        }elsif($recch == 361){
                $pt1recch = "CS12";#361ch：ジャスト・アイ インフォメーション
        }elsif($recch == 251){
                $pt1recch = "CS14";#251ch：J sports 1
        }elsif($recch == 252){
                $pt1recch = "CS14";#252ch：J sports 2
        }elsif($recch == 253){
                $pt1recch = "CS14";#253ch：J sports Plus
        }elsif($recch == 254){
                $pt1recch = "CS14";#254ch：GAORA
        }elsif($recch == 255){
                $pt1recch = "CS14";#255ch：スカイ・Asports＋
        }elsif($recch == 305){
                $pt1recch = "CS16";#305ch：チャンネル銀河
        }elsif($recch == 333){
                $pt1recch = "CS16";#333ch：アニメシアターX(AT-X)
        }elsif($recch == 342){
                $pt1recch = "CS16";#342ch：ヒストリーチャンネル
        }elsif($recch == 290){
                $pt1recch = "CS16";#290ch：TAKARAZUKA SKYSTAGE
        }elsif($recch == 803){
                $pt1recch = "CS16";#803ch：スカチャン803
        }elsif($recch == 804){
                $pt1recch = "CS16";#804ch：スカチャン804
        }elsif($recch == 240){
                $pt1recch = "CS18";#240ch：ムービープラスHD
        }elsif($recch == 262){
                $pt1recch = "CS18";#262ch：ゴルフネットワーク
        }elsif($recch == 314){
                $pt1recch = "CS18";#314ch：LaLa HDHV
        }elsif($recch == 258){
                $pt1recch = "CS20";#258ch：フジテレビ739
        }elsif($recch == 302){
                $pt1recch = "CS20";#302ch：フジテレビ721
        }elsif($recch == 332){
                $pt1recch = "CS20";#332ch：アニマックス
        }elsif($recch == 340){
                $pt1recch = "CS20";#340ch：ディスカバリーチャンネル
        }elsif($recch == 341){
                $pt1recch = "CS20";#341ch：アニマルプラネット
        }elsif($recch == 160){
                $pt1recch = "CS22";#160ch：C-TBSウェルカムチャンネル
        }elsif($recch == 161){
                $pt1recch = "CS22";#161ch：QVC
        }elsif($recch == 185){
                $pt1recch = "CS22";#185ch：プライム365.TV
        }elsif($recch == 293){
                $pt1recch = "CS22";#293ch：ファミリー劇場
        }elsif($recch == 301){
                $pt1recch = "CS22";#301ch：TBSチャンネル
        }elsif($recch == 304){
                $pt1recch = "CS22";#304ch：ディズニー・チャンネル
        }elsif($recch == 325){
                $pt1recch = "CS22";#325ch：MUSIC ON! TV
        #}elsif($recch == 330){
        #       $pt1recch = "CS22";#330ch：キッズステーション  #HD化により2010/4変更
        }elsif($recch == 351){
                $pt1recch = "CS22";#351ch：TBSニュースバード
        }elsif($recch == 257){
                $pt1recch = "CS24";#ch：日テレG+
        }elsif($recch == 291){
                $pt1recch = "CS24";#ch：fashiontv
        }elsif($recch == 300){
                $pt1recch = "CS24";#ch：日テレプラス
        }elsif($recch == 320){
                $pt1recch = "CS24";#ch：安らぎの音楽と風景／エコミュージックTV
        }elsif($recch == 321){
                $pt1recch = "CS24";#ch：MusicJapan TV
        }elsif($recch == 350){
                $pt1recch = "CS24";#ch：日テレNEWS24
        }# end if CSリマップ

}else{
        &writelog("digitaltvrecording :ERROR :Unsupported and type (digital CS).");
        exit 3;
}

# PT1
# b25,recpt1があるか確認
        if  (-e "$toolpath/perl/tool/recpt1"){
                if ($bandtype >= 1){ #BS/CSなら
                &writelog("digitaltvrecording DEBUG recpt1 --b25 --sid $originalrecch  $pt1recch $reclengthsec $outputfile   ");
                $oserr = system("$toolpath/perl/tool/recpt1 --b25 --sid $originalrecch $pt1recch $reclengthsec $outputfile  ");
                }else{ #地デジ
                &writelog("digitaltvrecording DEBUG recpt1 --b25  $originalrecch $reclengthsec $outputfile  ");
                $oserr = system("$toolpath/perl/tool/recpt1 --b25  $originalrecch $reclengthsec $outputfile  ");
                }
                $oserr = $oserr >> 8;
                        if ($oserr > 0){
                        &writelog("digitaltvrecording :ERROR :PT1 is BUSY.$oserr");
                        $errorflag = 2;
                        }
        }else{ # エラー recpt1がありません
                &writelog("digitaltvrecording :ERROR :recpt1  not found. You must install $toolpath/tool/b25 and $toolpath/tool/recpt1.");
        $errorflag = 1;
        }
# friio
if ($errorflag >= 1 ){
# b25,recfriioがあるか確認
        if  (-e "$toolpath/perl/tool/recfriio"){
        
        if (! -e "$toolpath/perl/tool/friiodetect"){
                system("touch $toolpath/perl/tool/friiodetect");
                system("chown foltia:foltia $toolpath/perl/tool/friiodetect");
                system("chmod 775 $toolpath/perl/tool/friiodetect");
                &writelog("digitaltvrecording :DEBUG make lock file.$toolpath/perl/tool/friiodetect");
        }
                &writelog("digitaltvrecording DEBUG recfriio --b25 --lockfile $toolpath/perl/tool/friiodetect $recch $reclengthsec $outputfile  ");
                $oserr = system("$toolpath/perl/tool/recfriio --b25 --lockfile $toolpath/perl/tool/friiodetect $recch $reclengthsec $outputfile  ");
                $oserr = $oserr >> 8;
                        if ($oserr > 0){
                        &writelog("digitaltvrecording :ERROR :friio is BUSY.$oserr");
                        exit 2;
                        }

#BS1/BS2などのスプリットを
if ($bssplitflag == 101){
        if (-e "$toolpath/perl/tool/TsSplitter.exe"){
        # BS1           
        system("wine $toolpath/perl/tool/TsSplitter.exe  -EIT -ECM  -EMM  -OUT \"$outputpath\" -HD  -SD2 -SD3 -1SEG  -LOGFILE -WAIT2 $outputfile");
        $splitfile = $outputfile;
        $splitfile =~ s/\.m2t$/_SD1.m2t/;
                if (-e "$splitfile"){
                system("rm -rf $outputfile ; mv $splitfile $outputfile");
                &writelog("digitaltvrecording DEBUG rm -rf $outputfile ; mv $splitfile $outputfile: $?.");
                }else{
                &writelog("digitaltvrecording ERROR File not found:$splitfile.");
                }
        }else{
        &writelog("digitaltvrecording ERROR $toolpath/perl/tool/TsSplitter.exe not found.");
        }
}elsif($bssplitflag == 102){
        if (-e "$toolpath/perl/tool/TsSplitter.exe"){
        # BS2           
        system("wine $toolpath/perl/tool/TsSplitter.exe  -EIT -ECM  -EMM  -OUT \"$outputpath\" -HD  -SD1 -SD3 -1SEG  -LOGFILE -WAIT2 $outputfile");
        $splitfile = $outputfile;
        $splitfile =~ s/\.m2t$/_SD2.m2t/;
                if (-e "$splitfile"){
                system("rm -rf $outputfile ; mv $splitfile $outputfile");
                &writelog("digitaltvrecording DEBUG rm -rf $outputfile ; mv $splitfile $outputfile: $?.");
                }else{
                &writelog("digitaltvrecording ERROR File not found:$splitfile.");
                }
        }else{
        &writelog("digitaltvrecording ERROR $toolpath/perl/tool/TsSplitter.exe not found.");
        }
}else{
        &writelog("digitaltvrecording DEBUG not split TS.$bssplitflag");
}# endif #BS1/BS2などのスプリットを

        }else{ # エラー recfriioがありません
                &writelog("digitaltvrecording :ERROR :recfriio  not found. You must install $toolpath/perl/tool/b25 and $toolpath/perl/tool/recfriio.");
        exit 1;
        }
}#end if errorflag
}#end calldigitalrecorder