digitaltvrecording.pl

コミット日時:

2010/04/07 22:42:59 (15 年前)

コミッタ:

sorshi

ログメッセージ:

radikoのffmpegブロック対策

ファイル:

trunk/install/perl/digitaltvrecording.pl

r94	r99
370	370
371	371	}elsif($bandtype == 2){
372		# 110度CSよくわかんない
	372	# recpt1でのみ動作確認
	373	if ($recch == 333) {
	374	$recch = "CS16";#333ch：アニメシアターX(AT-X)
	375	}elsif($recch == 330){
	376	$recch = "CS22";#330ch：キッズステーション
	377	}elsif($recch == 332){
	378	$recch = "CS20";#332ch：アニマックス
	379	}else{
	380	$recch = "CS16";#333ch：アニメシアターX(AT-X)
	381	}
	382
	383
373	384	}else{
374	385	&writelog("digitaltvrecording :ERROR :Unsupported and type (digital CS).");
…	…
379	390	# b25,recpt1があるか確認
380	391	if (-e "$toolpath/perl/tool/recpt1"){
	392	if ($bandtype >= 1){ #BS/CSなら
	393	#[foltia@velvia tool]$ ./recpt1 --b25 --sid 333 CS16 180 ~/php/tv/atxtest.m2t
	394	&writelog("digitaltvrecording DEBUGrecpt1 --b25 --sid $originalrecch $recch $reclengthsec $outputfile ");
	395	$oserr = system("$toolpath/perl/tool/recpt1 --b25 --sid $originalrecch $recch $reclengthsec $outputfile ");
	396	}else{
381	397	&writelog("digitaltvrecording DEBUG recpt1 --b25 $originalrecch $reclengthsec $outputfile ");
382	398	$oserr = system("$toolpath/perl/tool/recpt1 --b25 $originalrecch $reclengthsec $outputfile ");
	399	}
383	400	$oserr = $oserr >> 8;
384	401	if ($oserr > 0){