// $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>

#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;
	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"];
#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();
#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",
			  "\n%s %s %O %s (%s) %s %s"),
			    safetypin(o, query_ip_number(o)),
			    (name && to_string(name)) || "",
			    o,
			    query_ip_name(o) || "",
			    query_ip_number(o) || "",
                            "", "",
#if __EFUN_DEFINED__(tls_query_connection_info)
			    tls ? intp(tls[TLS_PROT]) ?
				 TLS_PROT_NAME(tls[TLS_PROT]) ||
				 to_string(tls[TLS_PROT]) : tls[TLS_PROT] : "",
			    tls ? intp(tls[TLS_CIPHER]) ?
				 TLS_CIPHER_NAME(tls[TLS_CIPHER])
				 || to_string(tls[TLS_CIPHER])
				 : tls[TLS_CIPHER] : ""
#else
			    "", ""
#endif
			);
		    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;
	}
}