#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的コマンドなど

**使い方 [#he903add]
GetHLSRadiko.sh STR DUR STID [AREAID]
または
GetHLSRadiko.sh STR TIME STID TF


 STR   : 保存ファイルを区別する文字列
 DUR   : 録音時間(秒)  スクリプト内でマージン値が加算される
 STID  : 放送局ID  (文化放送=QRR, 北海道放送=HBC,...など)
 AREAID: Radikoの配信エリアを区別するID (北海道=JP1, 東京=JP13,...など)
 
 TIME  : 12桁の年月日時分 文字列で表した録音開始時間と終了時間を'-'でつないだもの
         例)201801011230-201801011300
 TF    : 文字列 'TF' そのもの タイムフリーモードを表すためのもの

AREAIDは省略できます。

保存されるファイル名は 
YYYY-MM-DD-hhmm-${STID}-${STR}.m4a 
YYYY-MM-DD-hhmm-${STID}-${STR}_TF.m4a
になります。


例
>GetHLSRadiko.sh AGSON 7200 QRR

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

>GetHLSRadiko.sh AGSON 201811102100-201811102300 QRR TF

2018/11/10 21時~23時までのタイムフリー放送を 2018-11-10-2100-QRR-AGSON_TF.m4a に保存します。

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

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

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

#sh("bash;highlight:[1,2,3,4,22,23,56,63,226]"){{
#!/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
FLVFILEEXT=".aac"

if [ $AREAID = 'TF' ]; then

	TIMEFREE=1
	AREAID=$CHANNEL

#RECTIME 201811131200-201811131215
	if [ ${#RECTIME} -ne 25 ]; then
		echo "TIME error   2018MMDDhhmm-2018MMDDhhmm";
		exit 1;
	fi
	START=${RECTIME:0:12}
	STOP=${RECTIME:13}
	if  [ `expr "$START" : '[0-9]*'` -ne 12 ] ; then
		echo "Not Number in TIME string"
		exit 1;
	fi
	if  [ `expr "$STOP" : '[0-9]*'` -ne 12 ] ; then
		echo "Not Number in TIME string"
		exit 1;
	fi
	if [ $START -gt $STOP ]; then
		echo "Start time is greater than Stop time"
		exit 1;
	fi
	DATESTR=${START:0:4}-${START:4:2}-${START:6:2}-${START:8:4}
	OUTFILENAME=${OUTFILEBASEPATH}/${DATESTR}-${CHANNEL}-${OUTFILEPREFIX}_TF

else 
	OUTFILENAME=${OUTFILEBASEPATH}/`date '+%Y-%m-%d-%H%M'`-${CHANNEL}-${OUTFILEPREFIX}
	TIMEFREE=0
	MARGINTIME=120
	RECTIME=`expr ${RECTIME}  + ${MARGINTIME}`
fi

##
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}


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

#########
if [ $TIMEFREE -eq 0 ]; then

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

#
# 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

else
stream_url="https://radiko.jp/v2/api/ts/playlist.m3u8?station_id=${CHANNEL}&l=15&ft=${START}00&to=${STOP}00"

${FFMPEG} -loglevel quiet \
 	-headers "X-Radiko-AuthToken: ${authtoken}${CRLF}" \
	-i ${stream_url} \
	-vn -acodec copy \
	${OUTFILENAME}${FLVFILEEXT}
	if [ $? -ne 0 ]; then
		echo "Can not get TIME FREE audio"
		exit 1;
	fi
fi

#
#
#
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
exit 0;
}}

トップ   差分 バックアップ リロード   一覧 単語検索 最終更新   ヘルプ   最終更新のRSS