radiko_param.sh

#!/bin/bash

LANG=ja_JP.utf8

pid=$$
date=`date '+%Y-%m-%d-%H_%M'`
playerurl=http://radiko.jp/player/swf/player_3.0.0.01.swf
playerfile="/tmp/player.swf"
keyfile="/tmp/authkey.png"

outdir="."

if [ $# -ge 1 ]; then
  channel=$1
else
  echo "usage : $0 channel_name"
  exit 1
fi

#
# get player
#
if [ ! -f $playerfile ]; then
  wget -q -O $playerfile $playerurl

  if [ $? -ne 0 ]; then
    echo "failed get player"
    exit 1
  fi
fi

#
# get keydata (need swftool)
#
if [ ! -f $keyfile ]; then
  swfextract -b 14 $playerfile -o $keyfile

  if [ ! -f $keyfile ]; then
    echo "failed get keydata"
    exit 1
  fi
fi

if [ -f auth1_fms_${pid} ]; then
  rm -f auth1_fms_${pid}
fi

#
# access auth1_fms
#
wget -q \
     --header="pragma: no-cache" \
     --header="X-Radiko-App: pc_1" \
     --header="X-Radiko-App-Version: 2.0.1" \
     --header="X-Radiko-User: test-stream" \
     --header="X-Radiko-Device: pc" \
     --post-data='\r\n' \
     --no-check-certificate \
     --save-headers \
     -O auth1_fms_${pid} \
     https://radiko.jp/v2/api/auth1_fms

if [ $? -ne 0 ]; then
  echo "failed auth1 process"
  exit 1
fi

#
# get partial key
#
authtoken=`perl -ne 'print $1 if(/x-radiko-authtoken: ([\w-]+)/i)' auth1_fms_${pid}`
offset=`perl -ne 'print $1 if(/x-radiko-keyoffset: (\d+)/i)' auth1_fms_${pid}`
length=`perl -ne 'print $1 if(/x-radiko-keylength: (\d+)/i)' auth1_fms_${pid}`

partialkey=`dd if=$keyfile bs=1 skip=${offset} count=${length} 2> /dev/null | base64`

#echo "authtoken: ${authtoken} \noffset: ${offset} length: ${length} \npartialkey: $partialkey"

rm -f auth1_fms_${pid}

if [ -f auth2_fms_${pid} ]; then
  rm -f auth2_fms_${pid}
fi

#
# access auth2_fms
#
wget -q \
     --header="pragma: no-cache" \
     --header="X-Radiko-App: pc_1" \
     --header="X-Radiko-App-Version: 2.0.1" \
     --header="X-Radiko-User: test-stream" \
     --header="X-Radiko-Device: pc" \
     --header="X-Radiko-Authtoken: ${authtoken}" \
     --header="X-Radiko-Partialkey: ${partialkey}" \
     --post-data='\r\n' \
     --no-check-certificate \
     -O auth2_fms_${pid} \
     https://radiko.jp/v2/api/auth2_fms

if [ $? -ne 0 -o ! -f auth2_fms_${pid} ]; then
  echo "failed auth2 process"
  exit 1
fi

#echo "authentication success"

areaid=`perl -ne 'print $1 if(/^([^,]+),/i)' auth2_fms_${pid}`
#echo "areaid: $areaid"

rm -f auth2_fms_${pid}

#
# get stream-url
#

if [ -f ${channel}.xml ]; then
  rm -f ${channel}.xml
fi

wget -q "http://radiko.jp/v2/station/stream/${channel}.xml"

stream_url=`echo "cat /url/item[1]/text()" | xmllint --shell ${channel}.xml | tail -2 | head -1`
url_parts=(`echo ${stream_url} | perl -pe 's!^(.*)://(.*?)/(.*)/(.*?)$/!$1://$2 $3 $4!'`)

rm -f ${channel}.xml

command="rtmpdump -r ${url_parts[0]} --app ${url_parts[1]} --playpath ${url_parts[2]} -W $playerurl -C S:"" -C S:"" -C S:"" -C S:$authtoken --live"

echo "{\"rtmp\":\"${url_parts[0]}\",\"app\":\"${url_parts[1]}\",\"playpath\":\"${url_parts[2]}\",\"playerurl\":\"$playerurl\",\"authtoken\":\"$authtoken\",\"command\":\"$command\"}"

raop_lookup.rb

require 'rubygems'
require 'json'

module AvahiBrowse
  class Service
    attr_reader :name, :addr, :port
    def initialize(line)
      items = line.split(';')
      @name = items[3]
      @addr = items[7]
      @port = items[8]
      if @name
        @name = @name.gsub(/\\[0-9A-Z]{3}/) {|f| f.slice(1,4).to_i.chr }
      end
    end

    def to_json(*a)
      as_json.to_json(*a)
    end

    def as_json(options = { })
      {:name => @name, :addr => @addr, :port => @port}.to_json
    end
  end

  def self.lookup(service = nil)
    if service == nil
      service = '-a'
    end
    `avahi-browse -k -r -t -p #{service}`
    `avahi-browse -k -r -t -p #{service}`.split("\n").map {|l|
      if l =~ /^=;/
        Service.new(l)
      else
        nil
      end
    }.reject {|l| l == nil }
  end
end

puts AvahiBrowse::lookup('_raop._tcp').to_json