psyc-mirrors/psyced
1
0
Fork 0
mirror of git://git.psyced.org/git/psyced synced 2024-08-15 03:25:10 +00:00
Code Issues 2 Releases Wiki Activity

let the past begone in cvs land. welcome to igit igit!

Browse source
This commit is contained in:
PSYC 2009-01-26 20:21:29 +01:00
commit 4e601cf1c7
509 changed files with 77963 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

38
world/net/wap/users.c Normal file
View file

@ -0,0 +1,38 @@
// $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;
}