perl

コミット日時:

2006/12/25 02:08:06 (19 年前)

コミッタ:

sorshi

ログメッセージ:

時間計算間違って録画終了が十秒程度早くなりすぎていたのを修正

ファイル:

trunk/install/perl/tvrecording.pl

r28	r29
266	266	my $intval = $recch % 35; # 0〜34
267	267	my $startupsleep = $startupsleeptime - $intval; # 3-37 (VHF 25-36,tvk 30)
268		$reclengthsec = $reclengthsec + ~~$intval~~ + 1; #
269
270		&writelog("tvrecording: DEBUG SLEEP $startupsleeptime:$intval:$startupsleep");
	268	$reclengthsec = $reclengthsec + (60 - $startupsleep) + 1; #
	269
	270	&writelog("tvrecording: DEBUG SLEEP $startupsleeptime:$intval:$startupsleep:$reclengthsec");
271	271
272	272	sleep ( $startupsleep);