mirror of
git://git.psyced.org/git/psyced
synced 2024-08-15 03:25:10 +00:00
let the past begone in cvs land. welcome to igit igit!
This commit is contained in:
PSYC
commit
4e601cf1c7
509 changed files with 77963 additions and 0 deletions
475
world/net/jabber/common.c
Normal file
475
world/net/jabber/common.c
Normal file
|
|
@ -0,0 +1,475 @@
|
|||
// $Id: common.c,v 1.270 2008/04/11 10:27:24 fippo Exp $ // vim:syntax=lpc:ts=8
|
||||
#define NO_INHERIT
|
||||
#include "jabber.h"
|
||||
#undef NO_INHERIT
|
||||
#include <net.h>
|
||||
|
||||
#include <text.h>
|
||||
//virtual inherit NET_PATH "output";
|
||||
#include <url.h>
|
||||
|
||||
#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 <sys/regexp.h>
|
||||
# endif
|
||||
#endif
|
||||
|
||||
jabberMsg();
|
||||
|
||||
inherit NET_PATH "xml/common";
|
||||
|
||||
volatile string buffer = "";
|
||||
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{10FFFFFF}]+", "*", 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
|
||||
D0( 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 = JABBER_HOST;
|
||||
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[UResource][1..]) + "@" + 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 = "<message to='"+ vars["_INTERNAL_target_jabber"]
|
||||
+"' from='"+ vars["_INTERNAL_source_jabber"] +"' type='"
|
||||
+ (ISPLACEMSG(vars["_INTERNAL_source_jabber"]) && vars["_nick"] ?
|
||||
"groupchat" : "chat")
|
||||
+"'><body>"+ chomp(xmlquote(output)) +"</body></message>";
|
||||
#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 {
|
||||
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 __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;
|
||||
}
|
||||
|
||||
#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
|
||||
*/
|
||||
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)) return 1;
|
||||
foreach(string cn : t) {
|
||||
if (NAMEPREP(cn) == name) return 1;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
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)) 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 <iq/>
|
||||
*/
|
||||
getfirstchild(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;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue