#!/bin/sh

# 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/cgilite.sh"
. "$_EXEC/acl.sh"
. "$_EXEC/tools.sh"

_(){ printf %s\\n "$*"; }
[ "${LANGUAGE}" -a -r "${_EXEC}/l10n/${LANGUAGE}.sh" ] && . "${_EXEC}/l10n/${LANGUAGE}.sh"

pattern=./%%s
template=''
label='New Page'

while [ $# -gt 0 ]; do case $1 in
  template=*) template="${1#*=}"; shift 1;;
  --template) template="$2"; shift 2;;
  label=*) label="${1#*=}"; shift 1;;
  --label) label="$2"; shift 2;;
  *) pattern="$1"; shift 1;;
esac; done

if acl_write "$(page_abs "$pattern")"; then
  cat <<-EOF
	<form class="macro newpage" method=POST action="[newpage]">
	  <input type=hidden name=pattern value="$(HTML "$pattern")">
	  <input type=hidden name=template value="$(HTML "$template")">
	  $([ ! "${pattern##*%%s*}" ] \
	    && printf '<input autocomplete=off name=page placeholder="%s">' "$(_ "page name")"
	  )<button type=submit name=action value=newpage>$(HTML "$label")</button>
	</form>
	EOF
fi