]> git.plutz.net Git - serve0/blob - pages/playctl.sh
extending cooperation functions
[serve0] / pages / playctl.sh
1 #!/bin/zsh
2
3 # Copyright 2014, 2016 Paul Hänsch
4 #
5 # This file is part of Serve0.
6
7 # Serve0 is free software: you can redistribute it and/or modify
8 # it under the terms of the GNU Affero General Public License as published by
9 # the Free Software Foundation, either version 3 of the License, or
10 # (at your option) any later version.
11
12 # Serve0 is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 # GNU Affero General Public License for more details.
16
17 # You should have received a copy of the GNU Affero General Public License
18 # along with Serve0.  If not, see <http://www.gnu.org/licenses/>. 
19
20 . $_EXEC/pages/common.sh
21
22 info="${_GET[i]}"
23 location="$(invalidate "${_GET[l]}" '(.*/)?\.\.(/.*)?|' /)"
24 directory="${location%/*}"
25 statusfile="$_DATA/mplayer.status"
26 statusfile="/tmp/mplayer.status"
27
28 [ -n "$info" ] && video="${_DATA}/videos/$info" \
29                || video="${treeroot%/}/${location#/}"
30
31 meta="${_DATA}/mplayer.meta"
32 tags="$(sed -n '2p' "$meta")"
33 description="$(sed -n '3,$p' "$meta")"
34 head -n1 "$meta" |read length width height TITLE
35
36 volume=$(validate "$(cat "$_DATA/mplayer.volume")" '[1-9]?[0-9]|100' 20)
37
38 debug VIDEO: $video
39
40 pa_sinks(){
41   if which pactl >/dev/null; then
42     export DISPLAY=":0"
43     export XDG_RUNTIME_DIR="/run/user/$(id |sed -rn '1s;.*uid=([0-9]+)[^0-9].*;\1;p')"
44
45     pactl list sinks \
46     | sed -rn '/Sink #/{:X;N;/Description: /!bX;s;Sink #([0-9]+).+Description: (.*);\1 \2;p}'
47   fi
48 }
49
50 printf 'Refresh: 1\r\n'
51
52 progress(){
53   cr="$(printf \\r)"
54
55   tail --pid=$$ -c100 -f "$statusfile" \
56   | while read -d "$cr" line; do
57     [ $line = "BREAK" ] && exit 0
58     printf '%s\n' "$line"
59   done \
60   | sed -urn '1~12s;^.* V: *+([0-9]+)(\.[0-9]+) A-V:.*$;\1;p' \
61   | while read m; do
62     [ "$m" != "$previous" ] && printf "%d %d\n" "$(($m * 100 / $length))" "$m"
63     previous="$m"
64   done
65 }