チェンジセット 29

差分発生行の前後
無視リスト:
コミット日時:
2006/12/25 02:08:06 (18 年前)
コミッタ:
sorshi
ログメッセージ:

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

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動
  • trunk/install/perl/tvrecording.pl

    r28 r29  
    266266my $intval = $recch % 35; # 0〜34 
    267267my $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"); 
    271271 
    272272sleep ( $startupsleep); 
track feed