-/* $Id$ */
+/*
+ * $Id$
+ *
+ * Display a list of all users currently logged on to the Citadel server.
+ */
+#include <ctype.h>
#include <stdlib.h>
-#ifdef HAVE_UNISTD_H
#include <unistd.h>
-#endif
#include <stdio.h>
+#include <fcntl.h>
#include <signal.h>
#include <sys/types.h>
-#include <ctype.h>
+#include <sys/wait.h>
+#include <sys/socket.h>
+#include <sys/time.h>
+#include <limits.h>
+#include <netinet/in.h>
+#include <netdb.h>
#include <string.h>
+#include <pwd.h>
+#include <errno.h>
+#include <stdarg.h>
+#include <pthread.h>
+#include <signal.h>
#include "webcit.h"
-#include "child.h"
-struct whouser {
- struct whouser *next;
- int sessionnum;
- char username[256];
- char roomname[256];
- char hostname[256];
- char clientsoftware[256];
-};
+
/*
- * who is on?
+ * Display inner div of Wholist
*/
-void whobbs(void)
-{
- struct whouser *wlist = NULL;
- struct whouser *wptr = NULL;
- char buf[256], sess, user[256], room[256], host[256];
- int foundit;
+void who_inner_div(void) {
+ char buf[SIZ], user[SIZ], room[SIZ], host[SIZ],
+ realroom[SIZ], realhost[SIZ];
+ int sess;
+ time_t last_activity;
+ time_t now;
+ int bg = 0;
- printf("HTTP/1.0 200 OK\n");
- output_headers(1);
+ wprintf("<table border=\"0\" cellspacing=\"0\" width=\"100%%\" bgcolor=\"#FFFFFF\">"
+ "<tr>\n");
+ wprintf("<th colspan=\"3\"> </th>\n");
+ wprintf("<th>User Name</th>\n");
+ wprintf("<th>Room</th>");
+ wprintf("<th>From host</th>\n</tr>\n");
- wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=007700><TR><TD>");
- wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"<B>Users currently on ");
- escputs(serv_info.serv_humannode);
- wprintf("</B></FONT></TD></TR></TABLE>\n");
+ serv_puts("TIME");
+ serv_getln(buf, sizeof buf);
+ if (buf[0] == '2') {
+ now = extract_long(&buf[4], 0);
+ }
+ else {
+ now = time(NULL);
+ }
- wprintf("<CENTER>\n<TABLE BORDER=1>\n<TR>\n");
- wprintf("<TH><FONT FACE=\"Arial,Helvetica,sans-serif\">Session ID</FONT></TH>\n");
- wprintf("<TH><FONT FACE=\"Arial,Helvetica,sans-serif\">User Name</FONT></TH>\n");
- wprintf("<TH><FONT FACE=\"Arial,Helvetica,sans-serif\">Room</FONT></TH>");
- wprintf("<TH><FONT FACE=\"Arial,Helvetica,sans-serif\">From host</FONT></TH>\n</TR>\n");
serv_puts("RWHO");
- serv_gets(buf);
+ serv_getln(buf, sizeof buf);
if (buf[0] == '1') {
- while (serv_gets(buf), strcmp(buf, "000")) {
+ while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
sess = extract_int(buf, 0);
- extract(user, buf, 1);
- extract(room, buf, 2);
- extract(host, buf, 3);
-
- foundit = 0;
- for (wptr = wlist; wptr != NULL; wptr = wptr->next) {
- if (wptr->sessionnum == sess) {
- foundit = 1;
- if (strcasecmp(user, wptr->username)) {
- sprintf(buf, "%cBR%c%s",
- LB, RB, user);
- strcat(wptr->username, buf);
- }
- if (strcasecmp(room, wptr->roomname)) {
- sprintf(buf, "%cBR%c%s",
- LB, RB, room);
- strcat(wptr->roomname, buf);
- }
- if (strcasecmp(host, wptr->hostname)) {
- sprintf(buf, "%cBR%c%s",
- LB, RB, host);
- strcat(wptr->hostname, buf);
- }
- }
- }
+ extract_token(user, buf, 1, '|', sizeof user);
+ extract_token(room, buf, 2, '|', sizeof room);
+ extract_token(host, buf, 3, '|', sizeof host);
+ extract_token(realroom, buf, 9, '|', sizeof realroom);
+ extract_token(realhost, buf, 10, '|', sizeof realhost);
+ last_activity = extract_long(buf, 5);
+
+ bg = 1 - bg;
+ wprintf("<tr bgcolor=\"#%s\">",
+ (bg ? "DDDDDD" : "FFFFFF")
+ );
- if (foundit == 0) {
- wptr = (struct whouser *)
- malloc(sizeof(struct whouser));
- wptr->next = wlist;
- wlist = wptr;
- strcpy(wlist->username, user);
- strcpy(wlist->roomname, room);
- strcpy(wlist->hostname, host);
- wlist->sessionnum = sess;
- }
- }
- while (wlist != NULL) {
- wprintf("<TR>\n\t<TD ALIGN=center><FONT FACE=\"Arial,Helvetica,sans-serif\">%d", wlist->sessionnum);
+ wprintf("<td>");
if ((WC->is_aide) &&
- (wlist->sessionnum != serv_info.serv_pid)) {
- wprintf(" <A HREF=\"/terminate_session&which_session=%d&session_owner=", wlist->sessionnum);
- urlescputs(wlist->username);
- wprintf("\">(kill)</A>");
+ (sess != WC->ctdl_pid)) {
+ wprintf(" <a href=\"/terminate_session?which_session=%d", sess);
+ wprintf("\" onClick=\"return ConfirmKill();\" "
+ ">[kill]</a>");
}
- if (wlist->sessionnum == serv_info.serv_pid) {
- wprintf(" <A HREF=\"/edit_me\">(edit)</A>");
+ if (sess == WC->ctdl_pid) {
+ wprintf(" <a href=\"/edit_me\" "
+ ">[edit]</a>");
}
- /* username */
- wprintf("</FONT></TD>\n\t<TD><FONT FACE=\"Arial,Helvetica,sans-serif\"><A HREF=\"/showuser?who=");
- urlescputs(wlist->username);
- wprintf("\" onMouseOver=\"window.status='View profile for ");
- escputs(wlist->username);
- wprintf("'; return true\">");
- escputs(wlist->username);
- wprintf("</A>");
+ wprintf("</td>");
+
+ /* (link to page this user) */
+ wprintf("<td><a href=\"/display_page?recp=");
+ urlescputs(user);
+ wprintf("\">"
+ "<img align=\"middle\" "
+ "src=\"/static/citadelchat_24x.gif\" "
+ "alt=\"(p)\""
+ " border=\"0\" /></a> ");
+ wprintf("</td>");
+
+ /* (idle flag) */
+ wprintf("<td>");
+ if ((now - last_activity) > 900L) {
+ wprintf(" "
+ "<img align=\"middle\" "
+ "src=\"/static/inactiveuser_24x.gif\" "
+ "alt=\"[idle]\" border=\"0\" />");
+ }
+ else {
+ wprintf(" "
+ "<img align=\"middle\" "
+ "src=\"/static/activeuser_24x.gif\" "
+ "alt=\"[active]\" border=\"0\" />");
+ }
+ wprintf("</td>\n<td>");
+
+
+
+ /* username (link to user bio/photo page) */
+ wprintf("<a href=\"/showuser?who=");
+ urlescputs(user);
+ wprintf("\">");
+ escputs(user);
+ wprintf("</a>");
+
/* room */
- wprintf("</FONT></TD>\n\t<TD><FONT FACE=\"Arial,Helvetica,sans-serif\">");
- /* handle chat */
- if (strstr(wlist->roomname, "chat") != NULL) {
- wprintf("<A HREF=\"/chat\" onMouseOver=\"window.status='Chat'; return true\"><chat></A>");
- } else {
- wprintf("<A HREF=\"/dotgoto&room=");
- urlescputs(wlist->roomname);
- wprintf("\" onMouseOver=\"window.status='Go to room ");
- escputs(wlist->roomname);
- wprintf("'; return true\">");
- escputs(wlist->roomname);
- wprintf("</A>");
+ wprintf("</td>\n\t<td>");
+ escputs(room);
+ if (strlen(realroom) > 0) {
+ wprintf("<br /><i>");
+ escputs(realroom);
+ wprintf("</i>");
}
- wprintf("</FONT></TD><TD><FONT FACE=\"Arial,Helvetica,sans-serif\">");
+ wprintf("</td>\n\t<td>");
+
/* hostname */
- escputs(wlist->hostname);
- wprintf("</FONT></TD>\n</TR>");
- wptr = wlist->next;
- free(wlist);
- wlist = wptr;
+ escputs(host);
+ if (strlen(realhost) > 0) {
+ wprintf("<br /><i>");
+ escputs(realhost);
+ wprintf("</i>");
+ }
+ wprintf("</td>\n</tr>");
}
}
- wprintf("</TABLE>\n<BR><BR>\n");
- wprintf("<TABLE BORDER=0 BGCOLOR=\"#003399\">\n<TR><TD ALIGN=center VALIGN=center CELLPADING=20>\n");
- wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\" SIZE=+2><B><A HREF=\"/whobbs\"><FONT COLOR=\"#FF0000\">Refresh</FONT></A></B></FONT>\n");
- wprintf("</TD></TR>\n</TABLE>\n</CENTER>");
- wDumpContent(1);
+ wprintf("</table>");
}
-void terminate_session(void)
+/*
+ * XML-encapsulated version of wholist inner html
+ */
+void who_inner_html(void) {
+ output_headers(0, 0, 0, 0, 0, 0, 0);
+
+ wprintf("Content-type: text/xml;charset=UTF-8\r\n"
+ "Server: %s\r\n"
+ "Connection: close\r\n"
+ "Pragma: no-cache\r\n"
+ "Cache-Control: no-store\r\n",
+ SERVER);
+ begin_burst();
+
+ wprintf("<?xml version=\"1.0\" encoding=\"UTF-8\"?>"
+ "<ajax-response>\r\n"
+ "<response type=\"element\" id=\"fix_scrollbar_bug\">\r\n"
+ );
+
+ who_inner_div();
+
+ wprintf("</response>\r\n"
+ "</ajax-response>\r\n"
+ "\r\n"
+ );
+
+ wDumpContent(0);
+}
+
+
+/*
+ * who is on?
+ */
+void who(void)
{
- char buf[256];
-
- if (!strcasecmp(bstr("confirm"), "Yes")) {
- serv_printf("TERM %s", bstr("which_session"));
- serv_gets(buf);
- if (buf[0] == '2') {
- whobbs();
- } else {
- display_error(&buf[4]);
- }
- } else {
- printf("HTTP/1.0 200 OK\n");
- output_headers(1);
- wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=770000><TR><TD>");
- wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\" SIZE=+1 COLOR=\"FFFFFF\"<B>Confirm session termination");
- wprintf("</B></FONT></TD></TR></TABLE>\n");
-
- wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\">Are you sure you want to terminate session %s",
- bstr("which_session"));
- if (strlen(bstr("session_owner")) > 0) {
- wprintf(" (");
- escputs(bstr("session_owner"));
- wprintf(")");
- }
- wprintf("?<BR><BR>\n");
+ /*
+ output_headers(1, 1, 2, 0, 1, 0, 0); old refresh30 version
+ */
+ output_headers(1, 1, 2, 0, 0, 0, 0);
- wprintf("<A HREF=\"/terminate_session&which_session=%s&confirm=yes\">",
- bstr("which_session"));
- wprintf("Yes</A> ");
- wprintf("<A HREF=\"/whobbs\">No</A></FONT>");
- wDumpContent(1);
- }
+ wprintf("<script type=\"text/javascript\">\n"
+ "function ConfirmKill() { \n"
+ "return confirm('Do you really want to kill this session?');\n"
+ "}\n"
+ "</script>\n"
+ );
+ wprintf("<div id=\"banner\">\n");
+ wprintf("<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>");
+ wprintf("<IMG SRC=\"/static/usermanag_48x.gif\" ALT=\" \" "
+ "ALIGN=MIDDLE "
+ ">");
+ /* "onLoad=\"javascript:bodyOnLoad()\" " */
+ wprintf("<SPAN CLASS=\"titlebar\"> Users currently on ");
+ escputs(serv_info.serv_humannode);
+ wprintf("</SPAN></TD><TD ALIGN=RIGHT>");
+ offer_start_page();
+ wprintf("</TD></TR></TABLE>\n");
+ wprintf("</div>\n");
+
+ wprintf("<div id=\"content\">\n");
+
+ wprintf("<div style=\"display:inline\" id=\"fix_scrollbar_bug\">");
+ who_inner_div(); /* Actual data handled by another function */
+ wprintf("</div>\n");
+
+ wprintf("<div id=\"instructions\" align=center>"
+ "Click on a name to read user info. Click on "
+ "<IMG ALIGN=MIDDLE SRC=\"/static/citadelchat_16x.gif\" "
+ "ALT=\"(p)\" BORDER=0>"
+ " to send an instant message to that user.</div>\n");
+
+ /* JavaScript to make the ajax refresh happen:
+ * 1. Register the request 'getWholist' which calls the WebCit action 'who_inner_html'
+ * 2. Register the 'fix_scrollbar_bug' div as one we're interested in ajaxifying
+ * 3. setInterval to make the ajax refresh happen every 30 seconds. The random number
+ * in the request is there to prevent IE from caching the XML even though it's been
+ * told not to. Die, Microsoft, Die.
+ */
+ wprintf(
+" \n"
+" <script type=\"text/javascript\"> \n"
+" ajaxEngine.registerRequest('getWholist', 'who_inner_html');\n"
+" ajaxEngine.registerAjaxElement('fix_scrollbar_bug'); \n"
+" setInterval(\"ajaxEngine.sendRequest('getWholist', 'junk='+Math.random());\", 3000); \n"
+"</script>\n"
+ );
+
+
+ wDumpContent(1);
}
+void terminate_session(void)
+{
+ char buf[SIZ];
+
+ serv_printf("TERM %s", bstr("which_session"));
+ serv_getln(buf, sizeof buf);
+ who();
+}
+
/*
* Change your session info (fake roomname and hostname)
*/
void edit_me(void)
{
- char buf[256];
+ char buf[SIZ];
if (!strcasecmp(bstr("sc"), "Change room name")) {
serv_printf("RCHG %s", bstr("fake_roomname"));
- serv_gets(buf);
- whobbs();
+ serv_getln(buf, sizeof buf);
+ http_redirect("/who");
} else if (!strcasecmp(bstr("sc"), "Change host name")) {
serv_printf("HCHG %s", bstr("fake_hostname"));
- serv_gets(buf);
- whobbs();
+ serv_getln(buf, sizeof buf);
+ http_redirect("/who");
} else if (!strcasecmp(bstr("sc"), "Change user name")) {
serv_printf("UCHG %s", bstr("fake_username"));
- serv_gets(buf);
- whobbs();
+ serv_getln(buf, sizeof buf);
+ http_redirect("/who");
} else if (!strcasecmp(bstr("sc"), "Cancel")) {
- whobbs();
+ http_redirect("/who");
} else {
- printf("HTTP/1.0 200 OK\n");
- output_headers(1);
+ output_headers(1, 1, 0, 0, 0, 0, 0);
- wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=000077><TR><TD>");
- wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\" SIZE=+1 COLOR=\"FFFFFF\"><B>");
+ wprintf("<div id=\"banner\">\n");
+ wprintf("<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>");
+ wprintf("<SPAN CLASS=\"titlebar\">");
wprintf("Edit your session display");
- wprintf("</B></FONT></TD></TR></TABLE>\n");
- wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\">");
+ wprintf("</SPAN></TD></TR></TABLE>\n");
+ wprintf("</div>\n<div id=\"content\">\n");
+
wprintf("This screen allows you to change the way your\n");
wprintf("session appears in the 'Who is online' listing.\n");
wprintf("To turn off any 'fake' name you've previously\n");
wprintf("set, simply click the appropriate 'change' button\n");
wprintf("without typing anything in the corresponding box.\n");
- wprintf("<BR>\n</FONT>\n");
+ wprintf("<br />\n");
wprintf("<FORM METHOD=\"POST\" ACTION=\"/edit_me\">\n");
- wprintf("<TABLE border=0 width=100%>\n");
+ wprintf("<TABLE border=0 width=100%%>\n");
- wprintf("<TR><TD><FONT FACE=\"Arial,Helvetica,sans-serif\"><B>Room name:</B></FONT></TD>\n<TD>");
- wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\"><INPUT TYPE=\"text\" NAME=\"fake_roomname\" MAXLENGTH=\"64\">\n");
- wprintf("</FONT></TD>\n<TD ALIGN=center>");
- wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\"><INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Change room name\">");
- wprintf("</FONT></TD>\n</TR>\n");
+ wprintf("<TR><TD><B>Room name:</B></TD>\n<TD>");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"fake_roomname\" MAXLENGTH=\"64\">\n");
+ wprintf("</TD>\n<TD ALIGN=center>");
+ wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Change room name\">");
+ wprintf("</TD>\n</TR>\n");
- wprintf("<TR><TD><FONT FACE=\"Arial,Helvetica,sans-serif\"><B>Host name:</B></FONT></TD><TD>");
- wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\"><INPUT TYPE=\"text\" NAME=\"fake_hostname\" MAXLENGTH=\"64\">\n");
- wprintf("</FONT></TD>\n<TD ALIGN=center>");
- wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\"><INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Change host name\">");
- wprintf("</FONT></TD>\n</TR>\n");
+ wprintf("<TR><TD><B>Host name:</B></TD><TD>");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"fake_hostname\" MAXLENGTH=\"64\">\n");
+ wprintf("</TD>\n<TD ALIGN=center>");
+ wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Change host name\">");
+ wprintf("</TD>\n</TR>\n");
if (WC->is_aide) {
- wprintf("<TR><TD><FONT FACE=\"Arial,Helvetica,sans-serif\"><B>User name:</B></FONT></TD><TD>");
- wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\"><INPUT TYPE=\"text\" NAME=\"fake_username\" MAXLENGTH=\"64\">\n");
- wprintf("</FONT></TD>\n<TD ALIGN=center>");
- wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\"><INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Change user name\">");
- wprintf("</FONT></TD>\n</TR>\n");
+ wprintf("<TR><TD><B>User name:</B></TD><TD>");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"fake_username\" MAXLENGTH=\"64\">\n");
+ wprintf("</TD>\n<TD ALIGN=center>");
+ wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Change user name\">");
+ wprintf("</TD>\n</TR>\n");
}
- wprintf("<TR><TD> </TD><TD> </TD><TD ALIGN=center>");
+ wprintf("<TR><TD> </TD><TD> </TD><TD ALIGN=center>");
wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">");
wprintf("</TD></TR></TABLE>\n");
-
wprintf("</FORM></CENTER>\n");
wDumpContent(1);
}
projects / citadel.git / blobdiff