#!/bin/sh

# pc -- get podcast episode information

curl -Ls "$@" |
sed -n '/<item>/,$p' |
sed '/^$/d; s/^[	 ]*//' |
awk -vFS='[<>]' -vOFS='	' '
	/<pubDate>/ { date = $3 }
	/<itunes:duration>/ { duration = $3 }
	/<enclosure[^>]*>/ { link = $0 }
	/<description>$/ { getline; summary = $0 }
	/<description>..*/ { summary = $3 }
	/<itunes:summary>$/ { getline; summary = $0 }
	/<itunes:summary>..*/ { summary = $3 }
	/<title>/ { title = $3 }
	/<\/item>/ {
		print "Title: " title
		print "Duration: " duration
		print "Date: " date
		gsub(/^<enclosure[^>]* url="/, "", link)
		gsub(/".*/, "", link)
		print "Link: " link
		gsub(/\\\\/, ".", title)
		gsub(/[\/:*<>|]/, ".", title)
		gsub(/.*\./, ".", link)
		print "File: " title link
		gsub(/<!\[CDATA\[/, "", summary)
		gsub(/\]\]>/, "", summary)
		print "Summary: " summary
		print ""
		date = "?"
		duration = "?"
		file = "?"
		summary = "?"
		title = "?"
	}
'