チェンジセット 28: trunk/install/perl
- コミット日時:
- 2006/12/24 21:54:46 (18 年前)
- ファイル:
凡例:
- 変更無し
- 追加
- 削除
- 更新
- コピー
- 移動
trunk/install/perl/tvrecording.pl
r8 r28 42 42 #tvConfig.pl ------------------------------- 43 43 $extendrecendsec = 10; #recording end second. 44 $startupsleeptime = 52; #process wait(MAX60sec) 44 #$startupsleeptime = 52; #process wait(MAX60sec) 45 $startupsleeptime = 37; #process wait(MAX60sec) 45 46 #$startupsleeptime = 1; #process wait(MAX60sec) 46 47 … … 259 260 260 261 # $recch でウェイト調整入れましょう 261 my $intval = $recch % 50; # 0〜49 262 my $startupsleep = $startupsleeptime - $intval; # 3〜52 (VHF 40-51) 262 #52 263 #my $intval = $recch % 50; # 0〜49 264 #my $startupsleep = $startupsleeptime - $intval; # 3〜52 (VHF 40-51) 265 #37 266 my $intval = $recch % 35; # 0〜34 267 my $startupsleep = $startupsleeptime - $intval; # 3-37 (VHF 25-36,tvk 30) 263 268 $reclengthsec = $reclengthsec + $intval + 1; # 264 269