13 struct namelist *next;
18 * display the userlist
25 struct namelist *bio = NULL;
26 struct namelist *bptr;
31 if (buf[0]=='1') while (serv_gets(buf), strcmp(buf,"000")) {
32 bptr = (struct namelist *) malloc(sizeof(struct namelist));
34 strcpy(bptr->name, buf);
39 printf("HTTP/1.0 200 OK\n");
41 wprintf("<HTML><HEAD><TITLE>User list</TITLE>\n");
42 wprintf("</HEAD><BODY BACKGROUND=\"/image&name=background\" TEXT=\"#000000\" LINK=\"#004400\">\n");
47 wprintf("<EM>%s</EM><BR>\n",&buf[4]);
52 wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=007700><TR><TD>");
53 wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"");
54 wprintf("<B>User list for ");
55 escputs(serv_info.serv_humannode);
56 wprintf("</B></FONT></TD></TR></TABLE>\n");
58 wprintf("<CENTER><TABLE border>");
59 wprintf("<TR><TH>User Name</TH><TH>Number</TH><TH>Access Level</TH>");
60 wprintf("<TH>Last Call</TH><TH>Total Calls</TH><TH>Total Posts</TH></TR>\n");
62 while (serv_gets(buf), strcmp(buf,"000")) {
65 for (bptr=bio; bptr!=NULL; bptr=bptr->next) {
66 if (!strcasecmp(fl,bptr->name)) has_bio = 1;
70 wprintf("<A HREF=\"/showuser&who=");
79 wprintf("</TD><TD>%ld</TD><TD>%d</TD><TD>",
82 lc = extract_long(buf,3);
83 tmbuf = (struct tm *)localtime(&lc);
84 wprintf("%02d/%02d/%04d ",
87 (tmbuf->tm_year + 1900));
90 wprintf("</TD><TD>%ld</TD><TD>%5ld</TD></TR>\n",
91 extract_long(buf,4),extract_long(buf,5));
94 wprintf("</TABLE></CENTER>\n");
95 DONE: wprintf("</BODY></HTML>\n");
101 * Display (non confidential) information about a particular user
103 void showuser(void) {
108 printf("HTTP/1.0 200 OK\n");
110 wprintf("<HTML><HEAD><TITLE>User profile</TITLE>\n");
111 wprintf("</HEAD><BODY BACKGROUND=\"/image&name=background\" TEXT=\"#000000\" LINK=\"#004400\">\n");
114 wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=007700><TR><TD>");
115 wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"<B>User profile");
116 wprintf("</B></FONT></TD></TR></TABLE>\n");
118 strcpy(who, bstr("who"));
119 serv_printf("OIMG _userpic_|%s", who);
130 wprintf("<CENTER><TABLE><TR><TD>");
132 wprintf("<IMG SRC=\"/image&name=_userpic_&parm=");
136 wprintf("</TD><TD><H1>%s</H1></TD></TR></TABLE></CENTER>\n",who);
137 serv_printf("RBIO %s",who);
139 if (buf[0]=='1') fmout(NULL);
140 wprintf("</BODY></HTML>\n");