#!/bin/sh

. "$_EXEC/cgilite/cgilite.sh"
. "$_EXEC/acl.sh"
. "$_EXEC/tools.sh"

from='1'; to='$'; rev=''; items='$'; link='true'

while [ $# -gt 0 ]; do case $1 in
  --from) from="$2"; shift 2;;
  from=*) from="${1#*=}"; shift 1;;
  --to) to="$2"; shift 2;;
  to=*) to="${1#*=}"; shift 1;;
  --items) items="$2"; shift 2;;
  items=*) items="${1#*=}"; shift 1;;
  --rev|--reverse) rev="-r"; shift 1;;
  --nolink) link=""; shift 1;;
  *) page="$1"; shift 1;;
esac; done

if ! printf %s\\n "$from" |grep -qEx '[0-9]+|/([^/\\]|\\/|\\.)*/'; then
  debug 'Include macro invalid argument: "from"'
  exit 1
fi
if ! printf %s\\n "$to" |grep -qEx '\$|[0-9]+|/([^/\\]|\\/|\\.)*/'; then
  debug 'Include macro Invalid argument: "to"'
  exit 1
fi
if ! printf %s\\n "$items" |grep -qEx '\$|[0-9]+'; then
  debug 'Include macro Invalid argument: "items"'
  exit 1
fi

page_glob "$page" \
| sort $rev \
| sed "${items}q" \
| while read glob; do
  page="$(page_abs "$glob")"
  acl_read "$page" || continue
  mdfile="$(mdfile "$page")" || continue
  hglob="$(HTML "$glob")"
  refpfx="$(printf %s\\n "$hglob" |sed 's;[\;&\;];\\&;g')"
  [ "$link" ] \
  && printf '<div class="macro include">
               <a class="include link" href="%s">%s</a>
               <article class="include" id="include_%s">' \
            "${hglob}" "${hglob}" "${hglob}" \
  || printf '<div class="macro include">
               <article class="include" id="include_%s">' \
            "${hglob}"
  ( # PATH_INFO may be used by macros in the included page
    export PATH_INFO="$page"
    cd -- "${mdfile%/*}/"
    sed -n "${from},${to}p" <"$mdfile" \
    | md \
    | grep -vx ''
  ) | sed -E '
    s;(<[^>]+ )(href|src)="([^"]+://[^"]*|[mM][aA][iI][lL][tT][oO]:[^"]*)"([^>]*>);\1\2="/#safe/\3"\4;g
    s;(<[^>]+ )(href|src)="([^#/"][^"]*)"([^>]*>);\1\2="'"${refpfx}"'\3"\4;g
    s;(<[^>]+ )(href|src)="/#safe/([^"]*)"([^>]*>);\1\2="\3"\4;g
  '
  printf '</article></div>'
done