16 * display the form for paging (x-messaging) another user
18 void display_page(void) {
22 printf("HTTP/1.0 200 OK\n");
23 output_headers(1, "bottom");
25 wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=007700><TR><TD>");
26 wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"");
27 wprintf("<B>Page another user</B>\n");
28 wprintf("</FONT></TD></TR></TABLE>\n");
30 wprintf("This command sends a near-real-time message to any currently\n");
31 wprintf("logged in user.<BR><BR>\n");
33 wprintf("<FORM METHOD=\"POST\" ACTION=\"/page_user\">\n");
35 wprintf("Select a user to send a message to: <BR>");
37 wprintf("<SELECT NAME=\"recp\" SIZE=10>\n");
41 while(serv_gets(buf), strcmp(buf,"000")) {
48 wprintf("</SELECT>\n");
51 wprintf("Enter message text:<BR>");
52 wprintf("<INPUT TYPE=\"text\" NAME=\"msgtext\" MAXLENGTH=80 SIZE=80>\n");
53 wprintf("<BR><BR>\n");
55 wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Send message\">");
56 wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\"><BR>\n");
58 wprintf("</FORM></CENTER>\n");
65 void page_user(void) {
71 printf("HTTP/1.0 200 OK\n");
72 output_headers(1, "bottom");
74 strcpy(recp,bstr("recp"));
75 strcpy(msgtext,bstr("msgtext"));
76 strcpy(sc,bstr("sc"));
78 if (strcmp(sc,"Send message")) {
79 wprintf("<EM>Message was not sent.</EM><BR>\n");
83 serv_printf("SEXP %s|%s",recp,msgtext);
87 wprintf("<EM>Message has been sent to ");
89 wprintf(".</EM><BR>\n");
92 wprintf("<EM>%s</EM><BR>\n",&buf[4]);
105 printf("HTTP/1.0 200 OK\n");
106 output_headers(1, "bottom");
108 wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=000077><TR><TD>");
109 wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"");
110 wprintf("<B>Real-time chat</B>\n");
111 wprintf("</FONT></TD></TR></TABLE>\n");
113 wprintf("A chat window should be appearing on your screen ");
114 wprintf("momentarily. When you're ");
115 wprintf("done, type <TT>/quit</TT> to exit. You can also ");
116 wprintf("type <TT>/help</TT> for more commands.\n");
118 wprintf("<applet codebase=\"/static\" ");
119 wprintf("code=\"wcchat\" width=2 height=2>\n");
120 wprintf("<PARAM NAME=username VALUE=\"%s\">\n", wc_username);
121 wprintf("<PARAM NAME=password VALUE=\"%s\">\n", wc_password);
122 wprintf("<H2>Oops!</H2>Looks like your browser doesn't support Java, ");
123 wprintf("so you won't be able to access Chat. Sorry.\n");
124 wprintf("</applet>\n");