op-wiki.hml

   1 ml_debug
   2         datastore:wiki
   3         ml:-
   4         type:text/xml
   5 ;;;
   6 (include 'lib-page.ml)
   7 (include 'lib.ml)
   8 (include 'lib-wikifunc.ml)
   9
  10 ($sqlite3 'database
  11         (authorize Proj)
  12         (setvar '(Date Title WikiText) (wiki-page PID Page))
  13 )
  14 (setvar '(yy mm dd) (pad0 '(4 2 2) (to-date Date)))
  15
  16 (motor-output "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
  17 <WikiText>
  18 <Title>[[Title]]</Title>
  19 <Html>")
  20 (motor-output-html "[[wiki:WikiText]]")
  21 (motor-output "</Html>
  22 <LastUpdate>Last Update: [[yy]].[[mm]].[[dd]]</LastUpdate>
  23 </WikiText>
  24 ")