チェンジセット 99: trunk/install

差分発生行の前後
無視リスト:
コミット日時:
2010/04/07 22:42:59 (15 年前)
コミッタ:
sorshi
ログメッセージ:

radikoのffmpegブロック対策

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動

  • trunk/install/perl/digitalradiorecording.pl

    r98 r99  
    113113sub calldigitalrecorder{ 
    114114 
    115 if  (-e "$toolpath/perl/tool/ffmpeg"){ 
    116          
     115#if  (-e "$toolpath/perl/tool/ffmpeg"){ 
     116#2010/4/7 radikoに対策されたのでffmpeg直接受信できなくなった 
    117117#./ffmpeg -i rtmp://radiko.smartstream.ne.jp:1935/QRR/_defInst_/simul-stream -t 180 -acodec copy ~/php/tv/qrr.aac 
    118 &writelog("digitalradiorecording :DEBUG :$toolpath/perl/tool/ffmpeg -y -i rtmp://radiko.smartstream.ne.jp:1935/$stationname/_defInst_/simul-stream -t $reclengthsec -acodec copy $outputfile."); 
    119  
    120 system("$toolpath/perl/tool/ffmpeg -y -i rtmp://radiko.smartstream.ne.jp:1935/$stationname/_defInst_/simul-stream -t $reclengthsec -acodec copy $outputfile"); 
    121  
     118#&writelog("digitalradiorecording :DEBUG :$toolpath/perl/tool/ffmpeg -y -i rtmp://radiko.smartstream.ne.jp:1935/$stationname/_defInst_/simul-stream -t $reclengthsec -acodec copy $outputfile."); 
     119#system("$toolpath/perl/tool/ffmpeg -y -i rtmp://radiko.smartstream.ne.jp:1935/$stationname/_defInst_/simul-stream -t $reclengthsec -acodec copy $outputfile"); 
     120 
     121if  (-e "$toolpath/perl/tool/rtmpdump"){ 
     122#./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 
     123 
     124&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"); 
     125 
     126system("$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"); 
     127 
     128&writelog("digitalradiorecording :DEBUG :ffmpeg -y -i ${outputfile}.flv -vn -acodec copy $outputfile"); 
     129 
     130system("ffmpeg -y -i ${outputfile}.flv -vn -acodec copy $outputfile"); 
     131 
     132unlink("${outputfile}.flv"); 
    122133}else{ 
    123134        &writelog("digitalradiorecording :ABORT :File not found,recordable ffmpeg on $toolpath/perl/tool/ffmpeg. Show http://d.hatena.ne.jp/nazodane/20100315/1268646192 "); 

  • trunk/install/perl/digitaltvrecording.pl

    r94 r99  
    370370 
    371371}elsif($bandtype == 2){ 
    372 # 110度CSよくわかんない 
     372# recpt1でのみ動作確認 
     373                if ($recch == 333) { 
     374                        $recch = "CS16";#333ch：アニメシアターX(AT-X)  
     375                }elsif($recch == 330){ 
     376                        $recch = "CS22";#330ch：キッズステーション  
     377                }elsif($recch == 332){ 
     378                        $recch = "CS20";#332ch：アニマックス  
     379                }else{ 
     380                        $recch = "CS16";#333ch：アニメシアターX(AT-X)  
     381                } 
     382 
     383 
    373384}else{ 
    374385        &writelog("digitaltvrecording :ERROR :Unsupported and type (digital CS)."); 
    …… 
    379390# b25,recpt1があるか確認 
    380391        if  (-e "$toolpath/perl/tool/recpt1"){ 
     392                if ($bandtype >= 1){ #BS/CSなら 
     393                #[foltia@velvia tool]$ ./recpt1 --b25 --sid 333 CS16 180 ~/php/tv/atxtest.m2t 
     394                &writelog("digitaltvrecording DEBUGrecpt1 --b25 --sid $originalrecch  $recch $reclengthsec $outputfile   "); 
     395                $oserr = system("$toolpath/perl/tool/recpt1 --b25 --sid $originalrecch  $recch $reclengthsec $outputfile  "); 
     396                }else{  
    381397                &writelog("digitaltvrecording DEBUG recpt1 --b25  $originalrecch $reclengthsec $outputfile  "); 
    382398                $oserr = system("$toolpath/perl/tool/recpt1 --b25  $originalrecch $reclengthsec $outputfile  "); 
     399                } 
    383400                $oserr = $oserr >> 8; 
    384401                        if ($oserr > 0){ 
track feed