Index: /trunk/install/perl/epgimport.pl =================================================================== --- /trunk/install/perl/epgimport.pl (リビジョン 112) +++ /trunk/install/perl/epgimport.pl (リビジョン 129) @@ -44,5 +44,9 @@ my $usecs = ""; my $stationid = "" ; -my $rectime = ""; +my $rectime = 0; +my $bsrectime = 0; +my $cs1rectime = 0; +my $cs2rectime = 0; + #引き数がアルか? @@ -51,12 +55,18 @@ $rectime = 60; $bsrectime = 120; + $cs1rectime = 60; + $cs2rectime = 60; }elsif( $ARGV[0] > 0 ){ $stationid = $ARGV[0]; $rectime = 3; $bsrectime = 36; + $cs1rectime = 15; + $cs2rectime = 5; }else{ #短期番組表取得 $rectime = 3; $bsrectime = 36; + $cs1rectime = 15; + $cs2rectime = 5; } #データ量比較 @@ -168,7 +178,5 @@ #CS---------------------------------------- -#CSは取得に時間がかかるがどうしようか -#ひとまずlongモードのときだけ取得 -if ( $ARGV[0] eq "long" ){ +#if ( $ARGV[0] eq "long" ){ #短時間録画なら異常に重くはならないことを発見した #受信局確認 if ($channel >= 223 ){#局指定があるなら @@ -189,14 +197,14 @@ &chkrecordingschedule; #print "$recpt1path $channela $bsrectime $recfolderpath/__$channela.m2t\n"; - $oserr = `$recpt1path $channela $bsrectime $recfolderpath/__$channela.m2t`; + $oserr = `$recpt1path $channela $cs1rectime $recfolderpath/__$channela.m2t`; $channelb = "CS24"; &chkrecordingschedule; #print "$recpt1path $channelb $bsrectime $recfolderpath/__$channelb.m2t\n"; - $oserr = `$recpt1path $channelb $bsrectime $recfolderpath/__$channelb.m2t`; + $oserr = `$recpt1path $channelb $cs2rectime $recfolderpath/__$channelb.m2t`; #時間のかかるepgdumpまとめてあとまわし #print "nice -n 19 $epgdumppath/epgdump /CS $recfolderpath/__$channela.m2t $xmloutpath/__$channela-epg.xml\n"; - $oserr = `nice -n 19 $epgdumppath/epgdump /CS $recfolderpath/__$channela.m2t $xmloutpath/__$channela-epg.xml`; + $oserr = `$epgdumppath/epgdump /CS $recfolderpath/__$channela.m2t $xmloutpath/__$channela-epg.xml`; #print "cat $xmloutpath/__$channela-epg.xml | $toolpath/perl/xmltv2foltia.pl\n"; $oserr = `cat $xmloutpath/__$channela-epg.xml | $toolpath/perl/xmltv2foltia.pl`; @@ -205,5 +213,5 @@ #print "nice -n 19 $epgdumppath/epgdump /CS $recfolderpath/__$channelb.m2t $xmloutpath/__$channelb-epg.xml\n"; - $oserr = `nice -n 19 $epgdumppath/epgdump /CS $recfolderpath/__$channelb.m2t $xmloutpath/__$channelb-epg.xml`; + $oserr = `$epgdumppath/epgdump /CS $recfolderpath/__$channelb.m2t $xmloutpath/__$channelb-epg.xml`; #print "cat $xmloutpath/__$channelb-epg.xml | $toolpath/perl/xmltv2foltia.pl\n"; $oserr = `cat $xmloutpath/__$channelb-epg.xml | $toolpath/perl/xmltv2foltia.pl`; @@ -213,9 +221,9 @@ &writelog("epgimport DEBUG Skip CS."); }#endif use -}else{ - if ($channel >= 223 ){#局指定があるなら - &writelog("epgimport ERROR CS Station No. was ignored. CS EPG get long mode only."); - } -}#end if long +#}else{ +# if ($channel >= 223 ){#局指定があるなら +# &writelog("epgimport ERROR CS Station No. was ignored. CS EPG get long mode only."); +# } +#}#end if long