Index: /trunk/install/perl/digitaltvrecording.pl
===================================================================
--- /trunk/install/perl/digitaltvrecording.pl (リビジョン 94)
+++ /trunk/install/perl/digitaltvrecording.pl (リビジョン 99)
@@ -370,5 +370,16 @@
 
 }elsif($bandtype == 2){
-# 110度CSよくわかんない
+# recpt1でのみ動作確認
+		if ($recch == 333) {
+			$recch = "CS16";#333ch：アニメシアターX(AT-X) 
+		}elsif($recch == 330){
+			$recch = "CS22";#330ch：キッズステーション 
+		}elsif($recch == 332){
+			$recch = "CS20";#332ch：アニマックス 
+		}else{
+			$recch = "CS16";#333ch：アニメシアターX(AT-X) 
+		}
+
+
 }else{
 	&writelog("digitaltvrecording :ERROR :Unsupported and type (digital CS).");
@@ -379,6 +390,12 @@
 # b25,recpt1があるか確認
 	if  (-e "$toolpath/perl/tool/recpt1"){
+		if ($bandtype >= 1){ #BS/CSなら
+		#[foltia@velvia tool]$ ./recpt1 --b25 --sid 333 CS16 180 ~/php/tv/atxtest.m2t
+		&writelog("digitaltvrecording DEBUGrecpt1 --b25 --sid $originalrecch  $recch $reclengthsec $outputfile   ");
+		$oserr = system("$toolpath/perl/tool/recpt1 --b25 --sid $originalrecch  $recch $reclengthsec $outputfile  ");
+		}else{ 
 		&writelog("digitaltvrecording DEBUG recpt1 --b25  $originalrecch $reclengthsec $outputfile  ");
 		$oserr = system("$toolpath/perl/tool/recpt1 --b25  $originalrecch $reclengthsec $outputfile  ");
+		}
 		$oserr = $oserr >> 8;
 			if ($oserr > 0){
Index: /trunk/install/perl/digitalradiorecording.pl
===================================================================
--- /trunk/install/perl/digitalradiorecording.pl (リビジョン 98)
+++ /trunk/install/perl/digitalradiorecording.pl (リビジョン 99)
@@ -113,11 +113,22 @@
 sub calldigitalrecorder{
 
-if  (-e "$toolpath/perl/tool/ffmpeg"){
-	
+#if  (-e "$toolpath/perl/tool/ffmpeg"){
+#2010/4/7 radikoに対策されたのでffmpeg直接受信できなくなった
 #./ffmpeg -i rtmp://radiko.smartstream.ne.jp:1935/QRR/_defInst_/simul-stream -t 180 -acodec copy ~/php/tv/qrr.aac
-&writelog("digitalradiorecording :DEBUG :$toolpath/perl/tool/ffmpeg -y -i rtmp://radiko.smartstream.ne.jp:1935/$stationname/_defInst_/simul-stream -t $reclengthsec -acodec copy $outputfile.");
-
-system("$toolpath/perl/tool/ffmpeg -y -i rtmp://radiko.smartstream.ne.jp:1935/$stationname/_defInst_/simul-stream -t $reclengthsec -acodec copy $outputfile");
-
+#&writelog("digitalradiorecording :DEBUG :$toolpath/perl/tool/ffmpeg -y -i rtmp://radiko.smartstream.ne.jp:1935/$stationname/_defInst_/simul-stream -t $reclengthsec -acodec copy $outputfile.");
+#system("$toolpath/perl/tool/ffmpeg -y -i rtmp://radiko.smartstream.ne.jp:1935/$stationname/_defInst_/simul-stream -t $reclengthsec -acodec copy $outputfile");
+
+if  (-e "$toolpath/perl/tool/rtmpdump"){
+#./rtmpdump -y "simul-stream" -n "radiko.smartstream.ne.jp" -c 1935  -p "http://radiko.jp/player/player.html#QRR" -a "QRR/_defInst_" -f "WIN 10,0,45,2" -v -B 180 -o joqr.flv
+
+&writelog("digitalradiorecording :DEBUG :$toolpath/perl/tool/rtmpdump -y \"simul-stream\" -n \"radiko.smartstream.ne.jp\" -c 1935  -p \"http://radiko.jp/player/player.html#${stationname}\" -a \"$stationname/_defInst_\" -f \"WIN 10,0,45,2\" -v -B $reclengthsec -o ${outputfile}.flv");
+
+system("$toolpath/perl/tool/rtmpdump -y \"simul-stream\" -n \"radiko.smartstream.ne.jp\" -c 1935  -p \"http://radiko.jp/player/player.html#${stationname}\" -a \"$stationname/_defInst_\" -f \"WIN 10,0,45,2\" -v -B $reclengthsec -o ${outputfile}.flv");
+
+&writelog("digitalradiorecording :DEBUG :ffmpeg -y -i ${outputfile}.flv -vn -acodec copy $outputfile");
+
+system("ffmpeg -y -i ${outputfile}.flv -vn -acodec copy $outputfile");
+
+unlink("${outputfile}.flv");
 }else{
 	&writelog("digitalradiorecording :ABORT :File not found,recordable ffmpeg on $toolpath/perl/tool/ffmpeg. Show http://d.hatena.ne.jp/nazodane/20100315/1268646192 ");