Index: openacs-4/packages/xowiki/www/admin/samples/ajax-chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/samples/ajax-chat.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/xowiki/www/admin/samples/ajax-chat.tcl	1 Aug 2007 21:39:25 -0000	1.4.2.2
@@ -0,0 +1,21 @@
+namespace eval ::xowiki::tmp {
+  ::xowiki::Object create ajax-chat -noinit \
+      -set object_type ::xowiki::Object \
+      -set lang en \
+      -set description {} \
+      -set text {
+        proc content {} {
+          ::xowiki::Chat login -chat_id 22
+        }
+      } \
+      -set nls_language en_US \
+      -set mime_type {text/html} \
+      -set name en:ajax-chat \
+      -set title en:ajax-chat
+}
+
+set title "Import XoWiki Pages"
+set context {}
+set msg [::xowiki::Page import -objects ::xowiki::tmp::ajax-chat -replace true]
+template::set_file "[file dir $__adp_stub]/../importmsg"
+ad_return_template