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

world/net/jabber/disco.c

@@ -0,0 +1,160 @@
+// $Id: disco.c,v 1.41 2008/01/05 13:44:38 lynx Exp $ // vim:syntax=lpc
+//
+// this gets included by user.c and gateway.c. you can distinguish this
+// by ifdeffing USER_PROGRAM. it may be renamed into disco.i one day.
+//
+//#include <net.h>
+//#include "jabber.h"
+
+#ifdef USER_PROGRAM
+# define SEND(TARGET, MC, DATA, VARS, SOURCE) w(MC, DATA, VARS, SOURCE)
+#else
+# define SEND(TARGET, MC, DATA, VARS, SOURCE) sendmsg(TARGET, MC, DATA, VARS, SOURCE)
+#endif
+
+/* the WHOLE disco stuff in here should be solved by psycig 
+ * messages instead of dirty call_other
+ */
+disco_info_root(vars) {
+    string featurelist;
+    featurelist = "<feature var='http://jabber.org/protocol/muc'/>"
+#ifndef REGISTERED_USERS_ONLY
+		"<feature var='jabber:iq:register'/>"
+#endif
+#ifndef VOLATILE
+		"<feature var='msgoffline'/>"
+#endif
+#ifndef ERQ_WITHOUT_SRV
+		"<feature var='dnssrv'/>"
+#endif
+#ifdef __IDNA__
+		"<feature var='stringprep'/>"
+#endif
+#ifdef WANT_S2S_SASL
+		"<feature var='" NS_XMPP "xmpp-sasl#s2s'/>"
+#endif
+		"<feature var='jabber:iq:last'/>"
+		"<feature var='jabber:iq:version'/>"
+		"<feature var='jabber:iq:time'/>"
+		"<feature var='vcard-temp'/>"
+		"<feature var='" NS_XMPP "xmpp-sasl#c2s'/>";
+#if __EFUN_DEFINED__(tls_available)
+    if (tls_available()) {
+	featurelist += "<feature var='" NS_XMPP "xmpp-tls#c2s'/>"
+		"<feature var='" NS_XMPP "xmpp-tls#s2s'/>";
+#if HAS_PORT(JABBERS_PORT, JABBER_PATH)
+	featurelist += "<feature var='sslc2s'/>";
+#endif
+    }
+#endif
+    vars["_list_features"] = featurelist;
+}
+
+disco_info_place(name, vars) {
+    vars["_nick_place"] = name;
+    vars["_list_features"] = "<feature var='http://jabber.org/protocol/muc'/>";
+    // potential features are listed on jabber.org/registrar/disco-features.htm
+    // useful for us:
+    // muc_membersonly, muc_nonanonymous, muc_open,
+    // muc_persistent, muc_public, muc_temporary,
+    // muc_unmoderated, 
+    // muc_unsecure (does not have a password!)
+    // we should query the room about these
+    // object o = find_place(name);
+}
+
+disco_info_person(name, vars) {
+    string featurelist;
+
+    /* we could query the user for certain information... */
+    vars["_nick"] = name; // publicname?
+
+    featurelist = "<feature var='vcard-temp'/>"
+	    // http://www.jabber.org/jeps/jep-0096.html -- File Transfer
+	    // is handled by the new iq innerxml trick. probably more
+	    // JEPs can be implemented this way. some may actually already
+	    // work now and we only need to add their <feature> here
+	    // I am not sure if the server should answer here...
+	    // this probably needs to be done by the jabber client
+	    // (which can receive disco's also)
+// how should oob() ever get to do its work if it doesn't say oob here?
+// oob is proxied to client
+#if 0
+	    "<feature var='jabber:iq:oob'/>"
+	    "<feature var='jabber:x:oob'/>"
+#endif
+//	    "<feature var='http://jabber.org/protocol/si/profile/file-transfer'/>"
+	    ;
+    vars["_list_features"] = featurelist;
+}
+
+disco_items_root(vars) {
+    // TODO: 
+    // here we should use the list of chatrooms from
+    // CONFIG_PATH "places.h"
+#ifdef PUBLIC_PLACES
+    // see also: library advertised_places()
+#endif
+    // TODO: is it safe to use JABBER_HOST here?
+    vars["_list_item"] = "<item name='Chatrooms' jid='" JABBER_HOST "'/>";
+}
+
+disco_items_place(name, vars) {
+    // unused currently
+    vars["_list_item"] = "";
+}
+
+disco_items_person(name, vars) {
+    // possibly used in that pubsub thingie
+    vars["_list_item"] = "";
+}
+
+#if 0 // you loose if you dont use transparency :-)
+// http://www.jabber.org/jeps/jep-0066.html -- Out of Band Data
+//
+// der job ist es den mist durchzureichen, leider auch nicht trivial
+// this might work, haven't used a client who uses it. the templates
+// to render it back into jabber aren't done yet.
+oob(XMLNode node, mapping vars) {
+	string source, target;
+	mixed *u;
+
+	unless (vars) vars = ([ ]);
+	vars["_INTERNAL_target_jabber"] = target = node["@to"];
+	vars["_INTERNAL_source_jabber"] = source = node["@from"];
+	vars["_nick"] = source; // too lazy to parse now
+
+	if (node["/query"]) {
+		vars["_uniform"] = node["/query"]["@url"];
+		vars["_description"] = node["/query"]["@desc"];
+	}
+	switch(node["@type"]) {
+	case "set":
+		SEND(XMPP + target, "_notice_available_uniform",
+		     "[_nick] points you to [_uniform]: [_description].",
+		    vars, XMPP + source);
+		break;
+	case "result":
+		// jabber only provides the iq-id here. no filenames.
+		SEND(XMPP + target, "_notice_accepted",
+		    "[_nick] has accepted something.",
+		    vars, XMPP + source);
+		break;
+	case "error":
+		switch(node["/error"]["@type"]) {
+		case "cancel":
+			SEND(XMPP + target,
+			     "_error_rejected_delivery_uniform",
+			    "[_nick] has not accepted [_uniform].",
+			    vars, XMPP + source);
+			break;
+		default:
+			SEND(XMPP + target,
+			     "_failure_unsuccessful_delivery_uniform",
+			    "[_nick] has not received [_uniform].",
+			    vars, XMPP + source);
+		}
+		break;
+	}
+}
+#endif