* Added a "random number" parameter to the wholist ajax refresh request,
[citadel.git] / webcit / who.c
1 /*
2  * $Id$
3  *
4  * Display a list of all users currently logged on to the Citadel server.
5  */
6
7 #include "webcit.h"
8
9
10
11 /*
12  * Display inner div of Wholist
13  */
14 void who_inner_div(void) {
15         char buf[SIZ], user[SIZ], room[SIZ], host[SIZ],
16                 realroom[SIZ], realhost[SIZ];
17         int sess;
18         time_t last_activity;
19         time_t now;
20         int bg = 0;
21
22         wprintf("<table border=\"0\" cellspacing=\"0\" width=\"100%%\" bgcolor=\"#FFFFFF\">"
23                 "<tr>\n");
24         wprintf("<th colspan=\"3\"> </th>\n");
25         wprintf("<th>%s</th>\n", _("User name"));
26         wprintf("<th>%s</th>", _("Room"));
27         wprintf("<th>%s</th>\n</tr>\n", _("From host"));
28
29         serv_puts("TIME");
30         serv_getln(buf, sizeof buf);
31         if (buf[0] == '2') {
32                 now = extract_long(&buf[4], 0);
33         }
34         else {
35                 now = time(NULL);
36         }
37
38         serv_puts("RWHO");
39         serv_getln(buf, sizeof buf);
40         if (buf[0] == '1') {
41                 while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
42                         sess = extract_int(buf, 0);
43                         extract_token(user, buf, 1, '|', sizeof user);
44                         extract_token(room, buf, 2, '|', sizeof room);
45                         extract_token(host, buf, 3, '|', sizeof host);
46                         extract_token(realroom, buf, 9, '|', sizeof realroom);
47                         extract_token(realhost, buf, 10, '|', sizeof realhost);
48                         last_activity = extract_long(buf, 5);
49
50                         bg = 1 - bg;
51                         wprintf("<tr bgcolor=\"#%s\">",
52                                 (bg ? "DDDDDD" : "FFFFFF")
53                         );
54
55
56                         wprintf("<td>");
57                         if ((WC->is_aide) &&
58                             (sess != WC->ctdl_pid)) {
59                                 wprintf(" <a href=\"/terminate_session?which_session=%d", sess);
60                                 wprintf("\" onClick=\"return ConfirmKill();\">%s</a>", _("(kill)"));
61                         }
62                         if (sess == WC->ctdl_pid) {
63                                 wprintf(" <a href=\"/edit_me\">%s</a>", _("(edit)"));
64                         }
65                         wprintf("</td>");
66
67                         /* (link to page this user) */
68                         wprintf("<td><a href=\"/display_page?recp=");
69                         urlescputs(user);
70                         wprintf("\">"
71                                 "<img align=\"middle\" "
72                                 "src=\"/static/citadelchat_24x.gif\" "
73                                 "alt=\"(p)\""
74                                 " border=\"0\" /></a> ");
75                         wprintf("</td>");
76
77                         /* (idle flag) */
78                         wprintf("<td>");
79                         if ((now - last_activity) > 900L) {
80                                 wprintf(" "
81                                         "<img align=\"middle\" "
82                                         "src=\"/static/inactiveuser_24x.gif\" "
83                                         "alt=\"(idle)\" border=\"0\" />");
84                         }
85                         else {
86                                 wprintf(" "
87                                         "<img align=\"middle\" "
88                                         "src=\"/static/activeuser_24x.gif\" "
89                                         "alt=\"(active)\" border=\"0\" />");
90                         }
91                         wprintf("</td>\n<td>");
92
93
94
95                         /* username (link to user bio/photo page) */
96                         wprintf("<a href=\"/showuser?who=");
97                         urlescputs(user);
98                         wprintf("\">");
99                         escputs(user);
100                         wprintf("</a>");
101
102                         /* room */
103                         wprintf("</td>\n\t<td>");
104                         escputs(room);
105                         if (strlen(realroom) > 0) {
106                                 wprintf("<br /><i>");
107                                 escputs(realroom);
108                                 wprintf("</i>");
109                         }
110                         wprintf("</td>\n\t<td>");
111
112                         /* hostname */
113                         escputs(host);
114                         if (strlen(realhost) > 0) {
115                                 wprintf("<br /><i>");
116                                 escputs(realhost);
117                                 wprintf("</i>");
118                         }
119                         wprintf("</td>\n</tr>");
120                 }
121         }
122         wprintf("</table>");
123 }
124
125
126 /*
127  * AJAX-response version of wholist inner html
128  */
129 void who_inner_html(void) {
130         output_headers(0, 0, 0, 0, 0, 0, 0);
131
132         wprintf("Content-type: text/html; charset=UTF-8\r\n"
133                 "Server: %s\r\n"
134                 "Connection: close\r\n"
135                 "Pragma: no-cache\r\n"
136                 "Cache-Control: no-cache\r\n",
137                 SERVER);
138         begin_burst();
139
140         who_inner_div();
141
142         wprintf("\r\n");
143         wDumpContent(0);
144 }
145
146
147 /*
148  * who is on?
149  */
150 void who(void)
151 {
152         char title[256];
153
154         output_headers(1, 1, 2, 0, 0, 0, 0);
155
156         wprintf("<script type=\"text/javascript\">\n"
157                 "function ConfirmKill() { \n"
158                 "return confirm('%s');\n"
159                 "}\n"
160                 "</script>\n", _("Do you really want to kill this session?")
161         );
162
163         wprintf("<div id=\"banner\">\n");
164         wprintf("<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>");
165         wprintf("<IMG SRC=\"/static/usermanag_48x.gif\" ALT=\" \" "
166                 "ALIGN=MIDDLE "
167                 ">");
168         wprintf("<SPAN CLASS=\"titlebar\"> ");
169
170         snprintf(title, sizeof title, _("Users currently on %s"), serv_info.serv_humannode);
171         escputs(title);
172
173         wprintf("</SPAN></TD><TD ALIGN=RIGHT>");
174         offer_start_page();
175         wprintf("</TD></TR></TABLE>\n");
176         wprintf("</div>\n");
177
178         wprintf("<div id=\"content\">\n");
179
180         wprintf("<div style=\"display:inline\" id=\"fix_scrollbar_bug\">");
181         who_inner_div();
182         wprintf("</div>\n");
183
184         wprintf("<div id=\"instructions\" align=center>");
185         wprintf(_("Click on a name to read user info.  Click on %s "
186                 "to send an instant message to that user."),
187                 "<img align=\"middle\" src=\"/static/citadelchat_16x.gif\" alt=\"(p)\" border=\"0\">"
188         );
189         wprintf("</div>\n");
190
191         /* JavaScript to make the ajax refresh happen:
192          * * See http://www.sergiopereira.com/articles/prototype.js.html for info on Ajax.Updater
193          * * It wants: 1. The div being updated
194          * *           2. The URL of the update source
195          * *           3. Other flags (such as the HTTP method)
196          *
197          * * setInterval() makes it auto-run this code every 30,000 milliseconds (30 seconds)
198          *
199          * The random number parameter forces b0rken MSIE to fetch a new page instead of going to
200          * its cache, even though it's been specifically told not to cache.
201          *
202          */
203         wprintf(
204                 "<script type=\"text/javascript\">                                                      \n"
205                 " setInterval(\" new Ajax.Updater('fix_scrollbar_bug', '/who_inner_html',               "
206                 "               {method: 'get', parameters: Math.random() });   \", 3000);              \n"
207                 "</script>                                                                              \n"
208         );
209         wDumpContent(1);
210 }
211
212
213 void terminate_session(void)
214 {
215         char buf[SIZ];
216
217         serv_printf("TERM %s", bstr("which_session"));
218         serv_getln(buf, sizeof buf);
219         who();
220 }
221
222
223 /*
224  * Change your session info (fake roomname and hostname)
225  */
226 void edit_me(void)
227 {
228         char buf[SIZ];
229
230         if (strlen(bstr("change_room_name_button")) > 0) {
231                 serv_printf("RCHG %s", bstr("fake_roomname"));
232                 serv_getln(buf, sizeof buf);
233                 http_redirect("/who");
234         } else if (strlen(bstr("change_host_name_button")) > 0) {
235                 serv_printf("HCHG %s", bstr("fake_hostname"));
236                 serv_getln(buf, sizeof buf);
237                 http_redirect("/who");
238         } else if (strlen(bstr("change_user_name_button")) > 0) {
239                 serv_printf("UCHG %s", bstr("fake_username"));
240                 serv_getln(buf, sizeof buf);
241                 http_redirect("/who");
242         } else if (strlen(bstr("cancel_button")) > 0) {
243                 http_redirect("/who");
244         } else {
245                 output_headers(1, 1, 0, 0, 0, 0, 0);
246
247                 wprintf("<div id=\"banner\">\n");
248                 wprintf("<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>");
249                 wprintf("<SPAN CLASS=\"titlebar\">");
250                 wprintf(_("Edit your session display"));
251                 wprintf("</SPAN></TD></TR></TABLE>\n");
252                 wprintf("</div>\n<div id=\"content\">\n");
253
254                 wprintf(_("This screen allows you to change the way your "
255                         "session appears in the 'Who is online' listing. "
256                         "To turn off any 'fake' name you've previously "
257                         "set, simply click the appropriate 'change' button "
258                         "without typing anything in the corresponding box. "));
259                 wprintf("<br />\n");
260
261                 wprintf("<FORM METHOD=\"POST\" ACTION=\"/edit_me\">\n");
262
263                 wprintf("<TABLE border=0 width=100%%>\n");
264
265                 wprintf("<TR><TD><B>");
266                 wprintf(_("Room name:"));
267                 wprintf("</B></TD>\n<TD>");
268                 wprintf("<INPUT TYPE=\"text\" NAME=\"fake_roomname\" MAXLENGTH=\"64\">\n");
269                 wprintf("</TD>\n<TD ALIGN=center>");
270                 wprintf("<INPUT TYPE=\"submit\" NAME=\"change_room_name_button\" VALUE=\"%s\">",
271                         _("Change room name"));
272                 wprintf("</TD>\n</TR>\n");
273
274                 wprintf("<TR><TD><B>");
275                 wprintf(_("Host name:"));
276                 wprintf("</B></TD><TD>");
277                 wprintf("<INPUT TYPE=\"text\" NAME=\"fake_hostname\" MAXLENGTH=\"64\">\n");
278                 wprintf("</TD>\n<TD ALIGN=center>");
279                 wprintf("<INPUT TYPE=\"submit\" NAME=\"change_host_name_button\" VALUE=\"%s\">",
280                         _("Change host name"));
281                 wprintf("</TD>\n</TR>\n");
282
283                 if (WC->is_aide) {
284                         wprintf("<TR><TD><B>");
285                         wprintf(_("User name:"));
286                         wprintf("</B></TD><TD>");
287                         wprintf("<INPUT TYPE=\"text\" NAME=\"fake_username\" MAXLENGTH=\"64\">\n");
288                         wprintf("</TD>\n<TD ALIGN=center>");
289                         wprintf("<INPUT TYPE=\"submit\" NAME=\"change_user_name_button\" VALUE=\"%s\">",
290                                 _("Change user name"));
291                         wprintf("</TD>\n</TR>\n");
292                 }
293                 wprintf("<TR><TD> </TD><TD> </TD><TD ALIGN=center>");
294                 wprintf("<INPUT TYPE=\"submit\" NAME=\"cancel_button\" VALUE=\"%s\">",
295                         _("Cancel"));
296                 wprintf("</TD></TR></TABLE>\n");
297                 wprintf("</FORM></CENTER>\n");
298                 wDumpContent(1);
299         }
300 }