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

world/net/relay/user.c

@@ -0,0 +1,40 @@
+// $Id: user.c,v 1.3 2006/11/05 21:33:19 fippo Exp $
+//
+// <lynX> relay users serve the purpose of implementing all the features of
+// a PSYC/Jabber identity for users of an IRC network whose identities are
+// auth'd by a NickServ. you may of course use it for other types of
+// authenticated networks or systems. further integration between this and
+// the system in question are of course welcome to be implemented.
+//
+// right now this simply forwards messages. we soon have to add a way for
+// the owner of this to issue commands.
+//
+#include <net.h>
+#include <user.h>
+
+volatile object relay;
+
+qScheme() { return "relay"; }
+
+msg(source, mc, data, vars, showingLog, target) {
+	if (showingLog) return;
+	unless (relay) {
+		//relay = RELAY_OBJECT -> load();
+		relay = find_object(RELAY_OBJECT);
+		PT(("%O using relay %O\n", ME, relay))
+		unless (relay) return;	// we have a problem
+	}
+	PT(("%O relaying %O from %O\n", ME, mc, source))
+	//vars["_nick_target"] = MYNICK;
+	
+	/* we need to remember this for QUIT handling */
+	if (abbrev("_echo_place_enter", mc)) 
+	    unless (places[source]) 
+		places[source] = vars["_nick_place"];
+	relay->msg(source || previous_object(), mc, data, vars,
+		  showingLog, MYNICK); // we need mynick here for ircgate
+				      // instead of target
+	// we aren't calling ::msg() thus all user functions are ineffective
+	// as of now
+	return;
+}