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 ");