[ "$include_tools" ] && return 0
include_tools="$0"
+# Copyright 2022 - 2023 Paul Hänsch
+#
+# Permission to use, copy, modify, and/or distribute this software for any
+# purpose with or without fee is hereby granted, provided that the above
+# copyright notice and this permission notice appear in all copies.
+#
+# THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+# SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
+# IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+. "${_EXEC}/cgilite/storage.sh"
+
md(){
local parser
*) PATH "${PATH_INFO%/*}/${1%/}/";;
esac
}
+
+has_tags() {
+ # true if PAGE is tagges with all TAGS
+ local page="$(page_abs "$1")"; shift 1;
+ local tdir="$_DATA/tags" tag dt df
+
+ for tag in "$@"; do
+ tag="$(printf %s "$tag" |awk '{ sub(/^[#!]/, ""); gsub(/[^[:alnum:]]/, "_"); print toupper($0); }')"
+ dt="$(DBM "${tdir}/${tag}" get "${page}")" || return 1
+ df="$(stat -c %Y "$(mdfile "$page")")" || return 1
+ if [ "$df" -gt "$dt" ]; then
+ DBM "${tdir}/${tag}" remove "${page}"
+ return 1
+ fi
+ done
+ return 0
+}
+
+has_tag() {
+ # true if PAGE is tagged with any of TAGS
+ local page="$(page_abs "$1")"; shift 1;
+ local tdir="$_DATA/tags" tag dt df
+
+ for tag in "$@"; do
+ tag="$(printf %s "$tag" |awk '{ sub(/^[#!]/, ""); gsub(/[^[:alnum:]]/, "_"); print toupper($0); }')"
+ dt="$(DBM "${tdir}/${tag}" get "${page}")" || continue
+ df="$(stat -c %Y "$(mdfile "$page")")" || return 1
+ if [ "$df" -gt "$dt" ]; then
+ DBM "${tdir}/${tag}" remove "${page}"
+ continue
+ else
+ return 0
+ fi
+ done
+ return 1
+}
+
+page_title() {
+ local mdfile PAGE_TITLE
+
+ if mdfile="$(mdfile "${1:-${PATH_INFO%/*}}")"; then
+ PAGE_TITLE="$(
+ sed -nE '
+ s;^%title[ \t]+([[:graph:]][[:print:]]+)\r?$;\1;p; tQ;
+ b; :Q q;
+ ' "$mdfile"
+ )"
+ [ ! "${PAGE_TITLE}" ] && PAGE_TITLE="$(
+ MD_MACROS="" md <"$mdfile" \
+ | sed -nE '
+ s;^.*<h1[^>]*>(.*>)?([^<]+)(<.*)?</h1>.*$;\2;p; tQ;
+ s;^.*<h2[^>]*>(.*>)?([^<]+)(<.*)?</h2>.*$;\2;p; tQ;
+ b; :Q q;
+ '
+ )"
+ printf %s\\n "$PAGE_TITLE"
+ else
+ return 1
+ fi
+}