X-Git-Url: http://git.plutz.net/?p=serve0;a=blobdiff_plain;f=list.sh;h=08cef51f1cf36ff9365347774d03ab378c6050eb;hp=49b9273d2854c35ba92231b3b922c84cbb628557;hb=d1e7e3c7931410f6705f7f89f03c580380a354f1;hpb=c59fd5a4946c4d13fc1692e4561878a9bb2b3e17 diff --git a/list.sh b/list.sh index 49b9273..08cef51 100644 --- a/list.sh +++ b/list.sh @@ -1,81 +1,244 @@ #!/bin/sh -list_item(){ - name="$(HTML "$1")" - path="$(HTML "$ITEM/$1")" +. "$_EXEC/indexmeta.sh" +. "$_EXEC/widgets.sh" - if [ -d "$_DATA/$ITEM/$1" ]; then - printf '[a .list .dir href="%s" %s]' \ - "$path" "$name" +list_item() { + local meta type length width height tags comment name display link + meta="${1}"; type="${meta%% *}"; meta="${meta#* }" + + if [ "$type" = dir ]; then + name="${meta%% *}"; + display="$(HTML "$name")"; link="$(URL "$ITEM/$name")" + printf '[a .list .dir href="%s" %s]' "${link}?${w_refuri#*\?}" "$name" + return 0 + fi + + length="${meta%% *}"; meta="${meta#* }" + width="${meta%% *}"; meta="${meta#* }" + height="${meta%% *}"; meta="${meta#* }" + tags="${meta%% *}"; meta="${meta#* }" + comment="${meta%% *}"; meta="${meta#* }" + name="${meta%% *}"; meta="${meta#* }" + + if [ "$type" = metashort ]; then + name="$(list_fullname "$(UNSTRING "${name%${CR}}")")" + fi + if [ -f "$_DATA/$ITEM/$name" ]; then + link="$(URL "$ITEM/$name")" + name="$(HTML "$ITEM/$name")" + printf '[div .list .file + [a href="%s" [img src="%s?a=thumbnail"]][label %s] + [span .time %i:%02imin] [span .dim %ix%i] %s + [checkbox "select" "%s" id="select_%s"][label for="select_%s" +] + ]' \ + "$link" "$link" "${name##*/}" \ + "$((length / 60))" "$((length % 60))" \ + "$width" "$height" \ + "$(printf '%s\n' "${tags#tags=}" \ + | sed -r "$UNSTRING"' s;^;,;; s;,+;,;g; s;,$;;; + :X s;,-?([^,]+)(,|$); [span .tag\n \1]\2;; tX;' + )" "$name" "$link" "$link" + else + printf 'Canning record for nonexist file: %s\n' "$name" >&2 + meta_purge "$_DATA/$ITEM/$name" + fi +} + + +[ "$FILTER" ] && list_fex="$( + fex='p' + STRING "$FILTER^" \ + | sed -r 's;\^;\n;g; s;[]\/\(\)\\\^\$\?\.\+\*\;\[\{\}];\\&;g' \ + | while read -r f; do + [ ! "${f#~}" ] && continue + [ "${f#~}" = "$f" ] \ + && fex="/(\ttags=([^\t]*,)?)(${f})((,[^\t]*)?\t)/{${fex}}" \ + || fex="/(\ttags=([^\t]*,)?)(${f#~})((,[^\t]*)?\t)/d; ${fex}" + printf '%s\n' "${fex}" + done \ + | tail -n1 +)" + +list_fullname(){ + sn="$1" + [ ! "${sn%%*/*}" ] && base="${sn%/*}" || base=. + file="$(printf '%s' "$_DATA/$ITEM/$sn".*)" + file="${file##*/}" + [ -e "$_DATA/$ITEM/$base/${file}" ] \ + && printf '%s\n' "${base}/${file}" +} + +list_filter(){ + if [ "$FILTER" ]; then + sed -nr "$list_fex" + elif [ "${SEARCH#!}" != "${SEARCH}" ]; then + grep -aviEe "$(STRING "${SEARCH}" \ + | sed -r ':x s;((^|[^\\])(\\\\)*)\+;\1 ;g; tx; + s;((^|[^\\])(\\\\)*)\\\+;\1+;g; + s; ;\\+;g;')" + elif [ "${SEARCH}" ]; then + grep -aiEe "$(STRING "${SEARCH}" \ + | sed -r ':x s;((^|[^\\])(\\\\)*)\+;\1 ;g; tx; + s;((^|[^\\])(\\\\)*)\\\+;\1+;g; + s; ;\\+;g;')" + else + cat + fi +} + +groupmatch(){ + if [ ${#1} -gt ${#2} ]; then + long="$1" short="$2" + else + long="$2" short="$1" + fi + com="$(expr substr "$long" 1 $((${#long} * 3 / 4)))" + cut="${short#$com}" + if [ ${#cut} -lt ${#short} ]; then + return 0 else - printf '[div .list .file [a href="%s" [img src="%s?a=thumbnail"] %s]]' \ - "$path" "$path" "$name" + return 1 fi } -list_dirs(){ - [ "$ITEM" ] && printf '..\n' - (cd "$_DATA/$ITEM"; - find ./ -type d -mindepth 1 -maxdepth 1 \ - -exec stat -c '%Y %n' '{}' + - ) \ - | { [ "$(GET o)" = Date ] && sort -rn || sort -k 2; } \ - | cut -d/ -f2- +list_order(){ + local fm fn fn al length ln h w t c name buffer l + + if [ $ORDER = Name ]; then + sort -k6 |sed 's;^;metashort\t;;' + elif [ $ORDER = Group ]; then + { sort -k6; echo '0 0 0 tags= comment= _'; } \ + | while read -r length h w t c name; do + if groupmatch "$ln" "$name"; then + al=$((al + length)) + buffer="${buffer}${BR}$length $h $w $t $c $name" + else + printf %s\\n "$buffer" |while read -r l; do + [ "$l" ] && printf '%s %s\n' "$al" "$l" + done + al="$length" + buffer="$length $h $w $t $c $name" + fi + ln="$name" + done \ + | sort -sn -k1 |sed -r 's;^[0-9]+\t;metashort\t;;' + elif [ $ORDER = Length ]; then + sort -sn -k1 |sed 's;^;metashort\t;;' + elif [ $ORDER = Date ]; then + while read -r fm; do + sn="${fm##* }" + fn="$(list_fullname "$(UNSTRING "${sn%${CR}}")")" + printf '%i %s %s\n' \ + "$(stat -c %Y "$fn")" "${fm% *}" "$fn" + done \ + | sort -srn -k1 |sed -r 's;^[0-9]+\t;metalong\t;;' + fi } -list_files(){ - (cd "$_DATA/$ITEM"; - find ./ -type f -mindepth 1 -maxdepth 1 \ - -exec stat -c '%Y %n' "${f#./}" '{}' + 2>&- - ) \ - | { [ "$(GET o)" = Date ] && sort -rn || sort -k 2; } \ - | cut -d/ -f2- +list_filemeta(){ + local meta base cbase fm cachename + base="$1" + meta="$_DATA/$ITEM/$base/.index/meta" + meta_dir "$_DATA/$ITEM/$base" + + cachename="$(printf '%s\n' "$mode" "$FILTER" "$SEARCH" "$ORDER" |sha1sum)" + cachename="$_DATA/$ITEM/.index/${cachename% -}.cache" + + if [ "$cachename" -nt "$meta" ] 2>&-; then + cat "$cachename" + else + cbase="$(STRING "$base")" + grep -axE '[0-9]+ [0-9]+ [0-9]+ tags=[^ ]* comment=[^ ]* .+' "$meta" \ + | while read -r fm; do + printf '%s %s/%s\n' "${fm% *}" "$cbase" "${fm##* }" + done \ + | list_filter \ + | list_order \ + | { [ -d "${meta%meta}" ] && tee "$cachename" || cat; } + fi } -list_tree(){ - (cd "$_DATA/$ITEM"; - find ./ -type f \ - -exec stat -c '%Y %n' '{}' + - ) \ - | { [ "$(GET o)" = Date ] && sort -rn || sort -k 2; } \ - | cut -d/ -f2- +list_items() { + local mode meta + mode="$(COOKIE mode |grep -m1 -axE 'index|browse' || printf browse )" + + if [ "$mode" = browse ]; then + [ "$ITEM" ] && printf 'dir\t..\n' + (cd "$_DATA/$ITEM"; + find ./ -type d \! -name .index -mindepth 1 -maxdepth 1 \ + ) | cut -d/ -f2- | sort |sed 's;^;dir\t;;' + list_filemeta . + elif [ "$mode" = index ]; then + (cd "$_DATA/$ITEM"; + find ./ -path '*/.index/meta' + ) | while read -r meta; do + list_filemeta "${meta%/.index/meta}" + done + fi } -list_paginate(){ - page="$(GET p |grep -xE '[0-9]+' || printf 1)" - while i="$(line)"; do - c=$((${c-0} + 1)) - if [ $c -lt $page ]; then - true - elif [ $c -lt $((LISTSIZE + page)) ]; then - list_item "$i" - fi +list_paginate() { + local page i c n end qry + page="$(GET p |grep -axE '[0-9]+' || printf 1)"; c=1 + end=$((page + LISTSIZE)) + qry="${w_refuri#*\?}"; qry="${qry#p=*&}" + + printf '[div .itemlist ' + while read -r i; do + c=$((c + 1)) + [ $c -gt $page -a $c -le $end ] && list_item "$i" done + printf ']' - for n in $(seq 1 $((c / LISTSIZE + 1)) ); do - printf '[a .page href="%s" %s]' \ - "?p=$(( (n - 1) * LISTSIZE + 1))" "$n" |tee /dev/stderr + [ $(( c % LISTSIZE )) -gt 0 ] \ + && end=$((c / LISTSIZE + 1)) \ + || end=$((c / LISTSIZE)) + + printf '[div .pagination' + for n in $( seq 1 $end ); do + c=$(( (n - 1) * LISTSIZE + 1 )) + [ $c = $page ] \ + && printf '[a .page .current href="%s" %s]' "?p=${c}&${qry}" "$n" \ + || printf '[a .page href="%s" %s]' "?p=${c}&${qry}" "$n" done + printf ']' } printf 'Content-Type: text/html;charset=utf-8\r\n\r\n' -"$_EXEC/cgilite/html-sh.sed" <<-EOF +{ printf ' [!DOCTYPE HTML] [html [head [title Listing] + [meta name="viewport" content="width=device-width"] [link rel=stylesheet href="/style.css" ] ] [body - $(w_search) - [input type=checkbox #t_prefs .toggle ][label for=t_prefs ⚙] - $(w_prefs) - $(if [ "$(COOKIE mode)" = index ]; then - list_tree - else - list_dirs - list_files - fi \ - | list_paginate - ) + [div #navigation + [a #t_bookmarks href="#bookmarks" ★]' + w_search + printf ' + [a #t_avsearch href="#advsearch" Advanced] + [a #t_prefs href="#prefs" ⚙] + ]' + w_bookmarks + w_advsearch + w_prefs + printf ' + [form method=POST action="?a=multitag"' + list_items \ + | list_paginate + [ -d "$_DATA/$ITEM/.index" ] && { printf ' + [div #editing' + w_tagging + printf ' + ]'; } + printf ' + ]' + [ ! -d "$_DATA/$ITEM/.index" ] && { printf ' + [div #editing' + w_index + printf ' + ]'; } + printf ' ] ] -EOF - +'; } | "$_EXEC/cgilite/html-sh.sed"