let the past begone in cvs land. welcome to igit igit!

world/net/jabber/jabber.h

@@ -0,0 +1,111 @@
+// $Id: jabber.h,v 1.74 2008/03/30 10:27:49 lynx Exp $ // vim:syntax=lpc
+//
+// REMINDER:
+// there are plenty of calls to lower_case in the code, that is because
+// jabber requires all hostnames to be lowercased, or otherwise the
+// protocol won't work! TODO: optimize this
+//
+#ifndef _JABBER_H
+#define _JABBER_H
+
+#define	JABBER_TRANSPARENCY	// switching this off improves parser
+				// performance but kills file transfers
+
+#include <net.h>
+#include <xml.h>
+#include <sys/time.h>
+
+#if !__EFUN_DEFINED__(tls_available)
+# undef WANT_S2S_TLS
+#endif
+
+#ifndef NO_INHERIT
+// should this be virtual?
+virtual inherit JABBER_PATH "common";
+#endif
+
+#define COMBINE_CHARSET	XML_CHARSET
+//"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 </=\"'?.:@-"
+// combining > errors
+
+// eigentlich schon ein fall für textdb
+// siehe auch MISC/jabber/conference.fmt
+#define PLACE "place"
+
+#define XMPP	"xmpp:"
+
+#define IQ_OFF	"</query></iq>"
+
+#define NS_XMPP "urn:ietf:params:xml:ns:"
+
+#define IMPLODE_XML(list, tag) pointerp(list) ? tag + implode(list, "</" + tag[1..] + tag) + "</" + tag[1..] : tag[..<2] + "/>"
+
+#define JABBERTIME(gm) sprintf("%d%02d%02dT%02d:%02d:%02d", gm[TM_YEAR], gm[TM_MON] + 1, gm[TM_MDAY], gm[TM_HOUR], gm[TM_MIN], gm[TM_SEC])
+
+#define xbuddylist v("peoplegroups")
+
+// usage: STREAM_ERROR("system-shutdown", "bye!")
+// TODO: would be nice to see
+#define STREAM_ERROR(condition, textual) emit("<stream:error><" condition " "\
+	"xmlns='urn:ietf:params:xml:ns:xmpp-streams'/>"\
+	"<text xmlns='urn:ietf:params:xml:ns:xmpp-streams'>" +(textual)+ \
+	"</text></stream:error></stream:stream>");
+
+#define SASL_ERROR(condition) emit("<failure "\
+				   "xmlns='urn:ietf:params:xml:ns:xmpp-sasl'>"\
+				   "<" + condition + "/>"\
+				   "</failure>"\
+				   "</stream:stream>");
+#ifndef PREFERRED_HASH
+# define PREFERRED_HASH 1 // sha1 is usually available
+#endif
+#ifdef SYSTEM_SECRET
+# if __EFUN_DEFINED__(hmac)
+#  define DIALBACK_KEY(id, source, target) hmac(PREFERRED_HASH, hash(PREFERRED_HASH, SYSTEM_SECRET), target + " " + source + " " + id)
+# else
+#  define DIALBACK_KEY(id, source, target) sha1(sha1(SYSTEM_SECRET) + " " + target + " " + source + " " + id) 
+# endif
+#else
+  // ssotd is already a hash and therefore, the length is sufficient
+# if __EFUN_DEFINED__(hmac)
+#  define DIALBACK_KEY(id, source, target) hmac(PREFERRED_HASH, server_secret_of_the_day(), target + " " + source + " " + id)
+# else 
+#  define DIALBACK_KEY(id, source, target) sha1(server_secret_of_the_day() + " " + target + " " + source + " " + id)
+# endif
+#endif
+
+#ifndef JABBER_HOST
+# define JABBER_HOST SERVER_HOST
+#endif
+
+// this is not ready for is_localhost
+#define is_localhost(a) (a) == JABBER_HOST
+
+
+#define JABSOURCE "_INTERNAL_source_jabber"
+#define JABTARGET "_INTERNAL_target_jabber"
+
+#define JID_HAS_RESOURCE(x) (index(x, '/') != -1)
+#define JID_HAS_NODE(x) apply(jid_has_node_cl, x)
+
+#ifdef _flag_provide_places_only
+# define PLACEPREFIX ""
+# define ISPLACEMSG(x) 1
+# define FIND_OBJECT(x) find_place(x) 
+# define PREFIXFREE(x) (x)
+#else
+// changing the place prefix requires changing it also in the output of
+// uniforms. depending on the character you choose you may also have to
+// implement URI (un)escaping first.
+# define PLACEPREFIX "*"
+# define FIND_OBJECT(x) (x[0] == '*' ? find_place(x[1..]) : summon_person(x) )
+# define ISPLACEMSG(x) (x && x[0] == '*')
+# define PREFIXFREE(x) (x[1..])
+#endif
+
+// using channels is funny.. but xmpp: doesn't define channels really.
+// isn't it fine if we just use xmpp: resources in _context to achieve this?
+//efine MUCSUC_SEP "#_"
+#define MUCSUC_SEP "/"
+
+#endif // _JABBER_H