#! /usr/bin/dash
wdir="/home/bob"
tlength="8"
feed_url="https://feeds.captivate.fm/catolico/"

curl --silent --show-error --location --output "${wdir}/feed" "$feed_url"

gawk --assign tlength="$tlength" --file "${wdir}/extract.awk" "${wdir}/feed" |
    iconv --from-code="utf-8" --to-code="ascii//translit" > "${wdir}/list.tmp"

IFS="@"
i="1"
n="$( wc --lines < "${wdir}/list.tmp" )"

while read "pdate" "url" "title"
do
    fdate="$( date --date="$pdate" +'%Y%m%d' )"

    curl --silent --show-error --create-dirs --location --output \
        "${wdir}/downloads/$fdate - ${title}.mp3" "$url"

    printf "[%s/%s] %s/downloads/%s - %s.mp3\n" $i $n $wdir $fdate $title

    i="$((i + 1))"
done < "${wdir}/list.tmp"

# rm list.tmp