#!/bin/sh

. "$_EXEC/cgilite/storage.sh"

_DATE="$(date +%s)"

mkdir -p "$_DATA"/tags

printf '<ul class="macro tag">\n'
for tag in "$@"; do
  tag="$(printf %s "$tag" |awk '{ sub(/^#/, ""); gsub(/[^[:alnum:]]/, "_"); print toupper($0); }')"
  DBM "${_DATA}/tags/${tag}" set "$PATH_INFO" "$_DATE"
  printf '<li class="tag">#%s</li>\n' "$tag"
done
printf '</ul>\n'