introduce api to fetch progress and volume from player

[serve0] / pages / playctl.sh

diff --git a/pages/playctl.sh b/pages/playctl.sh
index 5fd5411323301fa7960475bc62b7c900f8c1da4a..723d37f8897924b08e1a338f1417f19bd39f7b1f 100755 (executable)
--- a/pages/playctl.sh
+++ b/pages/playctl.sh
@@ -19,6 +19,8 @@
 
 . $_EXEC/pages/common.sh
 
+CR="$(printf \\r)"
+
 info="${_GET[i]}"
 location="$(invalidate "${_GET[l]}" '(.*/)?\.\.(/.*)?|' /)"
 directory="${location%/*}"
@@ -39,14 +41,20 @@ tags="$(sed -n '2p' "$meta")"
 description="$(sed -n '3,$p' "$meta")"
 head -n1 "$meta" |read length width height TITLE
 
-volume=$(validate "$(cat "$_DATA/mplayer.volume")" '[1-9]?[0-9]|100' 20)
-
 debug VIDEO: $video
 
 if [ "$_COOKIE[watch]" = raspi ]; then
   actionuri='//atoemchen/?action=playctl'
+  volume="$({ncat atoemchen 80 <<-EOF
+       GET /?action=playctl&api=volume HTTP/1.0${CR}
+       Host: atoemchen${CR}
+       ${CR}
+       EOF
+  } | sed -r '1,/^\r$/d')"
+  volume=$(validate "${volume}" '[1-9]?[0-9]|100' 20)
 else
   actionuri='?action=playctl'
+  volume=$(validate "$(cat "$_DATA/mplayer.volume")" '[1-9]?[0-9]|100' 20)
 fi
 
 pa_sinks(){
@@ -62,16 +70,23 @@ pa_sinks(){
 printf 'Refresh: 1\r\n'
 
 progress(){
-  cr="$(printf \\r)"
-
-  tail --pid=$$ -c100 -f "$statusfile" \
-  | while read -d "$cr" line; do
-    [ "$line" = "BREAK" ] && exit 0
-    printf '%s\n' "$line"
-  done \
-  | sed -urn '1~12s;^.* V: *+([0-9]+)(\.[0-9]+) A-V:.*$;\1;p' \
-  | while read m; do
-    [ "$m" != "$previous" ] && printf "%d %d\n" "$(($m * 100 / $length))" "$m"
-    previous="$m"
-  done
+  if [ "$_COOKIE[watch]" = raspi ]; then
+    { ncat atoemchen 80 <<-EOF
+       GET /?action=playctl&api=progress HTTP/1.0${CR}
+       Host: atoemchen${CR}
+       ${CR}
+       EOF
+    } | sed -ur '1,/^\r$/d'
+  else
+    tail --pid=$$ -c100 -f "$statusfile" \
+    | while read -d "$CR" line; do
+      [ "$line" = "BREAK" ] && exit 0
+      printf '%s\n' "$line"
+    done \
+    | sed -urn '1~12s;^.* V: *+([0-9]+)(\.[0-9]+) A-V:.*$;\1;p' \
+    | while read m; do
+      [ "$m" != "$previous" ] && printf "%d %d\n" "$(($m * 100 / $length))" "$m"
+      previous="$m"
+    done
+  fi
 }