tvrecording.pl

コミット日時:

2007/01/28 20:26:48 (18 年前)

コミッタ:

sorshi

ログメッセージ:

デバイスビジーで録画デバイスをつかめなかった場合のリカバリ機構搭載

ファイル:

trunk/install/perl/tvrecording.pl

r29	r43
268	268	$reclengthsec = $reclengthsec + (60 - $startupsleep) + 1; #
269	269
270		&writelog("tvrecording: DEBUG SLEEP $startupsleeptime:$intval:$startupsleep:$reclengthsec");
271
272		sleep ( $startupsleep);
273
	270	if ( $ARGV[2] ne "N"){
	271	&writelog("tvrecording: DEBUG SLEEP $startupsleeptime:$intval:$startupsleep:$reclengthsec");
	272	sleep ( $startupsleep);
	273	}else{
	274	&writelog("tvrecording: DEBUG RAPID START");
	275
	276	}
274	277	if ($recunits > 1){
275	278	my $deviceno = $recunits - 1;#3枚差しのとき/dev/video2から使う
…	…
321	324	#二重録りなど既に同名ファイルがあったら中断
322	325	if ( -e "$outputfile" ){
323		&writelog("tvrecording :ABORT :recfile $outputfile exist.");
324		exit 1;
	326	if ( -s "$outputfile" ){
	327	&writelog("tvrecording :ABORT :recfile $outputfile exist.");
	328	exit 1;
	329	}
325	330	}
326	331