チェンジセット 129: trunk

コミット日時:

2010/10/22 19:15:11 (14 年前)

コミッタ:

sorshi

ログメッセージ:

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

ファイル:

• trunk/install/perl/epgimport.pl (更新) (6 diffs)

trunk/install/perl/epgimport.pl

@@ -44 +44 @@
-my $usecs = "";
-my $stationid = "" ;
-
+
+
+
+
+
-
-#引き数がアルか?
@@ -51 +55 @@
-        $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 +178 @@
-
-#CS----------------------------------------
-
-
-
+
-#受信局確認
-if ($channel >= 223  ){#局指定があるなら
@@ -189 +197 @@
-        &chkrecordingschedule;
-        #print "$recpt1path $channela $bsrectime $recfolderpath/__$channela.m2t\n";
-bs
+cs1
-
-        $channelb = "CS24";
-        &chkrecordingschedule;
-        #print "$recpt1path $channelb $bsrectime $recfolderpath/__$channelb.m2t\n";
-bs
+cs2
-
-#時間のかかるepgdumpまとめてあとまわし
-        #print "nice -n 19 $epgdumppath/epgdump /CS $recfolderpath/__$channela.m2t $xmloutpath/__$channela-epg.xml\n";
-nice -n 19 
+
-        #print "cat $xmloutpath/__$channela-epg.xml | $toolpath/perl/xmltv2foltia.pl\n";
-        $oserr = `cat $xmloutpath/__$channela-epg.xml | $toolpath/perl/xmltv2foltia.pl`;
@@ -205 +213 @@
-
-        #print "nice -n 19 $epgdumppath/epgdump /CS $recfolderpath/__$channelb.m2t $xmloutpath/__$channelb-epg.xml\n";
-nice -n 19 
+
-        #print "cat $xmloutpath/__$channelb-epg.xml | $toolpath/perl/xmltv2foltia.pl\n";
-        $oserr = `cat $xmloutpath/__$channelb-epg.xml | $toolpath/perl/xmltv2foltia.pl`;
@@ -213 +221 @@
-        &writelog("epgimport DEBUG Skip CS.");
-}#endif use 
-
-
-
-
-
+#
+#
+#
+#
+#
-
-