{"id":362,"date":"2011-07-03T16:49:44","date_gmt":"2011-07-03T21:49:44","guid":{"rendered":"http:\/\/www.lazarenko.us\/?p=362"},"modified":"2011-07-03T17:03:14","modified_gmt":"2011-07-03T22:03:14","slug":"fm-radio-on-your-mp3-player-2","status":"publish","type":"post","link":"https:\/\/www.lazarenko.us\/?p=362","title":{"rendered":"FM radio on your mp3 player"},"content":{"rendered":"

One day I was tired listening local radio and my music collection. I was missing Russian FM station that I listened before. I knew most of them broadcast in Internet and I could grab audio stream and create mp3 file and listen it later when I am driving to work. What I needed to do it is to find or create appropriate tools. I already had server running Slackware Linux 13.0 and I knew it already has many tools. I choose mplayer<\/a> as recording tool and lame<\/a> as mp3 encoder.
\n
\nMy starting point was initialization part. I won\u2019t explain first few line, they are self-explanatory. Some comments about next ones. RESDIR<\/strong> is directory where we store our off-line playlists. I just DSTDIR<\/strong> is destination directory, it shared using Samba, so I can have access to my mp3 files from Windows box. LOGDIR<\/strong> is place where we store our debugging logs. NOW contains date and time of script\u2019s start. I used this string as part of file name. TODAY<\/strong> is same but used only date, useful for log filenames.<\/p>\n

#\r\n# Global variable declaration\r\n#\r\nMPLAYER="\/usr\/bin\/mplayer"\r\nLAME="\/usr\/local\/bin\/lame"\r\nWGET="\/usr\/bin\/wget"\r\nRESDIR="\/usr\/local\/share\/radio"\r\nDSTDIR="\/files\/radio"\r\nLOGDIR="\/var\/log\/radio"\r\nNOW=$(date +"%d-%b-%Y_%H-%M")\r\nTODAY=$(date +"%d-%b-%Y")<\/pre>\n
Next I added help or description function that will show up when we made mistake in command line.<\/p>\n
###############################################################################\r\n#\r\n# Help function\r\n#\r\nusage() {\r\n     echo "usage: $0  (start|stop)"\r\n     echo "radio stations are:"\r\n     echo "nashe      -- Nashe Radio"\r\n     echo "nrj        -- Energy FM"\r\n     echo "mayak      -- Mayak24 FM"\r\n     echo "pioner     -- Pioner FM"\r\n     echo "montecarlo -- Radio Monte Carlo"\r\n     echo "silver     -- Silver Rain"\r\n     echo "europeplus -- Europe Plus"\r\n     echo "retrofm    -- Retro FM"\r\n     exit 1\r\n}<\/pre>\n
Next part is defining where we are going to get our FM station stream, name of station and prefix for our files. RESFILE<\/strong> is location for station’s playlist, it maybe local or file or on-line. PREFIX<\/strong> is part of our filename that suppose to be in beginning. All our filenames will look like <stationname>_<date_time>.<ext>. ARTIST<\/strong> is how our station name will appear for user or in mp3 tag.<\/p>\n
\r\n###############################################################################\r\n#\r\n# Sets vars according to FM station name from command-line\r\n#\r\ncase "$1" in\r\n    'silver')\r\n    RESFILE="http:\/\/www.silver.ru\/radio\/128.m3u"\r\n    PREFIX="silver"\r\n    ARTIST="Silver Rain"\r\n    ;;\r\n    'nashe')\r\n    RESFILE=http:\/\/188.127.243.169\/nashe-192.m3u\r\n    PREFIX="nashe"\r\n    ARTIST="Nashe Radio"\r\n    ;;<\/pre>\n
I had problem with Energy FM<\/a> station. They are sneaky, they use token key to make sure user plays their stream from web-site and not grabbing it using some tool like me. This token key changes every day. I should write script that parse their web-page and use URL for getting stream. I used wget<\/a> to get page and awk<\/a> as parser.<\/p>\n
\t'nrj')\r\n    # These guys use snicky algorithm,they use token that changes once a day.\r\n    # If you come not from theyr site and\/or without token you just get\r\n    # some commercial crap not music. We should find out token first, then\r\n    # use it as stream URL.\r\n    $WGET --quiet -nv "http:\/\/www.energyfm.ru\/?an=nrj_online_page" -O \/tmp\/nrj.tmp\r\n    RESFILE=$(grep filename \/tmp\/nrj.tmp|awk '\r\n    { split($0,i,"=") }\r\n    { a=i[2] "=" i[3] "=" i[4] "="i [5] }\r\n    { split(a,i,"\\"")}\r\n    { print i[2] }\r\n    ')\r\n    rm -f \/tmp\/nrj.tmp\r\n    PREFIX="nrj"\r\n    ARTIST="Radio Energy"\r\n    ;;<\/pre>\n
Next part is just continuation of list of FM stations.<\/p>\n
    'mayak')\r\n    RESFILE="$RESDIR\/radiomayak_fm.asx"\r\n    PREFIX="mayak"\r\n    ARTIST="Radio Mayak FM"\r\n    ;;\r\n    'pioner')\r\n    RESFILE="$RESDIR\/pionerfm.m3u"\r\n    PREFIX="pioner"\r\n    ARTIST="Pioner FM"\r\n    ;;\r\n    'montecarlo')\r\n    RESFILE="$RESDIR\/montecarlo.asx"\r\n    PREFIX="montecarlo"\r\n    ARTIST="Radio Monte Carlo"\r\n    ;;\r\n    'europeplus')\r\n    RESFILE="$RESDIR\/evropaplus.m3u"\r\n    PREFIX="europeplus"\r\n    ARTIST="Europe Plus"\r\n    ;;\r\n    'retrofm')\r\n    RESFILE="$RESDIR\/retrofm.m3u"\r\n    PREFIX="retrofm"\r\n    ARTIST="Retro FM"\r\n    ;;\r\n    'test')\r\n    # This is just for testing of attempts to connect.\r\n    RESFILE="test.com"\r\n    PREFIX="test"\r\n    ARTIST="Testing"\r\n    ;;\r\n    *)\r\n    echo -e "Station name ommited\\n"\r\n    usage\r\n    ;;\r\nesac<\/pre>\n
Last one is for testing purposes, for debugging case when site is not responding.
\nOn next step we generate generic filename and creating log directory if it is not exist.<\/p>\n
#\r\n# Creates file name from FM station name and current date and time\r\nFILE="$PREFIX"_"$NOW"\r\n#\r\n# Check if log dir exist and create it if not\r\nif [ ! -d "$LOGDIR" ]; then\r\n     echo "Creating log directory..."\r\n     mkdir "$LOGDIR"\r\nfi<\/pre>\n
Now I created main body of script, it will start or stop recording. I used case<\/strong> operator again for it.<\/p>\n
#\r\n# Perform action, start or stop\r\ncase "$2" in\r\n    'start')\r\n    echo $ARTIST recording...\r\n    echo ================================\r\n    # Creates output folder if doesn't exist\r\n    if [ ! -d "$DSTDIR" ]; then\r\n        echo "Creating destination directory..."\r\n        mkdir "$DSTDIR"\r\n    fi\r\n    echo `date +"%m\/%d\/%Y %H:%M:%S"`": Grabing audio stream..."\r\n    # Loop makes 5 attemts to connect to server and dump stream to WAV file\r\n    i=1\r\n    # Start of logging mark\r\n    echo `date +"%m\/%d\/%Y %H:%M:%S"`": ************ Starting $ARTIST ************" &gt;&gt; "$LOGDIR\/$PREFIX"_"$TODAY.log"\r\n    while [ ! -e \/tmp\/$FILE.wav ]; do\r\n        $MPLAYER -v -vo null -vc null -ao pcm:waveheader:file="\/tmp\/$FILE.wav" -playlist "$RESFILE" &gt;&gt; "$LOGDIR\/$PREFIX"_"$TODAY.log"\r\n        # if no output then it was not successful, wait for 10 sec\r\n        if [ ! -e "\/tmp\/$FILE.wav" ]; then\r\n            echo `date +"%m\/%d\/%Y %H:%M:%S"`": Something is not right. Attempt #$i, pausing for 10 sec..."\r\n            sleep 10\r\n        fi\r\n        i=$(($i+1))\r\n        # Check if we exceed number of attempts\r\n        if [ $i -gt 5 ]; then\r\n            echo "Error: mplayer can't connect after 5 attempts."\r\n            exit 3\r\n        fi\r\n    done<\/pre>\n
In lines 117 and 118 we report about starting recording. In 119-123 we create destination directory if it is not exist yet. Sometimes happens we are not able to connect to stream from first attempt, to avoid fail we make 5 attempts, in line 129 we start loop. We will leave this loop if we created output wave file in temporary directory. In line 130 we start mplayer. I used \u2013vo null<\/strong> and \u2013vc null<\/strong> command-line options to prevent any video output because it suppose to work as background process, -ao pcm:waveheader<\/strong> for audio output into wave file and \u2013playlist<\/strong> for stream playlist like that. In line 132 we check temporary file existence, if it is not exist we assume something went wrong, then we report about it and wait for 10 seconds in lines 133, 134. In line 136 we increment counter and check if we exceeded number of attempts in line 138. If we did we assume all 5 attempts was not successful and we give up, report about it and exit with appropriate exit code (lines 139,140).<\/p>\n
If attempt was successful our script is still running. We double-check existence of temporary file in line 146 and exit if it doesn’t exist or going to encoding section. First we remove previous mp3 files from destination directory in lines 151-154.<\/p>\n
    # Worst case scenario, connected, dumped stream but somehow didn't create WAV file\r\n    if [ ! -e "\/tmp\/$FILE.wav" ]; then\r\n        echo "Error: mplayer didn't work well."\r\n        exit 1\r\n    fi\r\n    # Removing mp3 files from destination dir\r\n    if [ ! -e "$DSTDIR\/$PREFIX*.mp3" ]; then\r\n        echo `date +"%m\/%d\/%Y %H:%M:%S"`": Removing files in destination directory..."\r\n        rm -f $DSTDIR\/$PREFIX*.mp3\r\n    fi<\/pre>\n
Command-line options for lame are -S<\/strong> is silent mode, do not show any progress, -b 192<\/strong> is bit-rate 192 kbps. For tags we use station name as artist tag –ta<\/strong> and date and time of recording as track name –tt<\/strong>. At end we check if mp3 file exists, if no we are reporting about problem and exit with error code in lines 159-162.<\/p>\n
    # Start to encode WAV into mp3\r\n    echo `date +"%m\/%d\/%Y %H:%M:%S"`": Encoding mp3 files..."\r\n    $LAME -S -b 192 --ta "$ARTIST" --tt "Air from $NOW" \/tmp\/$FILE.wav $DSTDIR\/$FILE.mp3\r\n    # if mp3 file was not created something went bad\r\n    if [ ! -e "$DSTDIR\/$FILE.mp3" ]; then\r\n        echo "Error: lame didn't work well."\r\n        exit 2\r\n    fi<\/pre>\n
Otherwise, we remove temporary files and change ownership for Windows users.<\/p>\n
    # Everything good, removing temporary WAV file\r\n    echo `date +"%m\/%d\/%Y %H:%M:%S"`": Removing temporary files..."\r\n    rm -f \/tmp\/$FILE.wav\r\n    # Change ownership for Windows users\r\n    chown XXXX "$DSTDIR\/$FILE.mp3"\r\n    echo `date +"%m\/%d\/%Y %H:%M:%S"`": Done."\r\n    ;;<\/pre>\n
Next is section for stopping our recording. We cannot just “kill” mplayer process because we can record more than one station at time. We need to find out PIDs of certain station first. In line 172 we figure out if we recording station right now, if not we just are saying there is not recording. Otherwise we trying to nicely terminate mplayer sending QUIT signal to our processes (line 175).<\/p>\n
    'stop')\r\n    # Check if mplayer for FM station is realy running\r\n    if [ "`ps afx|grep mplayer|grep $PREFIX|wc -l`" -ne "0" ]; then\r\n        echo `date +"%m\/%d\/%Y %H:%M:%S"`": Stoping $ARTIST recording..."\r\n        # if yes try to quit all mplayer's threads\r\n        ps afx|grep mplayer|grep $PREFIX|awk {'print $1'}|xargs -L 1 kill -3\r\n    else\r\n        # else typing info\r\n        echo "Hmmm... nothing to stop."\r\n    fi\r\n    ;;\r\n    *)\r\n    echo -e "start or stop ommited\\n"\r\n    usage\r\n    ;;<\/pre>\n
Otherwise, if it is not valid command we show script usage information. Here<\/a> is full script and here<\/a> is playlist files for on-line stations.<\/p>\n","protected":false},"excerpt":{"rendered":"
One day I was tired listening local radio and my music collection. I was missing Russian FM station that I listened before. I knew most of them broadcast in Internet and I could grab audio stream and create mp3 file and listen it later when I am driving to work. What I needed to do … Continue reading “FM radio on your mp3 player”<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[9,8],"tags":[],"_links":{"self":[{"href":"https:\/\/www.lazarenko.us\/index.php?rest_route=\/wp\/v2\/posts\/362"}],"collection":[{"href":"https:\/\/www.lazarenko.us\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.lazarenko.us\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.lazarenko.us\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.lazarenko.us\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=362"}],"version-history":[{"count":5,"href":"https:\/\/www.lazarenko.us\/index.php?rest_route=\/wp\/v2\/posts\/362\/revisions"}],"predecessor-version":[{"id":367,"href":"https:\/\/www.lazarenko.us\/index.php?rest_route=\/wp\/v2\/posts\/362\/revisions\/367"}],"wp:attachment":[{"href":"https:\/\/www.lazarenko.us\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=362"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.lazarenko.us\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=362"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.lazarenko.us\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=362"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}