#setlinebreak(on)
*GetHLSRadiko.sh [#nf057cb8]
&size(24){最新は[[GitHub:https://github.com/sarami55/script]]をご覧ください。};

RadikoをHLSで録音するスクリプト
[[GetHLSRadiko.sh]]、[[0Random-radiko.pl]]、&ref(0Key-radiko.bin);
ffmpegが必要
その他UNIX的コマンドなど

#sh("bash;highlight:[1,42,70,157,158,159,160,161,162,163,164,165,242]"){{
**使い方 [#he903add]
GetHLSRadiko.sh STR DUR STID [AREAID]

STR   : 保存ファイルを区別する文字列
DUR   : 録音時間(秒)  スクリプト内でマージン値が加算される
STID  : 放送局ID  (文化放送=QRR, 北海道放送=HBC,...など)
AREAID: Radikoの配信エリアを区別するID (北海道=JP1, 東京=JP13,...など)

AREAIDは省略できます。

保存されるファイル名は YYYY-MM-DD-hhmm-${STID}-${STR}.m4a になります。
日付部分にはスクリプトを起動した時間が入ります。

例
>GetHLSRadiko.sh TEST 1800 QRR

この場合、文化放送をYYYY-MM-DD-hhmm-QRR-TEST.m4a に保存されます。

**スクリプト [#k2f45ea7]
以下にスクリプトを示します。
ハイライト部分は適当に自分の環境に合わせてください。
25行目で録音時間にプラスする時間(秒)を設定しています。HLSは遅延が多いような気がするので多めに設定します。
30行目が魔法のファイルでRadikoのモバイル版の認証に利用するkeyfileです。
このページの下に添付ファイルとして置いてあります。
177行目以降は保存ファイルの暗号化やアップロードについてですので消してしまってかまいません。

[[0Random-radiko.pl]]からよみこまれたUSERAGENTは未使用です。
私にはshellエスケープがむずかしいです。

Keyfileなど重要な事柄は
[[https://github.com/jackyzy823/rajiko:https://github.com/jackyzy823/rajiko]]
を参考にしました。
jackyzy823さんに感謝します。

#sh("bash;highlight:[1,2,3,4,21,22,23,25,30,177]"){{
#!/usr/local/bin/bash
export PATH=$PATH:$HOME/bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/games:/usr/local/sbin:/usr/local/bin
export LD_LIBRARY_PATH=$HOME/lib
export PERL5LIB="$HOME/lib/perl5/lib/perl5:$HOME/lib/perl5/lib/perl5/amd64-freebsd"


if [ $# -eq 4 ]; then
  OUTFILEPREFIX=$1
  RECTIME=$2
  CHANNEL=$3
  AREAID=$4
elif  [ $# -eq 3 ]; then
  OUTFILEPREFIX=$1
  RECTIME=$2
  CHANNEL=$3
  AREAID=$3
else
  echo "usage : $0 OUTFILEPREFIX RECTIME CHANNEL[AREAID]"
  exit 1;
fi
FFMPEG=$HOME/bin/ffmpeg
OUTFILEBASEPATH=$HOME/REC
OUTFILENAME=${OUTFILEBASEPATH}/`date '+%Y-%m-%d-%H%M'`-${CHANNEL}-${OUTFILEPREFIX}
FLVFILEEXT=".aac"
MARGINTIME=120
RECTIME=`expr ${RECTIME}  + ${MARGINTIME}`

cd ${OUTFILEBASEPATH}

keyfile=$HOME/bin/0Key-radiko.bin

##
0Random-radiko.pl $AREAID > mysetenv-$$.sh
if [ $? -ne 0 ]; then
	echo "ID error";
	rm mysetenv-$$.sh
	exit 1;
fi

##
source mysetenv-$$.sh
##
rm mysetenv-$$.sh
##


if [ -f auth1_fms_hls_$$__${OUTFILEPREFIX}_${CHANNEL} ]; then
  rm -f auth1_fms_hls_$$__${OUTFILEPREFIX}_${CHANNEL}
fi

##
#
# access auth1
#
wget  -q\
     --header="pragma: no-cache" \
     --header="X-Radiko-App: aSmartPhone7a" \
     --header="X-Radiko-App-Version: ${APPVER}" \
     --header="X-Radiko-User: user-${USERID}" \
     --header="X-Radiko-Device: ${DEVICE}" \
     --save-headers \
     --tries=10 \
     --retry-connrefused \
     --waitretry=5 \
     --timeout=10 \
     -O auth1_fms_hls_$$_${OUTFILEPREFIX}_${CHANNEL} \
     https://radiko.jp/v2/api/auth1

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

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

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

#echo "authtoken: ${authtoken} offset: ${offset} length: ${length} partialkey: $partialkey"

rm -f auth1_fms_hls_$$_${OUTFILEPREFIX}_${CHANNEL}

if [ -f auth2_fms_hls_$$_${OUTFILEPREFIX}_${CHANNEL} ]; then
  rm -f auth2_fms_hls_$$_${OUTFILEPREFIX}_${CHANNEL}
fi

#
# access auth2
#
wget  -q\
     --header="pragma: no-cache" \
     --header="X-Radiko-App: aSmartPhone7a" \
     --header="X-Radiko-App-Version: ${APPVER}" \
     --header="X-Radiko-User: user-${USERID}" \
     --header="X-Radiko-Device: ${DEVICE}" \
     --header="X-Radiko-AuthToken: ${authtoken}" \
     --header="X-Radiko-PartialKey: ${partialkey}" \
     --header="X-Radiko-Location: ${GPSLocation}" \
     --header="X-Radiko-Connection: wifi" \
     --retry-connrefused \
     --waitretry=5 \
     --tries=10 \
     --timeout=10 \
     -O auth2_fms_hls_$$_${OUTFILEPREFIX}_${CHANNEL} \
     https://radiko.jp/v2/api/auth2

if [ $? -ne 0 -o ! -f auth2_fms_hls_$$_${OUTFILEPREFIX}_${CHANNEL} ]; then
  echo "failed auth2 process"
  exit 1;
fi

#echo "authentication success"

#auth_areaid=`cat auth2_fms_hls_$$_${OUTFILEPREFIX}_${CHANNEL} | perl -ne 'print $1 if(/^([^,]+),/i)'`
#echo "areaid: $auth_areaid"

rm -f auth2_fms_hls_$$_${OUTFILEPREFIX}_${CHANNEL}

#########
#########

wget -q "http://radiko.jp/v2/station/stream_smh_multi/${CHANNEL}.xml" -O ${CHANNEL}-$$.xml

stream_url=`echo "cat /urls/url[1]/playlist_create_url/text()" | xmllint --shell ${CHANNEL}-$$.xml | tail -2 | head -1`;

rm -f ${CHANNEL}-$$.xml


#echo $stream_url

CRLF=$(printf '\r\n')

#
# ffmpeg
#
RETRYCOUNT=0
while :
do
${FFMPEG} -loglevel quiet \
 	-headers "X-Radiko-AuthToken: ${authtoken}${CRLF}" \
	-i ${stream_url} \
	-t ${RECTIME} \
	-vn -acodec copy \
	${OUTFILENAME}${FLVFILEEXT}


  if [ `wc -c ${OUTFILENAME}${FLVFILEEXT} | awk '{print $1}'` -ge 10240 ]; then
    break
  elif [ ${RETRYCOUNT} -ge 5 ]; then
    echo "failed ffmpeg"
    exit 1;
  else
    RETRYCOUNT=`expr ${RETRYCOUNT} + 1`
  fi
done

#
#
#
tmpa=${OUTFILENAME}${FLVFILEEXT}
tmpb=${OUTFILENAME}.m4a

filename=`basename $tmpa`
myfilename=`basename $tmpb`

cd $HOME/REC
${FFMPEG} -i $filename -vn -acodec copy \
	-metadata Comment="user/HLS_Radiko" \
	$myfilename >/dev/null 2>/dev/null
rm -f $filename
filename=$myfilename

#
#
# optional section
#
#
gpg --options $HOME/.gnupg/opt.txt $filename
DB=$HOME/.gnupg/Sessionkeys.db
key=`gpg -o /dev/null --batch --show-session-key $filename.gpg 2>&1|
        perl -ne 'print $1 if (/gpg: session key:\s+.(\w+:\w+)/)'`

RANDOM=`od -vAn -N2 -tu2 < /dev/random`;
mytime=$(expr $RANDOM % 11);
sleep $mytime;

outasffile=`basename $filename`
sqlite3 $DB "insert into sKey values('$outasffile.gpg', '$key');"

Update-crk.sh $OUTFILEBASEPATH/$outasffile.gpg
#cp $working_dir/$outfile.gpg /home/user/www/quick/

FTP.sh $filename
rm -f $filename.zip $filename.gpg


rm -f $filename.zip $filename.gpg
exit 0;
]}
}}
トップ   一覧 単語検索 最終更新   ヘルプ   最終更新のRSS