差分発生行の前後
無視リスト:
コミット日時:
2010/04/07 22:42:59 (14 年前)
コミッタ:
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 "); 
track feed