mirror of git://git.psyced.org/git/psyced
39 lines
698 B
C
39 lines
698 B
C
// $Id: users.c,v 1.7 2007/10/02 10:35:46 lynx Exp $ // vim:syntax=lpc
|
|
//
|
|
// inspect local /who list from a WAP phone
|
|
//
|
|
#include <net.h>
|
|
#include "wap.h"
|
|
|
|
htget(prot, query, headers) {
|
|
array(string) u;
|
|
string list;
|
|
string n;
|
|
int i;
|
|
|
|
HTOK;
|
|
write(WML_START + "<card title='" CHATNAME " chatters'><p>");
|
|
|
|
u = objects_people();
|
|
list = "";
|
|
for (i = sizeof(u)-1; i>=0; i--) {
|
|
n = u[i]->qName();
|
|
if (n) {
|
|
if (list != "") list += ",\n";
|
|
list += n;
|
|
}
|
|
}
|
|
write(list);
|
|
|
|
write("</p></card>\n" + WML_END);
|
|
|
|
log_file("WAP", "[%s] %s users %O\n",
|
|
#ifdef _flag_log_hosts
|
|
query_ip_name(),
|
|
#else
|
|
"?",
|
|
#endif
|
|
ctime(), headers);
|
|
return 1;
|
|
}
|