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 -r1.1 -r1.2
--- openacs-4/packages/xowiki/www/admin/samples/ajax-chat.tcl	3 Feb 2006 22:17:41 -0000	1.1
+++ openacs-4/packages/xowiki/www/admin/samples/ajax-chat.tcl	6 Feb 2006 11:45:10 -0000	1.2
@@ -4,40 +4,14 @@
       -set lang en \
       -set description {} \
       -set text {
-proc content {} {
-  auth::require_login
-  set chat_id 22
-  set path packages/xowiki/www/ajax/chat.js
-  if { ![file exists [acs_root_dir]/$path] } {
-    return -code error "File [acs_root_dir]/$path does not exist"
-  }
-  set file [open [acs_root_dir]/$path]; set js [read $file]; close $file
-  set login_url /xowiki/ajax/chat?m=login&id=$chat_id
-  set send_url  /xowiki/ajax/chat?m=add_msg&id=$chat_id&msg=
-  set get_update  "chatSendCmd(\"/xowiki/ajax/chat?m=get_new&id=$chat_id\",chatReceiver)"
-  set get_all     "chatSendCmd(\"/xowiki/ajax/chat?m=get_all&id=$chat_id\",chatReceiver)"
-  return "
-   <script type='text/javascript' language='javascript'>
-   $js
-   setInterval('$get_update',5000)
-   //setTimeout('$get_all',5000)
-   </script>
-   <form action='#' onsubmit='chatSendMsg(\"$send_url\", chatReceiver); return false;'>
-   <iframe name='ichat' id='ichat' frameborder='0' src='$login_url'
-          style='width:95%;' height='150'>
-
-   </iframe>
-   <input type='hidden' name='m' value='add_msg'> 
-   <input type='text' size='40' name='msg' id='chatMsg'> 
-   <span id='chatCounter'>0</span>
-   <span id='chatResponse'>&nbsp;</span>
-"
+	proc content {} {
+	  ::xowiki::Chat login -chat_id 22
+	}
+      } \
+      -set nls_language en_US \
+      -set mime_type {text/html} \
+      -set title en:ajax-chat
 }
-} \
-	-set nls_language en_US \
-	-set mime_type {text/html} \
-	-set title en:ajax-chat
-}
 
 set page_title "Import XoWiki Pages"
 set context {}