#!/usr/bin/env zsh
set -e
fpath=($0:h:a/functions.zsh $fpath)
dst=$2:a
cd $1
autoload url-to-filename
zmodload -F zsh/datetime b:strftime
setopt EXTENDED_GLOB
for new (new/*(N)) {
    while read line ; do
        [[ "$line" != "" ]] || break
        cols=(${(s: :)line})
        [[ $cols[1] = "X-Enclosure:" ]] || continue
        url=$cols[2]
        [[ -n "$url" ]]
        fn=$(url-to-filename $url)-$(strftime %Y%m%d-%H%M%S)
        wget --output-file=enc.log --output-document=$dst/$fn $url
        print $fn
    done < $new
}