#!/bin/sh
#160423 sfs 
[ -f index.html ] || wget http://vk-muz.ru/radios/russian/
f="vk-muz`date +"%y%M%d"`.m3u"
echo "#EXTM3U" >$f
awk -F">" '/id="xftitle"/ || /id="norber"/  {print $2}' index.html |sed 's#</span##' \
 |tr "\n" " " \
    |sed 's/ http/#http/g' |tr "#" "\n" |awk '{print "#EXTINF:-1,"$2" "$3" "$4" "$5" "$6"\n"$1}' \
    >>$f && rm index.html
