#!/bin/sh
+# ID NAME DESCRIPTION RESX RESY LENGTH COVER STATUS (void|private|hidden|public) UPLOADER HITS DESCR_CACHE FUTUREUSE
+
if [ "$video" -a -f "$vid_db" -a -r "$vid_db" ]; then
read -r VIDEO_ID VIDEO_NAME VIDEO_DESCRIPTION VIDEO_RESX VIDEO_RESY \
VIDEO_LENGTH VIDEO_COVER VIDEO_STATUS VIDEO_UPLOADER VIDEO_HITS \
fi
fi
-# Video
-# ID NAME DESCRIPTION RESX RESY LENGTH COVER STATUS (void|private|hidden|public) UPLOADER HITS DESCR_CACHE FUTUREUSE
-
update_video(){
local id="${1}" name description resx resy length cover status uploader \
hits descr_cache futureuse
local ID NAME DESCRIPTION RESX RESY LENGTH COVER STATUS UPLOADER HITS \
DESCR_CACHE FUTUREUSE
- local arg
+ local arg video thumb cnt
+ video="${_DATA}/${CHANNEL_ID}/${VIDEO_ID}.mp4"
+ thumb="${_DATA}/${CHANNEL_ID}/${VIDEO_ID}_thumb.jpg"
for arg in "$@"; do case $arg in
name=*) name="${arg#*=}";;
description=*) description="${arg#*=}";;
- resx=*) resx="${arg#*=}";;
- resy=*) resy="${arg#*=}";;
- length=*) length="${arg#*=}";;
cover=*) cover="${arg#*=}";;
status=*) status="${arg#*=}";;
uploader=*) uploader="${arg#*=}";;
hits=*) hits="${arg#*=}";;
esac; done
+ if [ -f "$video" -a -r "$video" ]; then
+ arg="$(echo; ffprobe -show_entries format=duration:stream=width,height "$video" 2>&-)"
+ resx="${arg#*width=}"; resx="${resx%%${BR}*}"
+ resy="${arg#*height=}"; resy="${resy%%${BR}*}"
+ length="${arg#*duration=}"; length="${length%%${BR}*}"
+ fi
+ if [ "${length%.*}" -a ! "${thumb}" -nt "${video}" ]; then
+ for cnt in 1 2 3 4 5 6 7 8 9 10; do
+ ffmpeg -nostdin -y -ss "$((cnt * ${length%.*} / 11))" -i "$video" \
+ -frames 1 "${thumb%.jpg}_$((cnt - 1)).jpg"
+ done 2>&-
+ montage "${thumb%.jpg}"_[0-9].jpg \
+ -background "#000000" \
+ -tile 10x1 -geometry 320x180+0+0 \
+ -interlace line -quality 85 "${thumb}"
+ rm -- "${thumb%.jpg}"_[0-9].jpg
+ fi
+
if LOCK "$vid_db"; then
while read -r ID NAME DESCRIPTION RESX RESY LENGTH COVER STATUS UPLOADER HITS \
DESCR_CACHE FUTUREUSE; do
if [ "$id" = "$ID" ]; then
- printf '%s %s %s %i %i %i %s %s %s %i %s %s\n' \
+ printf '%s %s %s %i %i %f %s %s %s %i %s %s\n' \
"$id" "$(STRING "${name-$(UNSTRING "$NAME")}")" \
"$(STRING "${description-$(UNSTRING "$DESCRIPTION")}")" \
"${resx:-${resx-${RESX}}${resx+0}}" \
"$(printf %s "${description-$(UNSTRING "$DESCRIPTION")}" |markdown |STRING)" \
"${FUTUREUSE:-\\}"
else
- printf '%s %s %s %i %i %i %s %s %s %i %s %s\n' \
+ printf '%s %s %s %i %i %f %s %s %s %i %s %s\n' \
"$ID" "$NAME" "$DESCRIPTION" "$RESX" "$RESY" "$LENGTH" \
"$COVER" "$STATUS" "$UPLOADER" "$HITS" "$DESCR_CACHE" \
"$FUTUREUSE"
UPLOAD(){
local file="$1"
local boundary line last
- local CONTENT_TYPE="$(HEADER Content-Type)"
[ ! "${CONTENT_TYPE}" -o "${CONTENT_TYPE##multipart/form-data;*}" ] && return 1
head -c "$CONTENT_LENGTH" \
| sed -nE '
+ # discard lines prior to boundary
/^--'"${boundary}"'\r?$/!b;
- :A; n;
- /^\r?$/!bA;
- n;
- :FILE
- p; n;
+ # discard lines until first blank
+ :A; n; /^\r?$/!bA; n;
+ # print lines until boundary ( = actual file upload)
+ :FILE; p; n;
/^--'"${boundary}"'(--)?\r?$/!bFILE;
- :END
- $q; n; bEND;
+ # discard remaining lines
+ :END; $q; n; bEND;
' >"$file"
truncate -s $(( $(stat -c %s -- "$file") -2 )) -- "$file"
}
head -c "$CONTENT_LENGTH" >/dev/null
REDIRECT "${_BASE}/channel/${channel}/${video}/#ERROR_UPLOAD_NOCLOBBER"
elif UPLOAD "$_DATA/$channel/$video.mp4"; then
- update_video "$video" "$VIDEO_NAME" "$VIDEO_DESCRIPTION" 0 0 0 \
- "$VIDEO_COVER" private "$VIDEO_UPOADER" "$VIDEO_HITS" \
- "" ""
+ update_video "$video" status=private
+ VIDEO_STATUS=private
fi
fi
[submit "action" "update_video_cancel" . Cancel]
]
EOF
+
+elif [ "$channel" -a "$video" -a "$action" = frameuploadprogress ]; then
+ AUTHOR || REDIRECT "$_BASE/$channel/$video/#ERROR_EDIT_NOTALLOWED"
+ printf '%s\r\n' 'Content-Type: text/html' 'Connection: close' ''
+ printf '<!DOCTYPE HTML>
+ <html><head>
+ <title>Upload Progress</title>
+ <style type="text/css"><!--
+ body {
+ text-align: center;
+ }
+ .progress {
+ display: inline-block;
+ width: 20em;
+ position: absolute;
+ background-color: #FFF;
+ }
+ --></style>
+ </head><body>
+ '
+ while [ "$VIDEO_STATUS" = void ]; do
+ printf '<span class=progress>%i</span>\n' "$(stat -c %s "$_DATA/$channel/$video.mp4" 2>&-)"
+ sleep 1
+ read -r VIDEO_ID VIDEO_NAME VIDEO_DESCRIPTION VIDEO_RESX VIDEO_RESY \
+ VIDEO_LENGTH VIDEO_COVER VIDEO_STATUS VIDEO_UPLOADER VIDEO_HITS \
+ VIDEO_DESCR_CACHE VIDEO_FUTUREUSE <<-EOF
+ $(grep "^${video} " "${vid_db}")
+ EOF
+ done
+ printf '<span class=progress>Ready!</span>\n'
+ printf '</body></html>'
+
+elif [ "$channel" -a "$video" -a "$action" = frameupload ]; then
+ AUTHOR || REDIRECT "$_BASE/$channel/$video/#ERROR_EDIT_NOTALLOWED"
+ printf '%s\r\n' 'Content-Type: text/html' ''
+ [ "$VIDEO_STATUS" = void ] && "$_EXEC"/cgilite/html-sh.sed <<-EOF
+ [!DOCTYPE HTML]
+ [html [head
+ [title Upload Form]
+ ][body
+ [form .upload method=POST enctype="multipart/form-data"
+ [input type=file name=upload]
+ [submit "action" "video_upload" Upload]
+ ]
+ ]]
+ EOF
+ [ "$VIDEO_STATUS" != void ] && "$_EXEC"/cgilite/html-sh.sed <<-EOF
+ [!DOCTYPE HTML]
+ [html [head
+ [title Upload Form]
+ ][body
+ [a href="./" target="_parent" . Reload Page!]
+ ]]
+ EOF
+
elif [ "$channel" -a "$video" ]; then
[ $VIDEO_STATUS = public -o $VIDEO_STATUS = hidden ] || AUTHOR || { . ${_EXEC}/page_404.sh; exit 0; }
$(AUTHOR && printf ' - [a href="edit" edit]')
]
$( AUTHOR && [ $VIDEO_STATUS = void ] && printf '
- [form .upload method=POST enctype="multipart/form-data"
- [input type=file name=upload]
- [submit "action" "video_upload" Upload]
+ [iframe src="frameuploadprogress" width="100%%" height="50"
+ [a href="freameuploadprogress" Iframe: Upload progress]
+ ]
+ [iframe src="frameupload" width="100%%" height="50"
+ [form .upload method=POST enctype="multipart/form-data"
+ [input type=file name=upload]
+ [submit "action" "video_upload" Upload]
+ ]
]')
$( [ $VIDEO_STATUS != void ] && printf '
[video
[h1 .name $(HTML "$VIDEO_NAME")]
[div .description . ${VIDEO_DESCR_CACHE}]
EOF
+
else
. "$_EXEC/page_404.sh"
fi