multiple minor improvements

[serve0] / list.sh

diff --git a/list.sh b/list.sh
index b8c3a4e3aa7ed4df91846332612403d284c991a7..2f8e1390774469156406829f49ff702cbc3001d6 100644 (file)
--- a/list.sh
+++ b/list.sh
@@ -1,5 +1,47 @@
 #!/bin/sh
 
+list_dir(){
+  name="$(HTML "$1")"
+  path="$(HTML "${ITEM}/$1")"
+  printf '[a .list .dir href="%s" %s]' \
+    "$path" "$name"
+}
+
+list_file(){
+  name="$(HTML "$1")"
+  path="$(HTML "$ITEM/$1")"
+  printf '[div .list .file [a href="%s" [img src="%s?a=thumbnail"] %s]]' \
+    "$path" "$path" "$name"
+}
+
+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_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_tree(){
+  (cd "$_DATA/$ITEM";
+   find ./ -type f \
+     -exec stat -c '%Y %n' '{}' +
+   ) \
+  | { [ "$(GET o)" = Date ] && sort -rn || sort -k 2; } \
+  | cut -d/ -f2-
+}
+
 printf 'Content-Type: text/html;charset=utf-8\r\n\r\n'
 
 "$_EXEC/cgilite/html-sh.sed" <<-EOF
@@ -10,6 +52,13 @@ printf 'Content-Type: text/html;charset=utf-8\r\n\r\n'
   $(w_search)
   [input type=checkbox #t_prefs .toggle ][label for=t_prefs &#x2699;]
   $(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)
 ] ]
 EOF