3 <title>Citadel Instant Messenger</title>
4 <script type="text/javascript" src="prototype.js"></script>
5 <script type="text/javascript" src="wclib.js"></script>
6 <script type="text/javascript" src="authmethods.js"></script>
8 <body onLoad='FetchNewMsgs();'>
10 <div id="thetop" style="position:fixed;width:100%;height:15%;top:0%;left:0%">
11 <div id="spacer1" style="background:#aaaaaa"><br></div>
12 <div id="tab_bar" style="background:#aaaaaa"> </div>
13 <div id="spacer2" style="background:#aaaaaa"><br></div>
16 <div id="main" style="position:fixed;width:100%;height:85%;top:15%;left:0%;overflow:auto;background:#ffffff"></div>
18 <script type="text/javascript">
20 * Copyright 2000 - 2010 The Citadel Team
21 * Licensed under the GPL V3
23 * Chat window for Person 2 Person Chat
27 var gexp_divs = new Array();
28 var num_gexp_divs = 0;
32 function SendSomething(which_div, sendform, recipient) {
33 thetext = document.forms[sendform].elements['sendthis'].value;
35 // If the user didn't type anything, don't do anything.
41 document.forms[sendform].elements['sendthis'].value = '';
43 // Write it to the tab
44 $(which_div).innerHTML = $(which_div).innerHTML
46 + '<font color=\"#FF0000\">'
53 // Scroll to the bottom of the tab
54 $('main').scrollTop = 999999;
56 // Send the text to the server
57 parms = 'r=' + Math.random()
58 + '&recp=' + encodeURIComponent(recipient)
59 + '&msg=' + encodeURIComponent(thetext);
60 new Ajax.Request('../ajax_send_instant_message',
67 // Refocus to the text box
68 document.forms[sendform].elements['sendthis'].focus();
70 // Don't submit the form
74 function TabSelect(which_div) {
75 if (shown_div != '') {
76 $(shown_div).style.display = 'none' ;
77 if ($('select_'+shown_div)) {
78 $('select_'+shown_div).style.fontWeight = 'normal';
79 $('select_'+shown_div).style.backgroundColor = '#cccccc';
82 shown_div = 'tab_' + which_div;
83 $(shown_div).style.display = 'block' ;
84 if ($('select_'+shown_div)) {
85 $('select_'+shown_div).style.fontWeight='bold';
86 $('select_'+shown_div).style.backgroundColor = '#ffffff';
91 function ShowNewMsg(gexp_xmlresponse) {
93 // It isn't really XML. It's a Citadel server response.
94 gexp_response = gexp_xmlresponse.responseText;
96 if (gexp_response.substring(0, 1) != '1') {
101 breakpos = gexp_response.indexOf('\n');
102 result = gexp_response.substring(0, breakpos-1);
103 the_message = gexp_response.substring(breakpos+1);
104 the_message = the_message.substring(0, the_message.indexOf('\n000'));
106 // Sanitize HTML in the message
107 the_message = the_message.replaceAll("&", "&");
108 the_message = the_message.replaceAll("<", "<");
109 the_message = the_message.replaceAll(">", ">");
111 sender = extract_token(result.substring(4), 3, '|');
113 // Figure out which div to write it to...
115 if (num_gexp_divs > 0) {
116 for (i=0; i<num_gexp_divs; ++i) {
117 if (gexp_divs[i] == sender) {
118 which_div = 'gexp' + i ;
123 // Not found? Create it.
124 if (which_div == '') {
125 gexp_divs[num_gexp_divs] = sender;
126 which_div = 'gexp' + num_gexp_divs;
128 $('main').innerHTML =
130 + '<div id=\"tab_' + which_div + '\" style=\"display:none;cursor:pointer\">'
131 + '<div id=\"' + which_div + '\">'
132 + '<br><br><br><br><br><br><br><br><br><br>'
133 + '<br><br><br><br><br><br><br><br><br><br>'
135 + '<div align=\"center\" id=\"response_'
136 + which_div + '\" style=\"background:#ddddee\">'
137 + '<br><form method=\"post\" action=\"null\" name=\"sendform_' + which_div + '\" '
138 + 'onSubmit=\"return SendSomething(\'' + which_div + '\', \'sendform_'
139 + which_div + '\', \'' + sender + '\');\">'
140 + '<img src=\"webcit_icons/essen/16x16/chat.png\"> '
141 + '<input type=\"text\" size=\"72\" maxlength=\"600\" name=\"sendthis\">'
145 $('tab_bar').innerHTML =
146 $('tab_bar').innerHTML
147 + '<span id=\"select_tab_' + which_div + '\" onClick=\"TabSelect(\'' + which_div + '\');\">'
148 + ' ' + sender + ' '
149 + '</span> ';
151 // Raise the window in case it was buried
156 TabSelect(which_div);
158 // Write it to the tab
159 $(which_div).innerHTML = $(which_div).innerHTML
161 + '<font color=\"#0000FF\">'
168 // Scroll to the bottom of the tab
169 $('main').scrollTop = 999999;
171 // Refocus to the send box
172 document.forms['sendform_'+which_div].elements['sendthis'].focus();
174 // Keep trying for new messages until the server tells us to stop.
178 // This is called periodically to check for new incoming messages
179 function FetchNewMsgs() {
180 parms = encodeURI('g_cmd=GEXP&r=' + Math.random());
181 new Ajax.Request('../ajax_servcmd',
185 onSuccess: ShowNewMsg
190 // Perform some initialization.
191 parms = encodeURI('g_cmd=GREG _SELF_&r=' + Math.random());
192 new Ajax.Request('../ajax_servcmd',
196 onSuccess: GrabMyName
201 function GrabMyName(greg_xmlresponse) {
203 // It isn't really XML. It's a Citadel server response.
204 greg_response = greg_xmlresponse.responseText;
206 if (greg_response.substring(0, 1) != '1') {
211 breakpos = greg_response.indexOf('\n');
212 result = greg_response.substring(0, breakpos);
213 my_name = result.substring(4);
217 // Cause FetchNewMsgs() to be called periodically.
218 new PeriodicalExecuter(FetchNewMsgs, 10);