psyced/world/net/sockets.c

134 lines
3.7 KiB
C
Raw Permalink Normal View History

// $Id: sockets.c,v 1.26 2007/10/02 10:35:46 lynx Exp $ // vim:syntax=lpc
//
// this function is needed by net/user and net/http/configure (which doesn't
// inherit net/user.
// so i decided to move listUsers out into it's own object, which is to be
// inherited by those who need it.
// - saga
//
// listUsers() is now list_sockets() ...
//
#include <net.h>
#include <misc.h>
2009-03-03 02:17:24 +00:00
#if __EFUN_DEFINED__(tls_query_connection_info)
# include <sys/tls.h>
#endif
//#define NO_INHERIT // virtual ain't workin' .. but leavin it out neither
#include <text.h>
// similar logic in probably_private()
static string safetypin(object o, string ip) {
return !interactive(o) ? "-" :
#ifdef SECURE_IP_NUMBER
SECURE_IP_NUMBER(ip) ? "*" :
#endif
is_localhost(ip) ? "=" :
IS_GNUNET(ip) ? "#" :
#if __EFUN_DEFINED__(tls_query_connection_state)
tls_query_connection_state(o) ? "+" :
#endif
" ";
}
static int smaller_object_name(object a, object b) {
return object_name(a) < object_name(b);
}
list_sockets(guy, flags) {
array(object) u;
2009-03-03 02:17:24 +00:00
array(mixed) tls;
mapping uv;
string list, name, host, ip, idle, email, scheme, agent, layout;
int i, skip = 0;
mixed o;
if (guy) {
flags = 0;
o = find_person(guy);
if (o) u = ({ o });
else w("_error_unknown_name_user", "Cannot reach [_nick_target].", ([ "_nick_target": guy ]) );
}
else u = sort_array(users(), #'smaller_object_name);
unless (flags && intp(flags)) flags = SOCKET_LIST_ALL;
list = "";
for (i = sizeof(u)-1; i>=0; i--) {
o = u[i];
uv = o->vMapping();
if (mappingp(uv) && name = uv["name"]) {
if (flags & SOCKET_LIST_USER) {
email = uv["email"];
scheme = uv["scheme"];
agent = uv["agent"];
layout = uv["layout"];
host = uv["forwarded"];
unless (host) host = uv["host"];
ip = uv["ip"];
2009-03-03 02:17:24 +00:00
#if 1 //def _flag_log_hosts // realtime inspection isn't logging
unless (host) host = query_ip_name(o);
unless(ip) ip = query_ip_number(o);
#endif
// if (ip == host) ip = "";
if (idle = uv["aliveTime"]) idle = timedelta(time() - idle);
else if (idle = uv["idleTime"]) idle = timedelta(idle);
if (boss(o)) name += "*";
if (uv["visibility"] == "off") name = "°"+name;
list += sprintf(T("_list_user_technical_person",
"\n%s%4.4s %s %s %s (%s) <%s> %s"),
safetypin(o, ip),
(scheme == "ht" ? (layout || scheme)
: scheme) || "",
idle ? ((stringp(idle) ?
idle : to_string(idle))) : "",
name || "???",
host || "",
ip == host ? "=" : (ip || ""),
stringp(email)? email: "-",
stringp(agent)? agent: "");
} else skip++;
}
else {
name = o->qName();
2009-03-03 02:17:24 +00:00
#if __EFUN_DEFINED__(tls_query_connection_info)
tls = interactive(o) && tls_query_connection_info(o);
#endif
if (name? flags & SOCKET_LIST_GHOST : flags & SOCKET_LIST_LINK)
list += sprintf(T("_list_user_technical_ghost",
2009-03-03 02:17:24 +00:00
"\n%s %s %O %s (%s) %s %s"),
safetypin(o, query_ip_number(o)),
(name && to_string(name)) || "",
o,
query_ip_name(o) || "",
2009-03-03 02:17:24 +00:00
query_ip_number(o) || "",
"", "",
#if __EFUN_DEFINED__(tls_query_connection_info)
tls ? intp(tls[TLS_PROT]) ?
2009-09-13 09:23:52 +00:00
TLS_PROT_NAME(tls[TLS_PROT]) ||
to_string(tls[TLS_PROT]) : tls[TLS_PROT] : "",
2009-03-03 02:17:24 +00:00
tls ? intp(tls[TLS_CIPHER]) ?
2009-09-13 09:23:52 +00:00
TLS_CIPHER_NAME(tls[TLS_CIPHER])
|| to_string(tls[TLS_CIPHER])
: tls[TLS_CIPHER] : ""
#else
2009-03-03 02:17:24 +00:00
"", ""
#endif
2009-03-03 02:17:24 +00:00
);
else skip++;
}
}
if (list != "") {
w("_list_user_technical",
"*** Connections: [_amount_connections] ([_amount_connections_skipped] skipped), Load: [_server_load]\n[_users]", ([
"_amount_connections": sizeof(u),
"_amount_connections_skipped": skip,
"_server_load": query_load_average(),
"_users": list[1..]
]) );
return 1;
}
}