#!/bin/zsh

export LC_ALL=C.UTF-8

if (( $# != 2 )); then
    print -P '%Busage:%b '${0:t:r}' <output file> <base url>\n' >&2
    base=http://daimi.au.dk/~danchr/dr
    out="DR Netradio.m3u"
else
    base=$1
    out=$2
    #base=file://$PWD
fi

for i in base out; print -P '%B'$i'%b='${(P)i} >&2
print >&2

urls=($(curl -s http://www.dr.dk/netradio/wmp.asp | grep _128 | cut -d \" -f8))

print '#EXTM3U' >> $out

for url in $urls; do

    asx=$(curl -s $url | iconv -f cp1252 -t utf8)
    ref=$(echo "$asx" | grep -i "<ref" | cut -d\" -f2 | sed s/http:/mms:/ | head -n1)
    title=$(echo "$asx" | grep -i '<title>' | cut -d\> -f2 | cut -d\< -f1 | head -n1)
    fname=${url:t:r}.mov

    > $fname <<EOF
<?xml version="1.0"?>
<?quicktime type="application/x-quicktime-media-link"?>
<embed src="$ref"
       moviename="$title"
       autoplay="true" controller="true"
       href="http://www.dr.dk/netradio/" />
EOF

    print $fname >&2

    printf '#EXTINF:-1,%s\n' $title >> $out
    print $base/$fname >> $out
done