-w_video(){
- local CID="$1" thumb
- local ID NAME DESCRIPTION RESX RESY LENGTH COVER STATUS UPLOADER HITS DESCR_CACHE FUTUREUSE
- if read -r ID NAME DESCRIPTION RESX RESY LENGTH COVER STATUS UPLOADER HITS DESCR_CACHE FUTUREUSE; then
- thumb="${_BASE}/${CID}/thumb_${ID}.jpg"
- [ "$NAME" = \\ ] && NAME="(Unnamed Video)"
- printf '[div .video .thumb
- [h3 [a href="%s/" . %s]]
- [figure [img src="%s" alt=""]]
- [div .description . %s]
- ]' "$ID" "$(UNSTRING "$NAME" |HTML)" "$thumb" "$(UNSTRING "$DESCR_CACHE")"
- else
- return 1
- fi
-}
-
-w_channel(){
- local vid_db
- local ID NAME DESCRIPTION LOGO THEME AUTHORS DESCR_CACHE FUTUREUSE
- if read -r ID NAME DESCRIPTION LOGO THEME AUTHORS DESCR_CACHE FUTUREUSE; then
- vid_db="${_DATA}/${ID}/videos.db"
- [ "$NAME" = \\ ] && NAME="(UNNAMED CHANNEL)"
- cat <<-EOF
- [div .channel
- [div .description
- [h2 [a href="${_BASE}/channel/${ID}/" $(UNSTRING "${NAME}" |HTML)]]
- $(UNSTRING "$DESCR_CACHE")
- ]$(
- [ -f "$vid_db" -a -r "$vid_db" ] \
- && while w_video "$ID"; do :; done <"$vid_db"
- )
- ]
- EOF
- else
- return 1
- fi
-}
-
-w_channel_list(){
- if [ $USER_ID ]; then
- printf '
- [form .channel .newchannel method=POST
- [hidden "channel" "%s"]
- [submit "action" "newchannel" New Channel]
- ]' "$(timeid)"
- fi
- [ -f "$chan_db" -a -r "$chan_db" ] \
- && while w_channel; do :; done <"$chan_db"
-}
-
-if [ "$channel" -a "$video" ]; then
- . ${_EXEC}/page_video.sh
-elif [ "$channel" -a "$action" = edit ]; then
- [ "$USER_ID" -a ! "${CHANNEL_AUTHORS##*${USER_ID}*}" ] \
- || REDIRECT "${_BASE}/${channel}/#ERROR_EDIT_NOTALLOWED"