#!/bin/zsh

list_comments() {
  base="$1"
  
  stat -c '' Wiki/${base}.comment.<0000000001-9999999999>_<000-999> \
  && for each in $(ls -c Wiki/${base}.comment.<0000000001-9999999999>_<000-999>); do
    author=$(grep -m1 '^author=' "$each" |cut -d= -f2-)
    echo "<div class='comment'><h1>$author wrote:</h1><div class='wikitext'>"
    tail -n+2 $each |_wiki
    echo '</div></div>'
  done
}

cat <<WikiEND
    <form class="edit" action="/?action=wikiedit&i=$edit" method="post" accept-charset="UTF-8">
      <div id="LEFT">
	Editing <b>$title</b><br>
        <input type="submit" value="Submit">
        <input type="submit" name="cancel" value="Cancel">
	<hr>
      </div>
      <div id="MAIN">
	<div class="wiki">
          <h1>$title</h1>
          <textarea name="page" rows=30 cols=40>$(cat "$_DATA/Wiki/${edit}${rev}")</textarea>
        </div>
      </div>
    </form>
    <div id="RIGHT">
    $(list_comments $edit)
    </div>
WikiEND