!/bin/sh

generate a m3u playlist of all files in current directory

poor urlescape, most are useless.

urlescape()

{

sed '

	s/%/%25/g; 

	s/[[:space:]]/%20/g;

	s/</%3C/g;

	s/>/%3E/g;

	s/\#/%23/g;

	s/{/%7B/g; 

	s/}/%7D/g; 

	s/|/%7C/g; 

	s/\\/%5C/g; 

	s/\^/%5E/g; 

	s/~/%7E/g; 

	s/\[/%5B/g; 

	s/\]/%5D/g; 

	s/`/%60/g; 

	s/;/%3B/g; 

	s/?/%3F/g; 

	s/:/%3A/g; 

	s/@/%40/g; 

	s/:/%3D/g; 

	s/&/%26/g; 

	s/\$/%24/g; 

'

}

usage()

{

printf "usage:\n\t"

printf "%s (-h) (-u <url>)\n" "$0"

printf "\t-h : print help\n"

printf "\t-f : print fast run, no metadata\n"

printf "\t-u : prepend <url> to path for streaming\n"

printf "\t\t i.e. -u "http://example.com/audio/"\n"

exit

}

fast=0

while getopts 'hfu:' c

do

case $c in

	h) usage ;;

	u) url="${OPTARG}" ;;

f) fast=1 ;;

esac

done

if [ $fast != 1 ]; then

printf "#EXTM3U\n\n"

fi

find . -type f \

-iname '*.flac' -o \

-iname '*.mp3' -o \

-iname '*.m4a' -o \

-iname '*.ogg' -o \

-iname '*.opus' -o \

-iname '*.webm'| \

sed 's/^\.\///' |\

while read -r line; do

	if [ $fast != 1 ]; then

		title=""

		duration=""

		artist=""

		duration="$(ffprobe -v 0 -show_entries stream=duration "${line}" |\

			awk -F '=' '/duration=/ {sub("\\..*", "", $2); printf $2; exit}')"

		title="$(ffprobe -v 0 -show_entries 'format_tags=title' "${line}" |\

			awk -F '=' '/title=/ {print $2}')"

		artist="$(ffprobe -v 0 -show_entries 'format_tags=artist' "${line}" |\

			awk -F '=' '/artist=/ {print $2}')"

		test -z "${title}" && title="$(basename "${line}")"

		test -z "${duration}" && duration="1"

		printf "#EXTINF:${duration}, %s - %s\n" "${artist}" "${title}"

	fi

	path="$(printf "%s" "${line}" | urlescape)"

	printf "${url}%s\n" "${path}"

done