scripts/mpg123-radio: prototype for HTTPS streaming

git-svn-id: svn://scm.orgis.org/mpg123/trunk@5032 35dc7657-300d-0410-a2e5-dc2837fedb53

scripts/mpg123-radio

@@ -0,0 +1,26 @@
+#!/bin/bash
+
+# needs plain stream URL, not playlist
+
+url=$1
+shift
+
+icy=1
+
+metaint=$(wget --quiet \
+  --user-agent=mpg123-radio/0.1\
+  --header="Icy-MetaData: $icy" \
+  --save-headers "$url" --output-document=- \
+  | perl -ne 'if(/^\s*ICY-meTaint:\s(\d+)/i){ print "$1"; last } last unless /\S/;' )
+
+track=$url
+
+mpg123 --icy-interval "$metaint" "$@" <(wget \
+  --quiet --output-document=- \
+  --user-agent=mpg123-radio/0.1 \
+  --header="Icy-MetaData: $icy" \
+  "$track")
+
+# | grep -i icy-metaint: | tail -n 1 | cut -f 2 -d :
+
+#wget --spider -nd "$url"