X-Git-Url: http://git.plutz.net/?a=blobdiff_plain;f=list.sh;h=61099e71450309411935e9158d2084bd22ca0c93;hb=0ef87b7334cc2e6f526e579489d3292eb6c7f9e2;hp=b8c3a4e3aa7ed4df91846332612403d284c991a7;hpb=10c72cceebb66db98ad621181369edfa6294f924;p=serve0 diff --git a/list.sh b/list.sh index b8c3a4e..61099e7 100644 --- a/list.sh +++ b/list.sh @@ -1,5 +1,67 @@ #!/bin/sh +list_item(){ + name="$(HTML "$1")" + path="$(HTML "$ITEM/$1")" + + if [ -d "$_DATA/$ITEM/$1" ]; then + printf '[a .list .dir href="%s" %s]' \ + "$path" "$name" + else + printf '[div .list .file [a href="%s" [img src="%s?a=thumbnail"] %s]]' \ + "$path" "$path" "$name" + fi +} + +list_items(){ + mode="$(COOKIE mode |grep -m1 -xE 'index|browse' || printf browse )" + + [ "$mode" = browse -a "$ITEM" ] && printf '..\n' + if [ "$mode" = browse ]; then + [ -d "$_DATA/$ITEM/.index" -a "$_DATA/$ITEM" -nt "$_DATA/$ITEM/.index/meta" ] \ + && . "$_EXEC/update_meta.sh" + (cd "$_DATA/$ITEM"; + find ./ -type d \! -name .index -mindepth 1 -maxdepth 1 \ + -exec stat -c '%Y %n' '{}' + + find ./ -type f -mindepth 1 -maxdepth 1 \ + -exec stat -c '%Y %n' '{}' + + ) + elif [ "$mode" = index ]; then + (cd "$_DATA/$ITEM"; + find ./ -type f \ + -exec stat -c '%Y %n' '{}' + + ) + fi \ + | case $ORDER in + Date) sort -rn;; + Name) sort -k 2;; + esac \ + | cut -d/ -f2- + +} + +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 ']' +} + printf 'Content-Type: text/html;charset=utf-8\r\n\r\n' "$_EXEC/cgilite/html-sh.sed" <<-EOF @@ -7,9 +69,20 @@ 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) + + $(list_items \ + | list_paginate + ) + [div #editing + $(w_index) + ] ] ] EOF