porting busy to confetti framework

[busy] / templates / Wiki_edit.page

diff --git a/templates/Wiki_edit.page b/templates/Wiki_edit.page
new file mode 100755 (executable)
index 0000000..a803ca9
--- /dev/null
+++ b/templates/Wiki_edit.page
@@ -0,0 +1,33 @@
+#!/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