X-Git-Url: http://git.plutz.net/?a=blobdiff_plain;f=list.sh;h=4596dfc23c593d487e7e07b7dfbd92c63990eeb0;hb=3f9026072887cc5723948ec151dd108cf874225d;hp=cb0e4c159bc9a556638301087c046c1e7a232617;hpb=3c586e3fe4da20469de93897d03d41f82cb15b3b;p=serve0 diff --git a/list.sh b/list.sh index cb0e4c1..4596dfc 100644 --- a/list.sh +++ b/list.sh @@ -1,44 +1,143 @@ #!/bin/sh -list_dir(){ - dir="$(HTML "$1")" - printf '[a .list .dir href="%s" %s]' \ - "$dir" "$dir" -} +. "$_EXEC/indexmeta.sh" + +list_item() { + name="$(HTML "$1")" + path="$(HTML "$ITEM/$1")" + meta="$_DATA/$ITEM/$1"; meta="${meta%/*}/.index/meta" -list_file(){ - file="$(HTML "$1")" - printf '[div .list .file [a href="%s" [img src="%s?a=thumbnail"] %s]]' \ - "$file" "$file" "$file" + if [ -d "$_DATA/$ITEM/$1" ]; then + printf '[a .list .dir href="%s?%s" %s]' \ + "$path" "$(HTML "$QUERY_STRING")" "$name" + elif [ -f "$meta" ]; then + read -r length width height tags comment n <<-EOF + $(grep -m1 -F " $(meta_name "$1")" "$meta") + EOF + printf '[div .list .file + [a href="%s" [img src="%s?a=thumbnail"][label %s]] + [span .time %i:%imin] [span .dim %ix%i] %s + [checkbox "select" "%s" id="select_%s" form="multitag"][label for="select_%s" +] + ]' \ + "$path" "$path" "$name" \ + "$((length / 60))" "$((length % 60))" \ + "$width" "$height" \ + "$(printf %s\\n "${tags#tags=}" |tr , ' ' |xargs printf '[span .tag %s]')" \ + "$path" "$path" "$path" + else + printf '[div .list .file [a href="%s" [img src="%s?a=thumbnail"][label %s]]]' \ + "$path" "$path" "$name" + fi } -list_dirs(){ +list_fs_browse(){ + meta_dir "$_DATA/$ITEM" (cd "$_DATA/$ITEM"; - find ./ -type d -mindepth 1 -maxdepth 1 \ + find ./ -type d \! -name .index -mindepth 1 -maxdepth 1 \ -exec stat -c '%Y %n' '{}' + - ) \ - | { [ "$(GET o)" = Date ] && sort -rn || sort -k 2; } \ - | cut -d/ -f2- + find ./ -type f -mindepth 1 -maxdepth 1 \ + -exec stat -c '%Y %n' '{}' + + ) } - -list_files(){ +list_fs_index(){ + find "$_DATA/$ITEM" -type d -name .index \ + | while d="$(line)"; do + meta_dir "${d%/.index}" + done (cd "$_DATA/$ITEM"; - find ./ -type f -mindepth 1 -maxdepth 1 \ - -exec stat -c '%Y %n' "${f#./}" '{}' + - ) \ - | { [ "$(GET o)" = Date ] && sort -rn || sort -k 2; } \ - | cut -d/ -f2- + find ./ \! -path '*/.index/*' -type f \ + -exec stat -c '%Y %n' '{}' + + ) } -list_tree(){ +list_browse(){ + meta="$_DATA/$ITEM/.index/meta" + meta_dir "$_DATA/$ITEM" (cd "$_DATA/$ITEM"; - find ./ -type f \ - -exec stat -c '%Y %n' '{}' + - ) \ - | { [ "$(GET o)" = Date ] && sort -rn || sort -k 2; } \ + find ./ -type d \! -name .index -mindepth 1 -maxdepth 1 \ + ) | cut -d/ -f2- | sort + sort -n "$meta" | cut -f6- \ + | while f="$(line)"; do + [ -e "$_DATA/$ITEM/$f" ] && printf '%s\n' "$f" + done +} +list_index(){ + (cd "$_DATA/$ITEM"; + find ./ -path '*/.index/meta' + ) | while meta="$(line)"; do + base="${meta%/.index/meta}" + meta_dir "$_DATA/$ITEM/$base" + cut -f1,6- <"$_DATA/$ITEM/$meta" \ + | while f="$(line)"; do + fn="$(printf '%s\n' "$_DATA/$ITEM/$base/${f#* }".*)" + fn="${fn%%${BR}*}"; fn="${fn##*/}" + [ -e "$_DATA/$ITEM/$base/${fn}" ] \ + && printf '%s %s\n' "${f%% *}" "${base}/${fn}" + done + done \ + | sort -n \ | cut -d/ -f2- } +list_items() { + mode="$(COOKIE mode |grep -m1 -xE 'index|browse' || printf browse )" + + [ "$mode" = browse -a "$ITEM" ] && printf '..\n' + + if [ "$mode" = browse -a "$ORDER" = Date ]; then + list_fs_browse | sort -rn | cut -d/ -f2- + elif [ "$mode" = browse -a "$ORDER" = Name ]; then + list_fs_browse | sort -k 2 | cut -d/ -f2- + elif [ "$mode" = index -a "$ORDER" = Date ]; then + list_fs_index | sort -rn | cut -d/ -f2- + elif [ "$mode" = index -a "$ORDER" = Name ]; then + list_fs_index | sort -k 2 | cut -d/ -f2- + elif [ "$mode" = browse -a "$ORDER" = Length ]; then + list_browse + elif [ "$mode" = index -a "$ORDER" = Length ]; then + list_index + fi +} + +list_paginate() { + page="$(GET p |grep -xE '[0-9]+' || printf 1)" + + printf '[div .itemlist ' + while i="$(line)"; do + c=$((${c-0} + 1)) + if [ $c -lt $page ]; then + true + elif [ $c -lt $((LISTSIZE + page)) ]; then + list_item "$i" + fi + done + printf ']' + + printf '[div .pagination' + for n in $(seq 1 $((c / LISTSIZE + 1)) ); do + printf '[a .page href="%s" %s]' \ + "?p=$(( (n - 1) * LISTSIZE + 1))" "$n" + done + printf ']' +} + +w_tagging(){ + printf '[div #multitag [input type="hidden" name="ref" value="%s"]' "$(HTML "$REQUEST_URI")" + printf '[a href="#" Hide][br]' + find "$_DATA/$ITEM" -path '*/.index/meta' \ + -exec cut -f4 '{}' + \ + | cut -d= -f2- |tr , '\n' | sort -u \ + | while read tag; do + cat_old="${category}"; category="${tag%%:*}" + [ "$category" = "$tag" ] && category="(none)" + [ "$cat_old" -a "$cat_old" != "$category" ] && printf ']]' + [ "$cat_old" != "$category" ] \ + && printf '[fieldset [legend %s:][select name="tag" size=4 multiple' $(HTML "$category") + printf '[option value="%s" %s]' "$(HTML "$tag")" "$(HTML "${tag#*:}")" + done + printf ']][fieldset [legend New:][textarea name=newtag\n][button type=Submit Add Tags]]]' +} + printf 'Content-Type: text/html;charset=utf-8\r\n\r\n' "$_EXEC/cgilite/html-sh.sed" <<-EOF @@ -46,16 +145,23 @@ printf 'Content-Type: text/html;charset=utf-8\r\n\r\n' [html [head [title Listing] [link rel=stylesheet href="/style.css" ] ] [body - $(w_search) - [input type=checkbox #t_prefs .toggle ][label for=t_prefs ⚙] + [div #navigation + [a #t_bookmarks href="#bookmarks" ★] + $(w_search) + [a #t_avsearch href="#advsearch" Advanced] + [a #t_prefs href="#prefs" ⚙] + ] $(w_prefs) - $(if [ $(COOKIE mode) = index ]; then - list_tree |while read -r file; do list_file "$file"; done - else - list_dirs |while read -r dir; do list_dir "$dir"; done - printf '[br]' - list_files |while read -r file; do list_file "$file"; done - fi) + + [form method=POST action="?a=multitag" + $(list_items \ + | list_paginate + ) + [div #editing + [a href="#multitag" Add Tags] $(w_tagging) + $(w_index) + ] + ] ] ] EOF