#!/bin/sh

. "$_EXEC/cgilite/cgilite.sh"
. "$_EXEC/acl.sh"
. "$_EXEC/tools.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 name=page placeholder="page name">'
	  )<button type=submit name=action value=newpage>$(HTML "$label")</button>
	</form>
	EOF
fi