rbtune 1.0

data/lib/keychain.rb

@@ -0,0 +1,47 @@
+# Pit のフロントエンド。
+# key に uri を指定すると、accountでアカウントとパスワードのセットを得られる。
+# key が空の場合、queryによってアカウントとパスワードのセットを登録できる。
+# パスワードの難読化はごく甘く、単にBase64でエンコードしているのみ。
+
+require "pit"
+require "base64"
+require 'io/console'
+
+class KeyChain
+  attr_reader :key
+
+  def initialize(key)
+    @key = key
+  end
+
+
+  def account
+    radiko = Pit.get(key)
+    if radiko.has_key? :account and radiko.has_key? :password
+      [ radiko[:account], Base64.decode64(radiko[:password]) ]
+    end
+  end
+
+
+  def set(account, password)
+    Pit.set(key, data: { account: account, password: Base64.encode64(password)})
+    [account, password]
+  end
+
+
+  def query(prompt, account)
+    old_account, old_password = account()
+    puts prompt
+    print '  password : '
+    STDOUT.flush
+    new_password = STDIN.noecho(&:gets).chomp
+    puts
+    case
+    when new_password.empty?
+      raise "空のパスワードは無効です (何も変更されません)"
+    when new_password == old_password
+      raise "旧パスワードと同じパスワードです"
+    end
+    new_password
+  end
+end

data/lib/player/ffmpeg.rb

@@ -0,0 +1,54 @@
+# ffmpeg.rb
+require "timeout"
+require "open3"
+require "player/mplayer"
+
+class FFMpeg < Player
+	def initialize
+		self['loglevel'] = 'warning'
+		self['n']        = '' # do not overwrite
+		@mplayer = Mplayer.new('-')
+	end
+
+
+	def command
+		'ffmpeg'
+	end
+
+	def options
+		map{ |k,v| "-#{k} #{v}"}*' '
+	end
+
+
+	def to_s
+		# novideoオプション -vn は、この位置でないと機能しない
+		%Q(#{command} #{options} -vn #{@output})
+	end
+
+
+	def play
+		self['f'] = 'mpegts'
+		@output = 'pipe:1'
+		cmd = "#{to_s} | #{@mplayer}"
+		$stderr.puts 'play: '+cmd
+		`#{cmd}`
+		raise $? unless $?.success?
+	end
+
+
+	def rec(file, sec, quiet = true)
+		self['t'] = sec if sec
+		if quiet
+			@output = file
+			cmd = to_s
+		else
+			self['f'] = 'mpegts'
+			@output = 'pipe:1'
+			cmd = "#{to_s} | tee #{file} | #{@mplayer}"
+		end
+
+		puts "rec: #{cmd}"
+		stdout, stderr, status = Open3.capture3(cmd)
+	end
+
+end

data/lib/player/mplayer.rb

@@ -0,0 +1,66 @@
+# mplayer.rb
+require "timeout"
+require "open3"
+require "player/player"
+
+class Mplayer < Player
+
+	def initialize(url)
+		@url=url
+		self['cache']     = 64
+		self['cache-min'] = 16
+		self['quiet']     = ''      # 画面表示をしない
+	end
+
+
+	def command
+		'mplayer'
+	end
+
+	def options
+		map{ |k,v| "-#{k} #{v}"}*' '
+	end
+
+
+	def to_s
+		%Q(#{command} #{@url} #{options} )
+	end
+
+
+	def play
+		puts to_s
+		`#{to_s}`
+	end
+
+
+	def rec(file, sec, quiet = true)
+		self['dumpstream'] = ''
+		self['dumpfile']   = file
+		if quiet
+			self['nosound'] = ''	# 音声を再生しない
+		end
+
+		puts "rec (#{sec}s): #{to_s}"
+		stdin, stdout, stderr, wait_thread = Open3.popen3(to_s)
+		dsec = -1
+		psec = dsec
+		wait = 0
+		i = 0
+		WAIT_LIMIT = 3
+		while dsec <= sec
+			dsec = duration(file)
+			if dsec == psec
+				wait += 1
+				break if wait > WAIT_LIMIT
+			else
+				wait = 0
+				psec = dsec
+			end
+			p [i, dsec, psec, wait] if wait > 0
+			i += 1
+			sleep 1
+		end
+		stdin.write 'q'
+	end
+
+end

data/lib/player/player.rb

@@ -0,0 +1,29 @@
+# Player 仮想クラス
+# Mplayer等で継承して使う
+
+class Player < Hash
+
+	def command; end
+	def play; end
+	def rec(file, sec, quiet = true); end
+
+
+	def options
+		map{ |k,v| "--#{k} #{v}"}*' '
+	end
+
+
+	def to_s
+		%Q(#{command} #{options} )
+	end
+
+
+	# 音声ファイル file の長さ(sec)を返す
+	def duration(file)
+		stdout, stderr, status = Open3.capture3("ffprobe #{file}")
+		stderr =~ /Duration: (\d{2}):(\d{2}):(\d{2}.\d{2})/m
+		hour, min, sec = [$1, $2, $3].map(&:to_f)
+		hour*60*60 + min*60 + sec
+	end
+
+end

data/lib/player/rtmpdump.rb

@@ -0,0 +1,37 @@
+# rtmpdump.rb
+require "player/player"
+
+
+class RtmpDump < Player
+	def initialize
+		self['live'] = ''
+		self['quiet'] = ''
+	end
+
+
+	def command
+		'rtmpdump'
+	end
+
+
+	def play
+		# puts "play: #{to_s} | mplayer -"
+		`#{to_s} | mplayer -`
+	end
+
+
+	def rec(file, sec, quiet = true)
+		self['stop'] = sec
+
+		if quiet
+			self['flv'] = file
+			puts "rec: #{to_s}"
+			`#{to_s}`
+		else
+			puts "rec: #{to_s}"
+			`#{to_s} | tee #{file} | mplayer -`
+		end
+	end
+
+
+end

data/lib/rbtune.rb

@@ -0,0 +1,8 @@
+require "rbtune/version"
+require "rbtune/radiru"
+require "rbtune/radiko"
+require "rbtune/radiko_premium"
+require "rbtune/simul"
+require "rbtune/listenradio"
+require "rbtune/jcba"
+require "rbtune/agqr"

data/lib/rbtune/agqr.rb

@@ -0,0 +1,36 @@
+# 文化放送 超A&G+ を受信する
+
+require "rbtune/radio"
+require "player/rtmpdump"
+require "player/ffmpeg"
+require "fileutils"
+
+class Agqr < Radio
+  def initialize
+    @ext     = 'flv'
+    @out_ext = 'm4a'
+  end
+
+  def fetch_stations
+    uri = "rtmp://fms-base1.mitene.ad.jp/agqr/aandg1"
+    [Station.new('AGQR', uri, name: '超A&G+', ascii_name: 'aandg1')]
+  end
+
+
+  def create_player(uri)
+    rtmpdump           = RtmpDump.new
+    rtmpdump['rtmp']   = uri
+    rtmpdump
+  end
+
+
+  def convert(tmpfile, recfile)
+    ffmpeg = FFMpeg.new
+    ffmpeg['loglevel'] = 'quiet'
+    ffmpeg['i'] = %Q("#{tmpfile}")
+    ffmpeg['acodec'] = 'copy'
+    stdout, stderr, status = ffmpeg.rec recfile, nil
+    FileUtils.rm tmpfile if status.success?
+  end
+
+end

data/lib/rbtune/jcba.rb

@@ -0,0 +1,32 @@
+#!/usr/bin/env ruby
+=begin
+JCBAサイマルラジオを受信する
+=end
+require "rbtune/listenradio"
+require "rbtune/station"
+
+
+class Jcba < ListenRadio
+
+	def stations_uri
+		'https://www.jcbasimul.com'
+	end
+
+
+	def parse_stations(body)
+		radioboxes = body / 'div.areaList ul li'
+		stations = radioboxes.map do |station|
+			h3      = station.at 'h3'
+			rplayer = station.at 'div.rplayer'
+			text    = station.at 'div.text'
+
+			id   = rplayer['id']
+			uri  = "http://musicbird-hls.leanstream.co/musicbird/#{id}.stream/playlist.m3u8"
+			name = h3.text.sub(%r( / .*), '')
+			desc = text.text
+			# puts "(#{h3.text}) (#{rplayer['id']}) (#{text.text})"
+			Station.new(id, uri, name: name, description: desc)
+		end
+	end
+
+end

data/lib/rbtune/listenradio.rb

@@ -0,0 +1,45 @@
+#!/usr/bin/env ruby
+=begin
+リスラジまたはJCBAサイマルラジオを受信する
+=end
+
+
+require "rbtune/radio"
+require "player/ffmpeg"
+require "json"
+
+
+class ListenRadio < Radio
+
+	def initialize
+		super
+		@ext = 'mp4'
+	end
+
+	def create_player(uri)
+		player = FFMpeg.new
+		player['i']      = uri     # input stream
+		player['acodec'] = 'copy'  # acodecオプションはiオプションのあとに置かないとエラー
+		player
+	end
+
+
+	def stations_uri
+		'http://listenradio.jp/service/channel.aspx'
+	end
+
+
+	def parse_stations(body)
+		json = JSON[body.body, symbolize_names: true]
+		stations = json[:Channel].map do |station|
+			name = station[:ChannelName]
+			id   = station[:ChannelId]
+			desc = station[:ChannelDetail]
+			uri  = station[:ChannelHls]
+			# puts "'#{name}' <#{uri}> #{desc}"
+			Station.new(id, uri, name: name, description: desc)
+		end
+	end
+
+
+end

data/lib/rbtune/radiko.rb

@@ -0,0 +1,143 @@
+#radiko.rb
+# coding: utf-8
+
+require "mechanize"
+require "rbtune/radio"
+require "player/rtmpdump"
+require 'swf_ruby'
+
+
+class Radiko < Radio
+	attr_reader :authtoken
+
+
+	def playerurl
+		"http://radiko.jp/apps/js/flash/myplayer-release.swf"
+	end
+
+
+	def playerfile
+		"player.swf"
+	end
+
+
+	def keyfile
+		"authkey.png"
+	end
+
+
+	# get_auth2 の返り値により @area_id, @area_ja, @area_en が設定される
+	def open
+		unless File.exists? playerfile
+			$stderr.puts 'fetching player...'
+			fetch_file playerurl, playerfile
+		end
+		unless File.exists? keyfile
+			swfextract playerfile, 12, keyfile
+		end
+
+		@authtoken, partialkey = authenticate1 'https://radiko.jp/v2/api/auth1_fms'
+		@area_id, @area_ja, @area_en = authenticate2 'https://radiko.jp/v2/api/auth2_fms', authtoken, partialkey
+		puts "area: #{area_id} (#{area_ja}: #{area_en})"
+	end
+
+
+	def channel_to_uri
+		xml = agent.get "http://radiko.jp/v2/station/stream/#{@channel}.xml"
+		xml.at('//url/item').text
+	end
+
+
+	def create_player(uri)
+		rtmpdump           = RtmpDump.new
+		rtmpdump['rtmp']   = uri
+		rtmpdump['swfVfy'] = playerurl
+		rtmpdump['conn']   = %Q(S:"" --conn S:""  --conn S:""  --conn S:#{authtoken})
+		rtmpdump
+	end
+
+
+	def authenticate1(url)
+		res = agent.post url, {}, {
+				'pragma'               => 'no-cache',
+				'X-Radiko-App'         => 'pc_ts',
+				'X-Radiko-App-Version' => '4.0.0',
+				'X-Radiko-User'        => 'test-stream',
+				'X-Radiko-Device'      => 'pc',
+			}
+		s = res.body
+		s.sub! /\r\n\r\n.*/m, ''
+		arr = s.split(/\r\n/).map{|s| s.split('=')}.flatten
+		auth1 = Hash[*arr]
+		authtoken = auth1['X-Radiko-AuthToken'] || auth1['X-RADIKO-AUTHTOKEN']
+		offset = auth1['X-Radiko-KeyOffset'].to_i
+		length = auth1['X-Radiko-KeyLength'].to_i
+		partialkey = read_partialkey keyfile, offset, length
+		[authtoken, partialkey]
+	end
+
+
+	def read_partialkey(file, offset, length)
+		key = File.open(file, "rb") { |io| io.read(offset + length) }
+		Base64.encode64(key[offset,length]).chomp
+	end
+
+
+	# return: area info
+	def authenticate2(url, authtoken, partialkey)
+		# pp [url, authtoken, partialkey]
+		agent.verify_mode = OpenSSL::SSL::VERIFY_NONE
+		res = agent.post url, {}, {
+			'pragma'               => 'no-cache',
+			'X-Radiko-App'         => 'pc_ts',
+			'X-Radiko-App-Version' => '4.0.0',
+			'X-Radiko-User'        => 'test-stream',
+			'X-Radiko-Device'      => 'pc',
+			'X-Radiko-Authtoken'   => authtoken,
+			'X-Radiko-Partialkey'  => partialkey,
+		}
+		body = res.body
+		body.force_encoding 'utf-8'
+		body.split(',').map(&:strip)
+	end
+
+
+	def stations_uri
+		"http://radiko.jp/v3/station/list/#{area_id}.xml"
+	end
+
+
+	def parse_stations(body)
+		stations = body.search '//station'
+		stations.map do |station|
+			id         = station.at('id').text
+			name       = station.at('name').text
+			uri        = id
+			ascii_name = station.at('ascii_name').text
+			Station.new(id, uri, name: name, ascii_name: ascii_name)
+		end
+	end
+
+
+	def fetch_file(url, file=nil)
+		content = agent.get_file(url)
+		File.open(file, "wb") { |fout| fout.write content } if file
+		content
+	end
+
+
+	def swfextract(swffile, character_id, out_file)
+		swf = SwfRuby::SwfDumper.new
+		swf.open(swffile)
+		swf.tags.each_with_index do |tag, i|
+			tag = swf.tags[i]
+			if tag.character_id && tag.character_id == character_id
+				offset = swf.tags_addresses[i]
+				len = tag.length
+				File.open(out_file, 'wb') { |out| out.print tag.data[6..-1] }
+				break
+			end
+		end
+	end
+
+end