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