チェンジセット 129: trunk

差分発生行の前後
無視リスト:
コミット日時:
2010/10/22 19:15:11 (14 年前)
コミッタ:
sorshi
ログメッセージ:

TSファイル取得時間を見直して、110度CSの取得が異常に重い問題に対処しました。

ファイル:

凡例:

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

    r112 r129  
    4444my $usecs = ""; 
    4545my $stationid = "" ; 
    46 my $rectime = ""; 
     46my $rectime = 0; 
     47my $bsrectime = 0; 
     48my $cs1rectime = 0; 
     49my $cs2rectime = 0; 
     50 
    4751 
    4852#引き数がアルか? 
     
    5155        $rectime = 60; 
    5256        $bsrectime = 120; 
     57        $cs1rectime = 60; 
     58        $cs2rectime = 60; 
    5359}elsif( $ARGV[0] > 0 ){ 
    5460        $stationid = $ARGV[0];  
    5561        $rectime = 3; 
    5662        $bsrectime = 36; 
     63        $cs1rectime = 15; 
     64        $cs2rectime = 5; 
    5765}else{ 
    5866        #短期番組表取得 
    5967        $rectime = 3; 
    6068        $bsrectime = 36; 
     69        $cs1rectime = 15; 
     70        $cs2rectime = 5; 
    6171} 
    6272#データ量比較 
     
    168178 
    169179#CS---------------------------------------- 
    170 #CSは取得に時間がかかるがどうしようか 
    171 #ひとまずlongモードのときだけ取得 
    172 if ( $ARGV[0] eq "long" ){ 
     180#if ( $ARGV[0] eq "long" ){ #短時間録画なら異常に重くはならないことを発見した 
    173181#受信局確認 
    174182if ($channel >= 223  ){#局指定があるなら 
     
    189197        &chkrecordingschedule; 
    190198        #print "$recpt1path $channela $bsrectime $recfolderpath/__$channela.m2t\n"; 
    191         $oserr = `$recpt1path $channela $bsrectime $recfolderpath/__$channela.m2t`; 
     199        $oserr = `$recpt1path $channela $cs1rectime $recfolderpath/__$channela.m2t`; 
    192200 
    193201        $channelb = "CS24"; 
    194202        &chkrecordingschedule; 
    195203        #print "$recpt1path $channelb $bsrectime $recfolderpath/__$channelb.m2t\n"; 
    196         $oserr = `$recpt1path $channelb $bsrectime $recfolderpath/__$channelb.m2t`; 
     204        $oserr = `$recpt1path $channelb $cs2rectime $recfolderpath/__$channelb.m2t`; 
    197205 
    198206#時間のかかるepgdumpまとめてあとまわし 
    199207        #print "nice -n 19 $epgdumppath/epgdump /CS $recfolderpath/__$channela.m2t $xmloutpath/__$channela-epg.xml\n"; 
    200         $oserr = `nice -n 19 $epgdumppath/epgdump /CS $recfolderpath/__$channela.m2t $xmloutpath/__$channela-epg.xml`; 
     208        $oserr = `$epgdumppath/epgdump /CS $recfolderpath/__$channela.m2t $xmloutpath/__$channela-epg.xml`; 
    201209        #print "cat $xmloutpath/__$channela-epg.xml | $toolpath/perl/xmltv2foltia.pl\n"; 
    202210        $oserr = `cat $xmloutpath/__$channela-epg.xml | $toolpath/perl/xmltv2foltia.pl`; 
     
    205213 
    206214        #print "nice -n 19 $epgdumppath/epgdump /CS $recfolderpath/__$channelb.m2t $xmloutpath/__$channelb-epg.xml\n"; 
    207         $oserr = `nice -n 19 $epgdumppath/epgdump /CS $recfolderpath/__$channelb.m2t $xmloutpath/__$channelb-epg.xml`; 
     215        $oserr = `$epgdumppath/epgdump /CS $recfolderpath/__$channelb.m2t $xmloutpath/__$channelb-epg.xml`; 
    208216        #print "cat $xmloutpath/__$channelb-epg.xml | $toolpath/perl/xmltv2foltia.pl\n"; 
    209217        $oserr = `cat $xmloutpath/__$channelb-epg.xml | $toolpath/perl/xmltv2foltia.pl`; 
     
    213221        &writelog("epgimport DEBUG Skip CS."); 
    214222}#endif use  
    215 }else{ 
    216       if ($channel >= 223  ){#局指定があるなら 
    217               &writelog("epgimport ERROR CS Station No. was ignored. CS EPG get long mode only."); 
    218       } 
    219 }#end if long 
     223#}else{ 
     224#     if ($channel >= 223  ){#局指定があるなら 
     225#             &writelog("epgimport ERROR CS Station No. was ignored. CS EPG get long mode only."); 
     226#     } 
     227#}#end if long 
    220228 
    221229 
track feed