// vim:foldmethod=marker:syntax=lpc:noexpandtab
// $Id: library.i,v 1.172 2008/07/26 10:54:31 lynx Exp $

#include <psyc.h>
// #include "../base64.i"
#define QUIT	destruct(ME); return 1;

#if SYSTEM_CHARSET != "UTF-8"
# echo "FIXME: PSYC will be not be rendered in UTF-8."
#endif

volatile mapping obj2unl = ([]);
volatile mapping unl2obj = ([]);
// global location to identification resolver
volatile mapping unl2uni = ([]);

varargs void register_location(mixed unl, vamixed uni, vaint unsafe) {
	PROTECT("REGISTER_LOCATION")
	if (uni) {
	    if (unsafe && unl2uni[unl]) {
		P1(("register_location denied: %O says it is %O, but that is already registered for %O\n", uni, unl, unl2uni[unl]))
		return;
	    }
	    unl2uni[unl] = uni;
	}
	else m_delete(unl2uni, unl);
}

#ifndef _flag_disable_module_authentication
/** finds the _identification for a network source. if it cannot find
 ** the information in the cache, and a second argument is given with
 ** the _identification claimed by the source, that _identification
 ** will be asked for confirmation via PSYC. the result will obviously
 ** be available only at a later time. there is no callback function
 ** to this purpose. this function will ONLY return an identification
 ** when it is effectively different from the provided source.
 ** when a source is its own identification, this returns to avoid
 ** any extra processing. maybe one day we will return 1 if that's
 ** useful in any way, but you can check source == givenUNI yourself.
 ** the reason why the variable is called givenUNI and not identification
 ** is because a client may very well claim to be someone and actually not
 ** be that person. we are not sure about identification before the
 ** _request_authentication has returned.
 */
// this code is used intensely in FORK mode, whereas in !FORK,
// since entity.c, the givenUNI is never passed, thus inactive.
// unl2uni is only being used for local users' clients, not remotes
//
varargs mixed lookup_identification(mixed source, vamixed givenUNI) {
	PROTECT("LOOKUP_IDENTIFICATION")
	P2(("lookup_identification %O (%O) in %O\n", source, givenUNI, unl2uni))
	if (member(unl2uni, source)) return unl2uni[source];
	// ask a remote uni, but don't wait to complete
	if (givenUNI && source) {
		unl2uni[source] = 0; // ensures that we don't get here twice
			// now and in future always return 0 to avoid extra
			// processing of
		if (givenUNI == source) return 0;
                P1(("%O sending _request_authentication to %O for %O\n",
                    ME, givenUNI, source))
# ifndef __PIKE__ // TPD
		sendmsg(givenUNI, "_request_authentication", 0,
		    ([ "_location" : source ]));
# endif
	}
	// we could look again  ;)
	//if (unl2uni[source]) return unl2uni[source];
	return 0;
}
#endif

varargs string psyc_name(mixed source, vastring localpart) {
	P3((">> psyc_name(%O, %O)\n", source, localpart))
	string s;

	if (s = obj2unl[source]) return s;
#if DEBUG > 0
	if (stringp(source))
            raise_error("psyc_name called for string "+ source+ "\n");
#else
	if (stringp(source)) return source;
#endif
#ifdef PARANOID
	unless (objectp(source)) return 0;
#endif
	unless (s = localpart) {
		if (s = source->psycName()) {
			if (abbrev("mailto:", s)) {
				unl2obj[s] = source;
				return obj2unl[source] = s;
			}
		} else s = file_name(source);
	}
	//
	// since this is an outgoing UNL and we do not do
	// virtual psyc hosting we should be
	// allowed to leave out the myUNL here.
	// since we need to recognize ourselves in _context messages
	// even if our _source has been repatched, we need to know
	// all our "canonical" names. so this isn't even enough.
	// we probably need to our canonical hostname: myUNLCN.
	//
#ifndef __HOST_IP_NUMBER__
//	if (myUNLIP)
#endif
//	     unl2obj[myUNLIP +"/"+ s] = source;
	    // why store it with an ip? nobody uses that anyway!?
	    // is it being used anywhere in the parser? naaah.
	s = myUNL + s;
	P3((">>> psyc_name for %O is %O\n", source, s))
	unl2obj[s] = source;
	return obj2unl[source] = s;
}

object psyc_object(string uniform) {
	P3(("psyc_object(%O) in %O\n", uniform, unl2obj))
	return unl2obj[uniform];
}

object find_psyc_object(array(mixed) u) {
	P3((">> find_psyc_object(%O)\n", u))
	string t, r, svc, user;
	object o;

	user = u[UNick];
	r = u[UResource];
	if (r && strlen(r)) {
#if __EFUN_DEFINED__(trim)
# include <sys/strings.h>
		r = trim(r, TRIM_RIGHT, '/');
#else
		while (char_from_end(r, 1) == '/') r = slice_from_end(r, 0, 2);
#endif
		if (strlen(r)) switch(r[0]) {
		case '^':
			break;
		case '~':
#ifdef _flag_enable_module_microblogging
			if (u[UChannel]) {
			    t = lower_case(r +"#"+ u[UChannel]);
			    r = PLACE_PATH + t;
			    if (o = find_object(r)) break;
			    unless (t = legal_name(t, 1)) break;
			    // untreated catch? interesting..
			    catch(o = r -> load(t));
			}
#endif
			break;
		case '$':
			// target wird auf serv/args gesetzt
			// weiss noch nicht ob das gut ist
			t = r[1..];
			unless (sscanf(t, "%s/%s", svc, r))
			    svc = t;
    //P3(("find_service: %O for %O(%O)\n", o, svc, r))
			if (o = find_service(lower_case(svc)))
			    break;
//			unless (user) {
//			    croak("_failure_unavailable_service",
//    "No service '[_service]' available here.", ([ "_service" : svc ]) );
//			    return restart();
//			}
			return 0;		// TODO!
#ifndef __PIKE__
		case '@':
			// t[0..0] = PLACE_PATH;
			r = PLACE_PATH + lower_case(r[1..]);
			if (o = find_object(r)) break;
			// should check for legal name instead
			// of catch. TODO
			catch(o = r -> load());
			if (objectp(o)) break;
			// fall thru
#endif
		default:
			o = find_object(r);
			D2( if(!o)
			    D("OBJECT NOT FOUND: "+ r +"\n"); )
		}
	}
	else unless (user) {
		//return 0;	// return SERVER_UNIFORM !?
		return find_target_handler("/");
	}
	if (!objectp(o) && user) {
		// psyc/parse used to do this here
		o = summon_person(user); //, PSYC_PATH "user");
                P2(("%O summoning %O: %O\n", ME, user, o))
	}
	P3((">>> found psyc object: %O\n", o))
	return o;
}

#ifndef __PIKE__
// library transmits udp packets itself
#include "edit.i"
#endif

// target is lowercased already
int psyc_sendmsg(mixed target, string mc, mixed data, mapping vars,
		 int showingLog, mixed source, array(mixed) u) {
	string sname, host, buf, room;
	int port, usesrv = 1;
	object ob;
	mixed t;

	unless (u[UHost]) {
#ifndef __PIKE__ // TPD
		sendmsg(source, "_failure_unsupported_notation_location",
		     "PSYC server-independent uniform network "
		     "identificators not implemented yet.", 0, 0);
#endif
		return 0;
	}
#if DEBUG > 0
	unless (stringp(mc)) {
		P0(("psyc_sendmsg got mc == %O from %O.\n"
		    "probably a mistake when converting a walk_mapping.\n",
		    mc, previous_object()))
		return 0;
	}
#endif
	sname = objectp(source) ? psyc_name(source) : sname;
//	host = lower_case(u[UHostPort]);
//	unless (u[URoot]) u[URoot] = "psyc://"+host;

	// TODO: vars should be enforced system-wide
	unless (mappingp(vars)) vars = ([  ]);

	// seid ihr euch wirklich sicher, dass ihr diese zeile entfernen wollt?
	vars["_target"] = target;
	// <lynX> this could help protect against sources who destruct while
	// the message is in the queue. is it being used or is it okay to do
	// this operation at enqueing time? in fact the templates who use it
	// get it from psyctext() which resolves _source as source.. so this
	// here should not be necessary.. then again we just calculated it
	// so we don't want it to be calculated again later.. so we should
	// rather adapt the other spots where it's used rather than here..
	// after all it's mostly speed improvements.. no big thing.. TODO
	vars["_source"] = sname;

	unless (port = u[UPort]) port = u[UTransport] == "s" ?
					PSYCS_SERVICE : PSYC_SERVICE;
	else {
	    usesrv = 0;
	    if (port < 0) {
		P2(("Minusport in %O or %O, _failure to %O || %O\n",
		    target, u[UHost], vars["_context"], source))
#ifndef __PIKE__ // TPD
		sendmsg(vars["_context"] || source, 
			"_failure_network_connect_invalid_port",
		     "No connectable port known for [_source_relay].",
			 ([ "_source_relay" : target || u[UHost] ]), ME);
				// ME shouldn't be necessary! TODO
#endif
		return 0;
	    }
	}
	host = lower_case(u[UHost]);
	if (query_udp_port() == port && is_localhost(host)) {
	    // this happens when a psyc client sends to a local
	    // target that hasn't been incarnated yet...
	    ob = find_psyc_object(u);
	    // cache the resulting object for the url
	    if (ob) {
	P2(("psyc_sendmsg registering %O for %O found by parsing uniform\n",
                        target, ob))
                    register_target(target, ob);
            }
#ifndef __PIKE__ // TPD
	    return sendmsg(ob, mc, data, vars, source);
#endif
	    // or deliver directly?
	}
	// since the local URoot is in targets and pointing to net/root
	// we have to get here *after* making sure we are not addressing
	// a local entity.
	P3(("looking for %O(%O) in %O..\n", target, u[UHostPort], targets))
//	if (member(targets, t2 = u[URoot])) {
//		t = targets[t2];
//		if (t) {
	if (t = targets[u[URoot]]) {
			P2(("%O to be delivered on %O's circuit\n",
				    target, query_ip_name(t) || t ))
			register_target(target, t);
			    // was delivermsg(
			return t->msg(sname, mc, data, vars, 0, target);
// no more cleansing of targets mapping.. see also net/library.i
//		} else {
//			P1(("PSYC/TCP target %O gone!\n", t2))
//			m_delete( targets, t2 );
//		}
	}
#ifndef __PIKE__
	// okay so we have no existing connection..
	// current rule of thumb to decide whether to open up a tcp
	// also all localhost traffic should be handled by udp TODO
#ifdef _flag_enable_routing_UDP
	if (u[UTransport] == "c" ||
# ifdef _flag_enable_routing_TLS
	    u[UTransport] == "s" ||
# endif
	   (!u[UTransport] && !abbrev("_notice", mc)))
#else
	if (!u[UTransport] || u[UTransport] == "c"
# ifdef _flag_enable_routing_TLS
			   || u[UTransport] == "s"
# endif
	)
#endif
       	{
	    dns_resolve(host, (:
		object o;
		string hopo = $2;
		string psychopo;
		string psycippo = "psyc://"+ $1 +"/";

		// if ($3 && $3 != PSYC_SERVICE) {
		if ($9) {
			hopo += ":"+$9;
			psycippo += ":"+$9;
		}
		// hope it is correct to have a trailing slash here
		psychopo = "psyc://"+ hopo +"/";
		unless (o = find_target_handler(psycippo)) {
		    // we use psyc:host:port as an object name
		    // we can change that if it is confusing
#ifdef QUEUE_WITH_SCHEME
		    // this makes it look for psyc:host:port as its queue
		    o = ("psyc:"+hopo) -> circuit($2, $3, u[UTransport],
					    usesrv && "psyc", 0, systemQ, psychopo);
#else
		    // this makes it look for host:port as its queue
		    o = ("psyc:"+hopo) -> circuit($2, $3, u[UTransport],
					    usesrv && "psyc", hopo, systemQ, psychopo);
#endif //__PIKE__
		    // SRV tag "psyc" is actively being checked, but
		    // don't rely on it.. just use it as a fallback if
		    // nothing else is possible, but some clients may
		    // no longer be able to connect to you...
		}
		register_target($4, o);
		register_target(psychopo, o);
		register_target(psycippo, o);
		P2(("delivering %O(%O) over %O\n", hopo, $1, o))
		P3(("targets = %O\n", targets))
		// psyc/circuit.c will register psyc://IP:PORT at logon()
		// the last thing missing is a way to register all CNAMEs
		return o->msg($5, $6, $7, $8, 0, $4);
	    // ip=1  2     3       4      5     6    7      8    9
	    :),
		host, port, target, sname, mc, data, vars, u[UPort]
	    );
	    return 1;
	}
	else
#ifdef _flag_enable_routing_UDP
	    if (u[UTransport] && u[UTransport] != "d")
#endif
	{
		P1(("Invalid transport %O in %O, _failure to %O || %O\n",
		    u[UTransport], target, vars["_context"], source))
		sendmsg(vars["_context"] || source, 
			"_failure_network_connect_invalid_transport",
		     "Unknown transport type '[_transport]' for [_source_relay].",
			 ([ "_source_relay" : target || u[UHost],
			    "_transport": u[UTransport] ]), ME);
				// ME shouldn't be necessary! TODO
		return 0;
	}
#ifdef _flag_enable_routing_UDP
	// fall thru to UDP
# if DEBUG > 1
	if (port) {
		D(S("UDP[%s:%d] <= %O: %s\n", host, port, source, mc));
	} else {
		D(S("UDP[%s] <= %O: %s\n", host, source, mc));
	}
# endif
#ifndef NEW_RENDER
	// this produced wrong _length. please discontinue.
	if (stringp(data) && strlen(data))
                    // why do we take guesses at data here? uncool!
	    data="\n"+data+ (data[strlen(data)-1] == '\n' ?
		      S_GLYPH_PACKET_DELIMITER "\n" :
		 "\n" S_GLYPH_PACKET_DELIMITER "\n");
	else data="\n" S_GLYPH_PACKET_DELIMITER "\n"; // TODO? look up textdb.

	// look! MMP-conformant support of the _context variable!
	if (room = vars["_context"]) {
		// this may have to change into a full psyc: URL
		if (objectp(room)) room = psyc_name(room);
		buf = S_GLYPH_PACKET_DELIMITER "\n"
# ifdef PRE_SPEC
		       	":_source\t"+ sname +"\n"
# else
		       	":_source_relay\t"+ sname +"\n"
# endif
		      + ":_context\t"+ room +"\n";
	} else
	    buf = S_GLYPH_PACKET_DELIMITER "\n"
		  ":_source\t"+ sname +"\n"
		  ":_target\t"+ target +"\n";
	t = psyc_render(source, mc, data, vars, showingLog, target);
	unless (t) return 0;
	buf += t;
#else
	buf = psyc_render(source, mc, data, vars, showingLog, target);
	unless (buf) return 0;
#endif /* NEW_RENDER */

	// host seems to already be in lower_case
	if (is_localhost(host)) return send_udp(host, port, buf);
	PT(("dns_resolve + send_udp %O:%O packet:\n%s", host,port,buf))
	dns_resolve(host, (: if (stringp($1))
				send_udp($1, $2, $3);
			     else
				// if your driver complains about vars being
				// undefined at this point, you are probably
				// running an ldmud 3.2 which is not compatible
				// with psyced. pick a newer major version pls
				sendmsg(vars["_context"] || source, 
				    "_failure_network_send_resolve",
		     "[_source_host] for [_source_relay] does not resolve.",
				     ([ "_source_host" : host,
				       "_source_relay" : target||host ]), ME);
			    return; :), port, buf);
	return 1;
#endif /* _flag_enable_routing_UDP */
#endif // PIKE
}

/* this breaks /connect ...
object createUser(string nick) {
	PT(("creating " PSYC_PATH "user for "+ nick +"\n"))
	return named_clone(PSYC_PATH "user", nick);
}
*/