4fb70a56c144a656fa4bca9608c20f68de4b0cf2
[citadel.git] / webcit / who.c
1 /* $Id$ */
2
3 #include <stdlib.h>
4 #ifdef HAVE_UNISTD_H
5 #include <unistd.h>
6 #endif
7 #include <stdio.h>
8 #include <signal.h>
9 #include <sys/types.h>
10 #include <ctype.h>
11 #include <string.h>
12 #include "webcit.h"
13 #include "child.h"
14
15 struct whouser {
16         struct whouser *next;
17         int sessionnum;
18         char username[256];
19         char roomname[256];
20         char hostname[256];
21         char clientsoftware[256];
22 };
23
24 /*
25  * who is on?
26  */
27 void whobbs(void)
28 {
29         struct whouser *wlist = NULL;
30         struct whouser *wptr = NULL;
31         char buf[256], sess, user[256], room[256], host[256];
32         int foundit;
33
34         printf("HTTP/1.0 200 OK\n");
35         output_headers(1, "bottom");
36
37         wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=007700><TR><TD>");
38         wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"<B>Users currently on ");
39         escputs(serv_info.serv_humannode);
40         wprintf("</B></FONT></TD></TR></TABLE>\n");
41
42         wprintf("<CENTER>\n<TABLE BORDER=1>\n<TR>\n");
43         wprintf("<TH><FONT FACE=\"Arial,Helvetica,sans-serif\">Session ID</FONT></TH>\n");
44         wprintf("<TH><FONT FACE=\"Arial,Helvetica,sans-serif\">User Name</FONT></TH>\n");
45         wprintf("<TH><FONT FACE=\"Arial,Helvetica,sans-serif\">Room</FONT></TH>");
46         wprintf("<TH><FONT FACE=\"Arial,Helvetica,sans-serif\">From host</FONT></TH>\n</TR>\n");
47         serv_puts("RWHO");
48         serv_gets(buf);
49         if (buf[0] == '1') {
50                 while (serv_gets(buf), strcmp(buf, "000")) {
51                         sess = extract_int(buf, 0);
52                         extract(user, buf, 1);
53                         extract(room, buf, 2);
54                         extract(host, buf, 3);
55
56                         foundit = 0;
57                         for (wptr = wlist; wptr != NULL; wptr = wptr->next) {
58                                 if (wptr->sessionnum == sess) {
59                                         foundit = 1;
60                                         if (strcasecmp(user, wptr->username)) {
61                                                 sprintf(buf, "%cBR%c%s",
62                                                         LB, RB, user);
63                                                 strcat(wptr->username, buf);
64                                         }
65                                         if (strcasecmp(room, wptr->roomname)) {
66                                                 sprintf(buf, "%cBR%c%s",
67                                                         LB, RB, room);
68                                                 strcat(wptr->roomname, buf);
69                                         }
70                                         if (strcasecmp(host, wptr->hostname)) {
71                                                 sprintf(buf, "%cBR%c%s",
72                                                         LB, RB, host);
73                                                 strcat(wptr->hostname, buf);
74                                         }
75                                 }
76                         }
77
78                         if (foundit == 0) {
79                                 wptr = (struct whouser *)
80                                     malloc(sizeof(struct whouser));
81                                 wptr->next = wlist;
82                                 wlist = wptr;
83                                 strcpy(wlist->username, user);
84                                 strcpy(wlist->roomname, room);
85                                 strcpy(wlist->hostname, host);
86                                 wlist->sessionnum = sess;
87                         }
88                 }
89
90                 while (wlist != NULL) {
91                         wprintf("<TR>\n\t<TD ALIGN=center><FONT FACE=\"Arial,Helvetica,sans-serif\">%d", wlist->sessionnum);
92                         if ((is_aide) &&
93                             (wlist->sessionnum != serv_info.serv_pid)) {
94                                 wprintf(" <A HREF=\"/terminate_session&which_session=%d&session_owner=", wlist->sessionnum);
95                                 urlescputs(wlist->username);
96                                 wprintf("\">(kill)</A>");
97                         }
98                         if (wlist->sessionnum == serv_info.serv_pid) {
99                                 wprintf(" <A HREF=\"/edit_me\">(edit)</A>");
100                         }
101                         /* username */
102                         wprintf("</FONT></TD>\n\t<TD><FONT FACE=\"Arial,Helvetica,sans-serif\"><A HREF=\"/showuser?who=");
103                         escputs(wlist->username);
104                         wprintf("\" onMouseOver=\"window.status='View profile for ");
105                         escputs(wlist->username);
106                         wprintf("'; return true\">");
107                         escputs(wlist->username);
108                         wprintf("</A>");
109                         /* room */
110                         wprintf("</FONT></TD>\n\t<TD><FONT FACE=\"Arial,Helvetica,sans-serif\">");
111                         /* handle chat */
112                         if (strstr(wlist->roomname, "chat") != NULL) {
113                                 wprintf("<A HREF=\"/chat\" onMouseOver=\"window.status='Chat'; return true\">&lt;chat&gt;</A>");
114                         } else {
115                                 wprintf("<A HREF=\"/dotgoto&room=");
116                                 escputs(wlist->roomname);
117                                 wprintf("\" onMouseOver=\"window.status='Go to room ");
118                                 escputs(wlist->roomname);
119                                 wprintf("'; return true\">");
120                                 escputs(wlist->roomname);
121                                 wprintf("</A>");
122                         }
123                         wprintf("</FONT></TD><TD><FONT FACE=\"Arial,Helvetica,sans-serif\">");
124                         /* hostname */
125                         escputs(wlist->hostname);
126                         wprintf("</FONT></TD>\n</TR>");
127                         wptr = wlist->next;
128                         free(wlist);
129                         wlist = wptr;
130                 }
131         }
132         wprintf("</TABLE>\n<BR><BR>\n");
133         wprintf("<TABLE BORDER=0 BGCOLOR=\"#003399\">\n<TR><TD ALIGN=center VALIGN=center CELLPADING=10>\n");
134         wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\" SIZE=+2><B><A HREF=\"/whobbs\"><FONT COLOR=\"#FF0000\">Refresh</FONT></A></B></FONT>\n");
135         wprintf("</TD></TR>\n</TABLE>\n</CENTER>");
136         wDumpContent(1);
137 }
138
139
140 void terminate_session(void)
141 {
142         char buf[256];
143
144         if (!strcasecmp(bstr("confirm"), "Yes")) {
145                 serv_printf("TERM %s", bstr("which_session"));
146                 serv_gets(buf);
147                 if (buf[0] == '2') {
148                         whobbs();
149                 } else {
150                         display_error(&buf[4]);
151                 }
152         } else {
153                 printf("HTTP/1.0 200 OK\n");
154                 output_headers(1, "bottom");
155                 wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=770000><TR><TD>");
156                 wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\" SIZE=+1 COLOR=\"FFFFFF\"<B>Confirm session termination");
157                 wprintf("</B></FONT></TD></TR></TABLE>\n");
158
159                 wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\">Are you sure you want to terminate session %s",
160                         bstr("which_session"));
161                 if (strlen(bstr("session_owner")) > 0) {
162                         wprintf(" (");
163                         escputs(bstr("session_owner"));
164                         wprintf(")");
165                 }
166                 wprintf("?<BR><BR>\n");
167
168                 wprintf("<A HREF=\"/terminate_session&which_session=%s&confirm=yes\">",
169                         bstr("which_session"));
170                 wprintf("Yes</A>&nbsp;&nbsp;&nbsp;");
171                 wprintf("<A HREF=\"/whobbs\">No</A></FONT>");
172                 wDumpContent(1);
173         }
174
175 }
176
177
178
179 /*
180  * Change your session info (fake roomname and hostname)
181  */
182 void edit_me(void)
183 {
184         char buf[256];
185
186         printf("HTTP/1.0 200 OK\n");
187         output_headers(1, "bottom");
188
189         if (!strcasecmp(bstr("sc"), "Change room name")) {
190                 serv_printf("RCHG %s", bstr("fake_roomname"));
191                 serv_gets(buf);
192                 whobbs();
193         } else if (!strcasecmp(bstr("sc"), "Change host name")) {
194                 serv_printf("HCHG %s", bstr("fake_hostname"));
195                 serv_gets(buf);
196                 whobbs();
197         } else if (!strcasecmp(bstr("sc"), "Change user name")) {
198                 serv_printf("UCHG %s", bstr("fake_username"));
199                 serv_gets(buf);
200                 whobbs();
201         } else if (!strcasecmp(bstr("sc"), "Cancel")) {
202                 whobbs();
203         } else {
204
205                 wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=000077><TR><TD>");
206                 wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\" SIZE=+1 COLOR=\"FFFFFF\"><B>");
207                 wprintf("Edit your session display");
208                 wprintf("</B></FONT></TD></TR></TABLE>\n");
209                 wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\">");
210                 wprintf("This screen allows you to change the way your\n");
211                 wprintf("session appears in the 'Who is online' listing.\n");
212                 wprintf("To turn off any 'fake' name you've previously\n");
213                 wprintf("set, simply click the appropriate 'change' button\n");
214                 wprintf("without typing anything in the corresponding box.\n");
215                 wprintf("<BR>\n</FONT>\n");
216
217                 wprintf("<FORM METHOD=\"POST\" ACTION=\"/edit_me\">\n");
218
219                 wprintf("<TABLE border=0 width=100%>\n");
220
221                 wprintf("<TR><TD><FONT FACE=\"Arial,Helvetica,sans-serif\"><B>Room name:</B></FONT></TD>\n<TD>");
222                 wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\"><INPUT TYPE=\"text\" NAME=\"fake_roomname\" MAXLENGTH=\"64\">\n");
223                 wprintf("</FONT></TD>\n<TD ALIGN=center>");
224                 wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\"><INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Change room name\">");
225                 wprintf("</FONT></TD>\n</TR>\n");
226
227                 wprintf("<TR><TD><FONT FACE=\"Arial,Helvetica,sans-serif\"><B>Host name:</B></FONT></TD><TD>");
228                 wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\"><INPUT TYPE=\"text\" NAME=\"fake_hostname\" MAXLENGTH=\"64\">\n");
229                 wprintf("</FONT></TD>\n<TD ALIGN=center>");
230                 wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\"><INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Change host name\">");
231                 wprintf("</FONT></TD>\n</TR>\n");
232
233                 if (is_aide) {
234                         wprintf("<TR><TD><FONT FACE=\"Arial,Helvetica,sans-serif\"><B>User name:</B></FONT></TD><TD>");
235                         wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\"><INPUT TYPE=\"text\" NAME=\"fake_username\" MAXLENGTH=\"64\">\n");
236                         wprintf("</FONT></TD>\n<TD ALIGN=center>");
237                         wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\"><INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Change user name\">");
238                         wprintf("</FONT></TD>\n</TR>\n");
239                 }
240                 wprintf("<TR><TD>&nbsp;</TD><TD>&nbsp;</TD><TD ALIGN=center>");
241                 wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">");
242                 wprintf("</TD></TR></TABLE>\n");
243
244                 wprintf("</FORM></CENTER>\n");
245                 wDumpContent(1);
246         }
247 }