next.

[hmh/wiki.git] / lib-wikifunc.ml

diff --git a/lib-wikifunc.ml b/lib-wikifunc.ml
index ba9309e..db3de0a 100644 (file)
--- a/lib-wikifunc.ml
+++ b/lib-wikifunc.ml
@@ -134,3 +134,17 @@
 (defun-wiki-command WikiSearch (key vpage vtitle vsp)
        (wiki-search key (wikivar vpage) (wikivar vtitle) (wikivar vsp))
 )
+
+(defun-wiki-command WikiHistory (page vdate)
+       (if Reader
+                       ($sqlite3 'database
+                               (wiki-page-backup-list page (wikivar vdate))
+                       )
+       )
+)
+
+(defun-wiki-command WikiDiff (page otime ntime vo1 vo2 vn1 vn2)
+       (if Reader
+                       (wiki-diff page otime ntime vo1 vo2 vn1 vn2)
+       )
+)