updates in shcgi

[serve0] / pages / list.sh

diff --git a/pages/list.sh b/pages/list.sh
index 34b43398a39e1dd2c56846432cd78e7b0f263465..94d12cecf934f132dfa49bd4f8be6af0c5bf572a 100755 (executable)
--- a/pages/list.sh
+++ b/pages/list.sh
@@ -19,14 +19,30 @@
 
 . $_EXEC/pages/common.sh
 
-case "$1" in
-  title)
-    echo "Videos"
-  ;;
-  css)
-    . ${_EXEC}/templates/common.css.sh
-  ;;
-  body)
-    . ${_EXEC}/templates/list.html.sh
-  ;;
-esac
+filters="${_GET[f]}"
+debug "FILTERS: $filters"
+
+quicklinks(){
+  output=''
+  tac ${_DATA}/meta/recent |while [ "$(echo "$output" |wc -l)" -lt 10 ] && read line; do
+    line="<a href="$line">$line</a>" 
+    echo "$output" |grep -qF "$line" || output="$output$line\n"
+  done 
+  echo $output
+}
+
+list_categories(){
+  echo none 
+  printf %s "$taglist" |sed -rn 's;^([^:]+):.*$;\1;p' |sort -u
+}
+
+category_selected(){
+  cat="${1}:"
+  filter="$2"
+  [ "$cat" = "none:" ] && cat=''
+
+  printf %s "$taglist" \
+  | sed -r 's;^('"$filter"')$;1 &;;t;s;^;0 ;' \
+  | sed -rn 's;^(0|1) '"$cat"'([^:]+)$;\1 \2;p' \
+  | sed 's;^0 ;<option>;;s;^1 ;<option selected>;;s;$;</option>;'
+}