// $Id: common.c,v 1.276 2008/12/01 11:31:33 lynx Exp $ // vim:syntax=lpc:ts=8 #define NO_INHERIT #include "jabber.h" #undef NO_INHERIT #include #include //virtual inherit NET_PATH "output"; #include #ifdef __psyclpc__ # if __VERSION_MICRO__ > 4 // since this file is in the psyced distribution we can't // be sure we _really_ have RE_UTF8 unless we check the // driver version.. sigh # include # endif #endif jabberMsg(); inherit NET_PATH "xml/common"; volatile string buffer = ""; volatile closure jid_has_node_cl = (: int t, t2; t = index($1, '@'); if (t == -1) return 0; t2 = index($1, '/'); if (t2 == -1 || t2 > t) return 1; return 0; :); qScheme() { return "xmpp"; } // habber.. chabber.. xabber? // wie schreibt man das wie alvaro es spricht? // all objects should call this for unwelcome hosts. TODO // i wonder if gateway.c does inherit net/connect though. prolly not. block() { STREAM_ERROR("policy-violation", "This is way beyond imagination.") // cant we :: that? destruct(ME); return 0; //return ::block(); } int emit(string message) { #if __EFUN_DEFINED__(convert_charset) && SYSTEM_CHARSET != "UTF-8" // apparently render() does this for us // iconv(message, SYSTEM_CHARSET, "UTF-8"); #endif #ifdef RE_UTF8 string t, err; // according to http://www.w3.org/TR/xml/#charsets // remove illegal unicode chars --// thx elmex err = catch(t = regreplace(message, "[^\\x{9}\\x{A}\\x{D}\\x{20}-\\x{D7FF}\\x{E000}-\\x{FFFD}\\x{10000}-\\x{FFFFF}]+", "*", RE_GLOBAL | RE_UTF8); nolog); if (err || t != message) { // Info: Chars filtered to %O. Message was %O. log_file("CHARS_XMPP", "[%s] %O %O %O\n", ctime(), ME, err, message); if (t) message = t; // we get here when somebody has configured utf8 even though // he is actually sending latin. would be nicer to figure this // out at parsing time rather than at rendering time, and to // generate an _error back to sender in that case. TODO //monitor_report("_error_invalid_data_charset", ...what?); P1(("catch! invalid chars going out to %O\n", ME)) return 0; // do not emit } #endif #ifdef _flag_log_sockets_XMPP log_file("RAW_XMPP", "\n« %O\t%s", ME, message); #endif return ::emit(message); } // don't check message, use this only where you are 100% sure // to be sending safe data int emitraw(string message) { #ifdef _flag_log_sockets_XMPP log_file("RAW_XMPP", "\n« %O\t%s", ME, message); #endif return ::emit(message); } // this assumes the old ldmuddish charmode+combine-charset // if we ever get a input_bytes it needs to be rewrittn feed(a) { int pos; buffer += a; while ((pos = strstr(buffer, ">") + 1) > 0){ if (strstr(buffer, "<") == -1) { /* XML is a braindead spec * > MAY be encoded * 'this may be fixed in future versions' * of the xmpp spec */ buffer = buffer[0..pos-2] + ">"; // + buffer[pos..] <-- empty continue; } #if __EFUN_DEFINED__(convert_charset) && SYSTEM_CHARSET != "UTF-8" if (catch(a = convert_charset(buffer[0..pos - 1], "UTF-8", SYSTEM_CHARSET); nolog)) { P1(("catch! iconv %O in %O\n", a, ME)) //QUIT a = buffer; // let's give it a try } xmlparse(a); #else xmlparse(buffer[0..pos - 1]); #endif buffer = buffer[pos..]; } #ifdef INPUT_NO_TELNET input_to(#'feed, INPUT_IGNORE_BANG | INPUT_CHARMODE | INPUT_NO_TELNET); #else input_to(#'feed, INPUT_IGNORE_BANG | INPUT_CHARMODE); #endif } #define JABBER_PARSE #define XML_ERROR(code, long) \ P0(("%O aborting XML parse: %s\n", ME, long)) \ STREAM_ERROR(code, "") \ remove_interactive(ME); #include NET_PATH "xml/parse.c" #undef JABBER_PARSE jabberMsg(XMLNode node) { P2(("common:jabberMsg (should not happen) %O\n", node[Tag])) } // TODO: move this to separate file and determine which parts can be ifdeffed varargs string mkjid(mixed who, mixed vars, mixed ignore_context, string target, string jabberhost) { /* Die große Aufgabe: wie quetschen wir die gehaltvolle * Information aus dem vars-mapping gegeben durch * _nick, nick_place, source && context in einen * einzigen String der Form * user@host/resource? */ string t, *u; if (!who || who == "") return ""; unless (jabberhost) jabberhost = _host_XMPP; P3(("%O mkjid(%O, %O, %O, %O, %O)\n", ME, who, vars, ignore_context, target, jabberhost)) if (!ignore_context && vars && vars["_nick_place"] && vars["_context"]) { // dies ist eine nachricht die multicastet wird. // jabber-roomids: #room@jabber.host/nickname if (objectp(vars["_context"])) { t = PLACEPREFIX + NODEPREP(vars["_nick_place"]) +"@"+ NAMEPREP(jabberhost); } else if (u = parse_uniform(vars["_context"])) { if (u[UScheme] == "psyc") t = PLACEPREFIX + NODEPREP(u[UNick]) + "@" + NAMEPREP(u[UHost]); else // here we presume we have a u@h or xmpp: t = NODEPREP(u[UUser]) + "@" + NAMEPREP(u[UHost]); } else { P0(("%O mkjid should not happen 1\n")) t = PLACEPREFIX + vars["_nick_place"] + "@impossible"; } return t; } else if (objectp(who)) { // we could optimize here with a jabberInfo() that returns // an array of ({ isplace, nickname, resource }) so we // don't have to make guesses at t[0] and splices at t[1..] etc // t = who->psycName(); unless (t) return NAMEPREP(jabberhost); // ? if (t[0] == '@'){ t = PLACEPREFIX + NODEPREP(t[1..]) +"@"+ NAMEPREP(jabberhost); // jabber-roomids: #room@host/nickname // it seems that those are not case-sensitive // we could probably use clash nick here, // but it's difficult } else { string r; // jabber-user: nick@host/resource (letztere optional) t = NODEPREP(t[1..]) +"@"+ NAMEPREP(jabberhost); // this call_other sucks for several reasons (other // than being a call other): // TODO: pass resource in vars if and only if // needed // TODO: mkjid needs a MAJOR rewrite } return t; } else unless (stringp(who)) { P1(("%O unknown type for mkjid(%O, %O, %O, %O, %O)\n", ME, who, vars, ignore_context, target, jabberhost)) //return NAMEPREP(jabberhost); --- maybe better? return ""; } else if (u = parse_uniform(who, 1)) { // jabber-userjids: nick@host/resource (letztere optional) t = u[UResource]; unless (strlen(t)) t = 0; // this _SHOULD_ recognize its own host.. then again, we // simply avoid sending local sources as uniforms, please! unless (t) { if (u[UUser]) return NODEPREP(u[UUser]) + "@" + NAMEPREP(u[UHost]); else return NAMEPREP(u[UHost]); } // this almost works... but it seems the resource is // case sensitive ??? // er... what is that for? // ah... used for example when doing /version xmpp:host if (u[UScheme] == "xmpp" || !u[UScheme]) { // no scheme = pure jid t = RESOURCEPREP(t); if (u[UUser]) return NODEPREP(u[UUser]) +"@"+ NAMEPREP(u[UHost]) +"/"+ t; else return NAMEPREP(u[UHost]) + "/" + t; } // here we wildly presume this is a psyc: uniform if (t[0] == '@') { t = PLACEPREFIX + NODEPREP(t[1..]) + "@" + NAMEPREP(u[UHost]); return t; } else return NODEPREP(t[1..]) +"@"+ NAMEPREP(u[UHost]); } // argument already _is_ a jid.. // .. no wait i let parse_uniform handle that // if (index(who, '@') > 0) return who; // oops, PREPping is missing // argument is just a local username return NODEPREP(who) +"@"+ NAMEPREP(jabberhost); } void determine_sourcejid(mixed source, mapping vars) { mixed t; unless (vars["_INTERNAL_source_jabber_bare"]) { vars["_INTERNAL_source_jabber_bare"] = mkjid(source, vars); P4(("determine_sourcejid: %O\n", vars["_INTERNAL_source_jabber_bare"])) } unless (vars["_INTERNAL_source_jabber"]) { // append the resource to the bare jid vars["_INTERNAL_source_jabber"] = vars["_INTERNAL_source_jabber_bare"]; if (vars["_nick_place"] && (t = vars["_nick_local"] || vars["_nick"])) { vars["_INTERNAL_source_jabber"] += "/" + RESOURCEPREP(t); } else if (vars["_INTERNAL_source_resource"]) vars["_INTERNAL_source_jabber"] += "/" + RESOURCEPREP(vars["_INTERNAL_source_resource"]); } } void determine_targetjid(mixed target, mapping vars) { string full; unless(vars["_INTERNAL_target_jabber_bare"]) { int d; full = mkjid(target, vars, 1); // f*** uni2unl logic if ((d = strstr(full, "/")) != -1) vars["_INTERNAL_target_jabber_bare"] = full[..(d-1)]; else vars["_INTERNAL_target_jabber_bare"] = full; P4(("determine_targetjid: %O\n", vars["_INTERNAL_target_jabber_bare"])) } unless (vars["_INTERNAL_target_jabber"]) { // append resource to the bare jid vars["_INTERNAL_target_jabber"] = vars["_INTERNAL_target_jabber_bare"]; if (strstr(full, "/") != -1) vars["_INTERNAL_target_jabber"] = full; // just to be sure else if (vars["_INTERNAL_target_resource"]) vars["_INTERNAL_target_jabber"] += "/" + vars["_INTERNAL_target_resource"]; } } internalError() { STREAM_ERROR("internal-server-error", "something gone wrong internally") remove_interactive(ME); } render(string mc, string data, mapping vars, mixed source) { string template, output; unless(vars["_tag"]) vars["_tag"] = ""; // dont display [_tag] template = T(mc, ""); if (!strlen(template) || template[0] != '<') { // generation of default psyc messages output = psyctext(template, vars, data, source); if (!stringp(output) || output=="") return P2(("jabber:w() inherited no output\n")); output = ""+ #ifdef NEW_LINE xmlquote(output) #else // was: chomp after xmlquote.. but why? xmlquote(chomp(output)) #endif +""; #if DEBUG > 1 // most of these message we are happy with, so we don't need this log log_file("XMPP_TODO", "%O %s %s\n", ME, mc, output); #endif } else { // hack for a special case where status update contains <, > // if this kind of problem recurrs, we should quote every // single damn variable if (vars["_description_presence"]) vars["_INTERNAL_XML_description_presence"] = xmlquote(vars["_description_presence"]); if (stringp(data)) data = xmlquote(data); else if (vars["_action"]) data = "/me " + xmlquote(vars["_action"]); output = psyctext(template, vars, data, source); if (!stringp(output) || output=="") return P2(("jabber:w() no output\n")); #if 0 if (strstr(output, "r00t") >= 0) { P0(("common:render(%O, %O, %O, %O) -> %O\n", mc, data, vars, source, output)) } #endif } #if __EFUN_DEFINED__(convert_charset) && SYSTEM_CHARSET != "UTF-8" if (catch(output = convert_charset(output, SYSTEM_CHARSET, "UTF-8"); nolog)) { sendmsg(source, "_failure_unsuccessful_conversion_charset", "Could not convert your message to UTF-8 for XMPP delivery.", vars); P1(("catch! iconv %O from %O in %O\n", output, SYSTEM_CHARSET, ME)) return 0; } #endif emit(output); return 1; } /* TODO: * it could be useful to have an error condition mapping (jep-0086) * to check both old-style and xmpp-style errors * at least two uses of that in gateway.c */ xmpp_error(node, xmpperror) { unless (mappingp(node)) { // psyced.org logs claim.. this does happen!? P0(("%O encountered funny xmpp_error %O %O\n", ME, node, xmpperror)) return 1; } if (node["/" + xmpperror]) return 1; // shared_memory()? doesn't matter, switch is fine too. not worth changing switch(xmpperror) { case "bad-request": return node["@code"] == "400"; case "conflict": return node["@code"] == "409"; case "feature-not-implemented": return node["@code"] == "501"; case "forbidden": return node["@code"] == "403"; case "gone": return node["@code"] == "302"; case "internal-server-error": return node["@code"] == "500"; case "item-not-found": return node["@code"] == "404"; case "jid-malformed": return node["@code"] == "400"; case "not-acceptable": return node["@code"] == "406"; case "not-allowed": return node["@code"] == "405"; case "not-authorized": return node["@code"] == "401"; case "payment-required": return node["@code"] == "402"; case "recipient-unavailable": return node["@code"] == "404"; case "redirect": return node["@code"] == "302"; case "registration-required": return node["@code"] == "407"; case "remote-server-not-found": return node["@code"] == "404"; case "remote-server-timeout": return node["@code"] == "504"; case "resource-constraint": return node["@code"] == "500"; case "service-unavailable": return node["@code"] == "503"; case "subscription-required": return node["@code"] == "407"; case "undefined-condition": return node["@code"] == "500"; case "unexpected-request": return node["@code"] == "400"; } return 0; } // deprecated - use tls_check_service_identity from library/tls.c instead // is this being used at all? -- no longer, but keep it around a little // for backward compat #ifdef WANT_S2S_TLS certificate_check_jabbername(name, cert) { mixed t; /* this does not support wildcards if there is more than one * id-on-xmppAddr/CN * API Note: name MUST be an utf8 string */ unless(name) return 0; name = NAMEPREP(name); unless(cert && mappingp(cert)) return 0; if ((t = cert["2.5.29.17:1.3.6.1.5.5.7.8.5"])) { // id-on-xmppAddr PT(("id-on-xmppAddr %O found\n", t)) # ifdef LOG_XMPP_AUTH D0( log_file("XMPP_AUTH", "\n%O try SASL external with id-on-xmppAddr", ME); ) # endif if (pointerp(t)) { if (member(t, name) != -1) return 1; foreach(string cn : t) { if (NAMEPREP(cn) == name) return 1; } } else if (name == NAMEPREP(t)) return 1; } if ((t = cert["2.5.29.17:dNSName"])) { // dNSName, wildcard allowed if (pointerp(t)) { foreach(string t2 : t) { if (strlen(t2) > 2 && t2[0] == '*' && t2[1] == '.') if trail(NAMEPREP(t2[2..]), name) return 1; if (name == NAMEPREP(t2)) return 1; } } else { if (strlen(t) > 2 && t[0] == '*' && t[1] == '.') { return trail(NAMEPREP(t[2..]), name); } if (name == NAMEPREP(t)) return 1; } } if ((t = cert["2.5.4.3"])) { // common name string idn; # ifdef LOG_XMPP_AUTH D0( log_file("XMPP_AUTH", "\n%O try SASL external with CN", ME); ) # endif if (pointerp(t)) { // does that happen?! if (member(t, name) != -1) return 1; foreach(string cn : t) { idn = NAMEPREP(idna_to_unicode(cn)); if (idn == name) return 1; } return 0; } #ifdef __IDNA__ idn = NAMEPREP(idna_to_unicode(t)); #else idn = NAMEPREP(t); #endif if (strlen(idn) > 2 && idn[0] == '*' && idn[1] == '.') return trail(idn[2..], name); if (idn == name) return 1; } return 0; } #endif /* get first child of a node used for * "first" is actually inaccurate, since there is no defined order in mappings, * so we select the child, that is not an error */ getiqchild(node) { mixed res; foreach(mixed key, mixed val : node) { unless(stringp(key) && key[0] == '/') continue; # if DEBUG > 1 if (res) { P0(("%O encountered iq get with more than one child!\n%O\n", ME, node)) } # endif if (node["@type"] != "error" && key != "error") { res = val; # if DEBUG < 2 break; # endif } } return res; } /* get child with specific xmlns */ getchild(node, child, ns) { foreach(mixed key, mixed val : node) { if (key == "/" + child) { if (nodelistp(val)) { foreach(mixed h : val) if (h["@xmlns"] == ns) return h; } else if (val["@xmlns"] == ns) { return val; } break; } } return 0; }