tvrecording.pl

コミット日時:

2006/12/07 15:00:43 (17 年前)

コミッタ:

sorshi

ログメッセージ:

新エンコーダによりH.264対応、
複数同時録画時の信頼性向上、など

ファイル:

trunk/install/perl/tvrecording.pl

r1	r8
24	24
25	25
26		use Time::HiRes qw(usleep);
	26	#use Time::HiRes qw(usleep);
27	27
28	28
…	…
250	250	}
251	251	#1分前にプロセス起動するから指定時間スリープ
252		srand(time ^ ($$ + ($$ << 15)));
253		my $useconds = int(rand(12000000));
254		my $intval = int ($useconds / 1000000);
255		my $startupsleeptimemicro = ($startupsleeptime * 1000000) - $useconds;
256		$reclengthsec = $reclengthsec + $intval + 1;
	252	#srand(time ^ ($$ + ($$ << 15)));
	253	#my $useconds = int(rand(12000000));
	254	#my $intval = int ($useconds / 1000000);
	255	#my $startupsleeptimemicro = ($startupsleeptime * 1000000) - $useconds;
	256	#$reclengthsec = $reclengthsec + $intval + 1;
	257	#&writelog("tvrecording: DEBUG SLEEP $startupsleeptime:$useconds:$intval:$startupsleeptimemicro");
	258	# usleep ( $startupsleeptimemicro );
	259
257	260	# $recch でウェイト調整入れましょう
258
259
260		&writelog("tvrecording: DEBUG SLEEP $startupsleeptime:$useconds:$intval:$startupsleeptimemicro");
261
262		usleep ( $startupsleeptimemicro );
	261	my $intval = $recch % 50; # 0〜49
	262	my $startupsleep = $startupsleeptime - $intval; # 3〜52 (VHF 40-51)
	263	$reclengthsec = $reclengthsec + $intval + 1; #
	264
	265	&writelog("tvrecording: DEBUG SLEEP $startupsleeptime:$intval:$startupsleep");
	266
	267	sleep ( $startupsleep);
263	268
264	269	if ($recunits > 1){