From 36df1aac32d6530fdaec7fcaa5f80c8d48599aba Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Sun, 12 Oct 2008 17:38:17 +0500
Subject: Documented the roster object's structure

---
 doc/roster_format.txt | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 doc/roster_format.txt

diff --git a/doc/roster_format.txt b/doc/roster_format.txt
new file mode 100644
index 00000000..9094b5a1
--- /dev/null
+++ b/doc/roster_format.txt
@@ -0,0 +1,18 @@
+
+This file documents the structure of the roster object.
+
+table roster {
+  [string bare_jid] = roster_item
+}
+
+table roster_item {
+  string subscription = "none" | "to" | "from" | "both"
+  string name = Opaque string set by client. (optional)
+  set groups = a set of opaque strings set by the client
+}
+
+The roster is available as
+ hosts[host].sessions[username].roster
+and a copy is made to session.roster for all sessions.
+
+All modifications to a roster should be done through the rostermanager.
-- 
cgit v1.2.3


From 957fe047e2da04dd1fc05aacaa119d4ae1944e39 Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Sun, 12 Oct 2008 17:40:03 +0500
Subject: Added some roster management functions

---
 core/rostermanager.lua  | 32 ++++++++++++++++++++++++++++++--
 core/sessionmanager.lua |  4 ++--
 2 files changed, 32 insertions(+), 4 deletions(-)

diff --git a/core/rostermanager.lua b/core/rostermanager.lua
index 5f06a308..1097e327 100644
--- a/core/rostermanager.lua
+++ b/core/rostermanager.lua
@@ -14,7 +14,7 @@ local datamanager = datamanager;
 
 module "rostermanager"
 
-function getroster(username, host)
+--[[function getroster(username, host)
 	return { 
 			["mattj@localhost"] = true,
 			["tobias@getjabber.ath.cx"] = true,
@@ -22,7 +22,35 @@ function getroster(username, host)
 			["thorns@getjabber.ath.cx"] = true, 
 			["idw@getjabber.ath.cx"] = true, 
 		}
---	return datamanager.load(username, host, "roster") or {};
+	--return datamanager.load(username, host, "roster") or {};
+end]]
+
+function add_to_roster(roster, jid, item)
+	roster[jid] = item;
+	-- TODO implement
+end
+
+function remove_from_roster(roster, jid)
+	roster[jid] = nil;
+	-- TODO implement
+end
+
+function load_roster(host, username)
+	if hosts[host] and hosts[host].sessions[username] then
+		local roster = hosts[host].sessions[username].roster;
+		if not roster then
+			return hosts[host].sessions[username].roster = datamanger.load(username, host, "roster") or {};
+		end
+		return roster;
+	end
+	error("Attempt to load roster for non-loaded user"); --return nil;
+end
+
+function save_roster(host, username)
+	if hosts[host] and hosts[host].sessions[username] and hosts[host].sessions[username].roster then
+		return datamanager.save(username, host, "roster", hosts[host].sessions[username].roster);
+	end
+	return nil;
 end
 
 return _M;
\ No newline at end of file
diff --git a/core/sessionmanager.lua b/core/sessionmanager.lua
index 4f8b1913..c216b8da 100644
--- a/core/sessionmanager.lua
+++ b/core/sessionmanager.lua
@@ -12,7 +12,7 @@ local modulemanager = require "core.modulemanager";
 local log = require "util.logger".init("sessionmanager");
 local error = error;
 local uuid_generate = require "util.uuid".uuid_generate;
-local rm_getroster = require "core.rostermanager".getroster
+local rm_load_roster = require "core.rostermanager".load_roster;
 
 local newproxy = newproxy;
 local getmetatable = getmetatable;
@@ -92,7 +92,7 @@ function bind_resource(session, resource)
 	session.full_jid = session.username .. '@' .. session.host .. '/' .. resource;
 	hosts[session.host].sessions[session.username].sessions[resource] = session;
 	
-	session.roster = rm_getroster(session.username, session.host);
+	session.roster = rm_load_roster(session.username, session.host);
 	
 	return true;
 end
-- 
cgit v1.2.3


From bbff39858de6bb4c7c2714c658856e9d7b32dd6f Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Sun, 12 Oct 2008 17:41:14 +0500
Subject: Fixed: mod_roster now outputs all roster data (instead of just the
 JIDs)

---
 plugins/mod_roster.lua | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/plugins/mod_roster.lua b/plugins/mod_roster.lua
index 962c6c70..6d981761 100644
--- a/plugins/mod_roster.lua
+++ b/plugins/mod_roster.lua
@@ -8,7 +8,15 @@ add_iq_handler("c2s", "jabber:iq:roster",
 				local roster = st.reply(stanza)
 							:query("jabber:iq:roster");
 				for jid in pairs(session.roster) do
-					roster:tag("item", { jid = jid, subscription = "none" }):up();
+					local item = st.stanza("item", {
+						jid = jid,
+						subscription = session.roster[jid].subscription,
+						name = session.roster[jid].name,
+					});
+					for group in pairs(session.roster[jid].groups) do
+						item:tag("group"):text(group):up();
+					end
+					roster:add_child(item);
 				end
 				send(session, roster);
 				return true;
-- 
cgit v1.2.3


From 1cdd0be85d25c04e7e634f683f96206d808a3e7b Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Tue, 14 Oct 2008 07:20:29 +0500
Subject: Fixed: Typos caused by lack of sleep. Learned: Lua variable
 assignments are not expressions.

---
 core/rostermanager.lua | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/core/rostermanager.lua b/core/rostermanager.lua
index 1097e327..e16525da 100644
--- a/core/rostermanager.lua
+++ b/core/rostermanager.lua
@@ -8,6 +8,8 @@ local setmetatable = setmetatable;
 local format = string.format;
 local loadfile, setfenv, pcall = loadfile, setfenv, pcall;
 
+local hosts = hosts;
+
 require "util.datamanager"
 
 local datamanager = datamanager;
@@ -35,18 +37,19 @@ function remove_from_roster(roster, jid)
 	-- TODO implement
 end
 
-function load_roster(host, username)
+function load_roster(username, host)
 	if hosts[host] and hosts[host].sessions[username] then
 		local roster = hosts[host].sessions[username].roster;
 		if not roster then
-			return hosts[host].sessions[username].roster = datamanger.load(username, host, "roster") or {};
+			roster = datamanager.load(username, host, "roster") or {};
+			hosts[host].sessions[username].roster = roster;
 		end
 		return roster;
 	end
 	error("Attempt to load roster for non-loaded user"); --return nil;
 end
 
-function save_roster(host, username)
+function save_roster(username, host)
 	if hosts[host] and hosts[host].sessions[username] and hosts[host].sessions[username].roster then
 		return datamanager.save(username, host, "roster", hosts[host].sessions[username].roster);
 	end
-- 
cgit v1.2.3


From a3e21e6d576ecfd2b348a39fb1ebc4c8723b9315 Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Tue, 14 Oct 2008 09:54:49 +0500
Subject: Fixed: util/jid.lua now returns module object

---
 util/jid.lua | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/util/jid.lua b/util/jid.lua
index 28dd1a92..784d2b64 100644
--- a/util/jid.lua
+++ b/util/jid.lua
@@ -10,3 +10,5 @@ function split(jid)
 	local resource = match(jid, "/(.+)$");
 	return node, server, resource;
 end
+
+return _M;
\ No newline at end of file
-- 
cgit v1.2.3


From 97f1c951bccbc080d45336d3e7fdf50a0b6eca14 Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Tue, 14 Oct 2008 09:56:14 +0500
Subject: Removed an unnecessary line

---
 core/stanza_router.lua | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/core/stanza_router.lua b/core/stanza_router.lua
index e6085595..7fa18eb0 100644
--- a/core/stanza_router.lua
+++ b/core/stanza_router.lua
@@ -10,8 +10,7 @@ local log = require "util.logger".init("stanzarouter")
 local st = require "util.stanza";
 local send = require "core.sessionmanager".send_to_session;
 
-require "util.jid"
-local jid_split = jid.split;
+local jid_split = require "util.jid".split;
 
 function core_process_stanza(origin, stanza)
 	log("debug", "Received: "..tostring(stanza))
-- 
cgit v1.2.3


From 5a896f70f20cf967c120054a0ebab0a8e4368c4b Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Tue, 14 Oct 2008 10:26:33 +0500
Subject: Added: presence broadcast Added: some additional message broadcast
 checks

---
 core/stanza_router.lua | 30 +++++++++++++++++++++++-------
 1 file changed, 23 insertions(+), 7 deletions(-)

diff --git a/core/stanza_router.lua b/core/stanza_router.lua
index 7fa18eb0..f133f891 100644
--- a/core/stanza_router.lua
+++ b/core/stanza_router.lua
@@ -67,17 +67,33 @@ function core_route_stanza(origin, stanza)
 		local user = host_session.sessions[node];
 		if user then
 			local res = user.sessions[resource];
-			-- TODO do something about presence broadcast
 			if not res then
 				-- if we get here, resource was not specified or was unavailable
-				for k in pairs(user.sessions) do
-					res = user.sessions[k];
-					break;
+				if stanza.name == "presence" then
+					for k in pairs(user.sessions) do -- presence broadcast to all user resources
+						if user.sessions[k].full_jid then
+							stanza.attr.to = user.sessions[k].full_jid;
+							send(user.sessions[k], stanza);
+						end
+					end
+				else if stanza.name == "message" then -- select a resource to recieve message
+					for k in pairs(user.sessions) do
+						if user.sessions[k].full_jid then
+							res = user.sessions[k];
+							break;
+						end
+					end
+					-- TODO find resource with greatest priority
+				else
+					error("IQs should't get here");
 				end
-				-- TODO find resource with greatest priority
 			end
-			stanza.attr.to = res.full_jid;
-			send(res, stanza); -- Yay \o/
+			if res then
+				stanza.attr.to = res.full_jid;
+				send(res, stanza); -- Yay \o/
+			elseif stanza.name == "message" then
+				-- TODO return message error
+			end
 		else
 			-- user not found
 			send(origin, st.error_reply(stanza, "cancel", "service-unavailable"));
-- 
cgit v1.2.3


From e3aaced40d124c0163e0fe9761602dcddd32a646 Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Fri, 17 Oct 2008 22:19:26 +0500
Subject: Added: Roster manipulation functions to core.rostermanager

---
 core/rostermanager.lua | 61 ++++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 54 insertions(+), 7 deletions(-)

diff --git a/core/rostermanager.lua b/core/rostermanager.lua
index e16525da..143fdf7d 100644
--- a/core/rostermanager.lua
+++ b/core/rostermanager.lua
@@ -13,6 +13,8 @@ local hosts = hosts;
 require "util.datamanager"
 
 local datamanager = datamanager;
+local st = require "util.stanza";
+local send = require "core.sessionmanager".send_to_session;
 
 module "rostermanager"
 
@@ -27,14 +29,59 @@ module "rostermanager"
 	--return datamanager.load(username, host, "roster") or {};
 end]]
 
-function add_to_roster(roster, jid, item)
-	roster[jid] = item;
-	-- TODO implement
+function add_to_roster(session, jid, item)
+	if session.roster then
+		local old_item = session.roster[jid];
+		session.roster[jid] = item;
+		if save_roster(session.username, session.host) then
+			return true;
+		else
+			session.roster[jid] = old_item;
+			return nil, "wait", "internal-server-error", "Unable to save roster";
+		end
+	else
+		return nil, "auth", "not-authorized", "Session's roster not loaded";
+	end
+end
+
+function remove_from_roster(session, jid)
+	if session.roster then
+		local old_item = session.roster[jid];
+		session.roster[jid] = nil;
+		if save_roster(session.username, session.host) then
+			return true;
+		else
+			session.roster[jid] = old_item;
+			return nil, "wait", "internal-server-error", "Unable to save roster";
+		end
+	else
+		return nil, "auth", "not-authorized", "Session's roster not loaded";
+	end
 end
 
-function remove_from_roster(roster, jid)
-	roster[jid] = nil;
-	-- TODO implement
+function roster_push(username, host, jid)
+	if hosts[host] and hosts[host].sessions[username] and hosts[host].sessions[username].roster then
+		local item = hosts[host].sessions[username].roster[jid];
+		local stanza = st.iq({type="set"});
+		stanza:tag("query", {xmlns = "jabber:iq:roster"});
+		if item then
+			stanza:tag("item", {jid = jid, subscription = item.subscription, name = item.name});
+		else
+			stanza:tag("item", {jid = jid, subscription = "remove"});
+		end
+		for group in item.groups do
+			stanza:tag("group"):text(group):up();
+		end
+		stanza:up();
+		stanza:up();
+		-- stanza ready
+		for _, session in ipairs(hosts[host].sessions[username].sessions) do
+			if session.full_jid then
+				-- FIXME do we need to set stanza.attr.to?
+				send(session, stanza);
+			end
+		end
+	end
 end
 
 function load_roster(username, host)
@@ -46,7 +93,7 @@ function load_roster(username, host)
 		end
 		return roster;
 	end
-	error("Attempt to load roster for non-loaded user"); --return nil;
+	-- Attempt to load roster for non-loaded user
 end
 
 function save_roster(username, host)
-- 
cgit v1.2.3


From 7f7444f62b5c40d2ee9e1e4b10c9ccf0112f7fe6 Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Fri, 17 Oct 2008 22:20:03 +0500
Subject: Added: More complete implementation for mod_roster

---
 plugins/mod_roster.lua | 91 ++++++++++++++++++++++++++++++++++++++++++--------
 1 file changed, 77 insertions(+), 14 deletions(-)

diff --git a/plugins/mod_roster.lua b/plugins/mod_roster.lua
index 6d981761..f32efaa8 100644
--- a/plugins/mod_roster.lua
+++ b/plugins/mod_roster.lua
@@ -2,23 +2,86 @@
 local st = require "util.stanza"
 local send = require "core.sessionmanager".send_to_session
 
+local jid_split = require "util.jid".split;
+local t_concat = table.concat;
+
+local rm_remove_from_roster = require "core.rostermanager".remove_from_roster;
+local rm_roster_push = require "core.rostermanager".roster_push;
+
 add_iq_handler("c2s", "jabber:iq:roster", 
 		function (session, stanza)
-			if stanza.attr.type == "get" then
-				local roster = st.reply(stanza)
-							:query("jabber:iq:roster");
-				for jid in pairs(session.roster) do
-					local item = st.stanza("item", {
-						jid = jid,
-						subscription = session.roster[jid].subscription,
-						name = session.roster[jid].name,
-					});
-					for group in pairs(session.roster[jid].groups) do
-						item:tag("group"):text(group):up();
+			if stanza.tags[1].name == "query" then
+				if stanza.attr.type == "get" then
+					local roster = st.reply(stanza)
+								:query("jabber:iq:roster");
+					for jid in pairs(session.roster) do
+						local item = st.stanza("item", {
+							jid = jid,
+							subscription = session.roster[jid].subscription,
+							name = session.roster[jid].name,
+						});
+						for group in pairs(session.roster[jid].groups) do
+							item:tag("group"):text(group):up();
+						end
+						roster:add_child(item);
+					end
+					send(session, roster);
+					return true;
+				elseif stanza.attr.type == "set" then
+					local query = stanza.tags[1];
+					if #query.tags == 1 and query.tags[1].name == "item"
+							and query.tags[1].attr.xmlns == "jabber:iq:roster" and query.tags[1].attr.jid then
+						local item = query.tags[1];
+						local from_node, from_host = jid_split(stanza.attr.from);
+						local node, host, resource = jid_split(item.attr.jid);
+						if not resource then
+							if item.attr.jid ~= from_node.."@"..from_host then
+								if item.attr.subscription == "remove" then
+									if session.roster[item.attr.jid] then
+										local success, err_type, err_cond, err_msg = rm_remove_from_roster(session, item.attr.jid);
+										if success then
+											send(session, st.reply(stanza));
+											rm_roster_push(from_node, from_host, item.attr.jid);
+										else
+											send(session, st.error_reply(stanza, err_type, err_cond, err_msg));
+										end
+									else
+										send(session, st.error_reply(stanza, "modify", "item-not-found"));
+									end
+								else
+									local r_item = {name = item.attr.name, groups = {}};
+									if r_item.name == "" then r_item.name = nil; end
+									if session.roster[item.attr.jid] then
+										r_item.subscription = session.roster[item.attr.jid];
+									else
+										r_item.subscription = "none";
+									end
+									for _, child in ipairs(item) do	
+										if child.name == "group" then
+											local text = t_concat(child);
+											if text and text ~= "" then
+												r_item.groups[text] = true;
+											end
+										end
+									end
+									local success, err_type, err_cond, err_msg = rm_add_to_roster(session, item.attr.jid, r_item);
+									if success then
+										send(session, st.reply(stanza));
+										rm_roster_push(from_node, from_host, item.attr.jid);
+									else
+										send(session, st.error_reply(stanza, err_type, err_cond, err_msg));
+									end
+								end
+							else
+								send(session, st.error_reply(stanza, "cancel", "not-allowed"));
+							end
+						else
+							send(session, st.error_reply(stanza, "modify", "bad-request")); -- FIXME what's the correct error?
+						end
+					else
+						send(session, st.error_reply(stanza, "modify", "bad-request"));
 					end
-					roster:add_child(item);
+					return true;
 				end
-				send(session, roster);
-				return true;
 			end
 		end);
\ No newline at end of file
-- 
cgit v1.2.3


From 2a2956ef53942cb20ea53d0216dc6e9af6185e5c Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Wed, 22 Oct 2008 21:18:50 +0500
Subject: Minor edit, and added a TODO

---
 util/jid.lua | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/util/jid.lua b/util/jid.lua
index 784d2b64..b1e4131d 100644
--- a/util/jid.lua
+++ b/util/jid.lua
@@ -4,7 +4,8 @@ local match = string.match;
 module "jid"
 
 function split(jid)
-	if not jid then return nil; end
+	if not jid then return; end
+	-- TODO verify JID, and return; if invalid
 	local node = match(jid, "^([^@]+)@");
 	local server = (node and match(jid, ".-@([^@/]+)")) or match(jid, "^([^@/]+)");
 	local resource = match(jid, "/(.+)$");
-- 
cgit v1.2.3


From 9595202d474b7c2dd6654603cc81818b53682e87 Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Wed, 22 Oct 2008 21:20:07 +0500
Subject: Fixed: Roster support

---
 core/rostermanager.lua | 14 +++++++-------
 plugins/mod_roster.lua |  8 ++++----
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/core/rostermanager.lua b/core/rostermanager.lua
index 143fdf7d..c1fa3dea 100644
--- a/core/rostermanager.lua
+++ b/core/rostermanager.lua
@@ -7,6 +7,7 @@ end
 local setmetatable = setmetatable;
 local format = string.format;
 local loadfile, setfenv, pcall = loadfile, setfenv, pcall;
+local pairs, ipairs = pairs, ipairs;
 
 local hosts = hosts;
 
@@ -14,7 +15,6 @@ require "util.datamanager"
 
 local datamanager = datamanager;
 local st = require "util.stanza";
-local send = require "core.sessionmanager".send_to_session;
 
 module "rostermanager"
 
@@ -66,19 +66,19 @@ function roster_push(username, host, jid)
 		stanza:tag("query", {xmlns = "jabber:iq:roster"});
 		if item then
 			stanza:tag("item", {jid = jid, subscription = item.subscription, name = item.name});
+			for group in pairs(item.groups) do
+				stanza:tag("group"):text(group):up();
+			end
 		else
 			stanza:tag("item", {jid = jid, subscription = "remove"});
 		end
-		for group in item.groups do
-			stanza:tag("group"):text(group):up();
-		end
 		stanza:up();
 		stanza:up();
 		-- stanza ready
-		for _, session in ipairs(hosts[host].sessions[username].sessions) do
+		for _, session in pairs(hosts[host].sessions[username].sessions) do
 			if session.full_jid then
 				-- FIXME do we need to set stanza.attr.to?
-				send(session, stanza);
+				session.send(stanza);
 			end
 		end
 	end
@@ -98,7 +98,7 @@ end
 
 function save_roster(username, host)
 	if hosts[host] and hosts[host].sessions[username] and hosts[host].sessions[username].roster then
-		return datamanager.save(username, host, "roster", hosts[host].sessions[username].roster);
+		return datamanager.store(username, host, "roster", hosts[host].sessions[username].roster);
 	end
 	return nil;
 end
diff --git a/plugins/mod_roster.lua b/plugins/mod_roster.lua
index f32efaa8..8e2f6bbb 100644
--- a/plugins/mod_roster.lua
+++ b/plugins/mod_roster.lua
@@ -6,6 +6,7 @@ local jid_split = require "util.jid".split;
 local t_concat = table.concat;
 
 local rm_remove_from_roster = require "core.rostermanager".remove_from_roster;
+local rm_add_to_roster = require "core.rostermanager".add_to_roster;
 local rm_roster_push = require "core.rostermanager".roster_push;
 
 add_iq_handler("c2s", "jabber:iq:roster", 
@@ -15,15 +16,14 @@ add_iq_handler("c2s", "jabber:iq:roster",
 					local roster = st.reply(stanza)
 								:query("jabber:iq:roster");
 					for jid in pairs(session.roster) do
-						local item = st.stanza("item", {
+						roster:tag("item", {
 							jid = jid,
 							subscription = session.roster[jid].subscription,
 							name = session.roster[jid].name,
 						});
 						for group in pairs(session.roster[jid].groups) do
-							item:tag("group"):text(group):up();
+							roster:tag("group"):text(group):up();
 						end
-						roster:add_child(item);
 					end
 					send(session, roster);
 					return true;
@@ -52,7 +52,7 @@ add_iq_handler("c2s", "jabber:iq:roster",
 									local r_item = {name = item.attr.name, groups = {}};
 									if r_item.name == "" then r_item.name = nil; end
 									if session.roster[item.attr.jid] then
-										r_item.subscription = session.roster[item.attr.jid];
+										r_item.subscription = session.roster[item.attr.jid].subscription;
 									else
 										r_item.subscription = "none";
 									end
-- 
cgit v1.2.3


From dffccde8c2a3cfef6353400ecb15572022704a6e Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Wed, 22 Oct 2008 21:20:29 +0500
Subject: Fixed: Unhandled stanza handling

---
 core/servermanager.lua | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/core/servermanager.lua b/core/servermanager.lua
index c1e075db..aba3f5d5 100644
--- a/core/servermanager.lua
+++ b/core/servermanager.lua
@@ -10,11 +10,13 @@ function handle_stanza(origin, stanza)
 	-- Use plugins
 	if not modulemanager.handle_stanza(origin, stanza) then
 		if stanza.name == "iq" then
-			local reply = st.reply(stanza);
-			reply.attr.type = "error";
-			reply:tag("error", { type = "cancel" })
-				:tag("service-unavailable", { xmlns = xmlns_stanzas });
-			send(origin, reply);
+			if stanza.attr.type ~= "result" and stanza.attr.type ~= "error" then
+				send(origin, st.error_reply(stanza, "cancel", "service-unavailable"));
+			end
+		elseif stanza.name == "message" then
+			send(origin, st.error_reply(stanza, "cancel", "service-unavailable"));
+		elseif stanza.name ~= "presence" then
+			error("Unknown stanza");
 		end
 	end
 end
-- 
cgit v1.2.3


From fa8d0e13a39c58b4709a5644799337f7b1d6ba70 Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Wed, 22 Oct 2008 21:20:47 +0500
Subject: Added: TODO

---
 core/sessionmanager.lua | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/sessionmanager.lua b/core/sessionmanager.lua
index c216b8da..fc22d433 100644
--- a/core/sessionmanager.lua
+++ b/core/sessionmanager.lua
@@ -84,7 +84,7 @@ function bind_resource(session, resource)
 	else
 		if hosts[session.host].sessions[session.username].sessions[resource] then
 			-- Resource conflict
-			return false, "conflict";
+			return false, "conflict"; -- TODO kick old resource
 		end
 	end
 	
-- 
cgit v1.2.3


From 4bd562b3060e690522b35f0d1f806ddf4e559ebb Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Thu, 23 Oct 2008 00:46:38 +0500
Subject: Working presence, presence probes and other fixes

---
 core/stanza_router.lua | 128 +++++++++++++++++++++++++++++++++++++++++--------
 1 file changed, 109 insertions(+), 19 deletions(-)

diff --git a/core/stanza_router.lua b/core/stanza_router.lua
index f133f891..100239c6 100644
--- a/core/stanza_router.lua
+++ b/core/stanza_router.lua
@@ -9,14 +9,20 @@ local log = require "util.logger".init("stanzarouter")
 
 local st = require "util.stanza";
 local send = require "core.sessionmanager".send_to_session;
+local user_exists = require "core.usermanager".user_exists;
 
 local jid_split = require "util.jid".split;
+local print = print;
 
 function core_process_stanza(origin, stanza)
 	log("debug", "Received: "..tostring(stanza))
 	-- TODO verify validity of stanza (as well as JID validity)
 	if stanza.name == "iq" and not(#stanza.tags == 1 and stanza.tags[1].attr.xmlns) then
-		error("Invalid IQ");
+		if stanza.attr.type == "set" or stanza.attr.type == "get" then
+			error("Invalid IQ");
+		elseif #stanza.tags > 1 or not(stanza.attr.type == "error" or stanza.attr.type == "result") then
+			error("Invalid IQ");
+		end
 	end
 
 	if origin.type == "c2s" and not origin.full_jid
@@ -25,13 +31,50 @@ function core_process_stanza(origin, stanza)
 		error("Client MUST bind resource after auth");
 	end
 
-	
 	local to = stanza.attr.to;
-	stanza.attr.from = origin.full_jid -- quick fix to prevent impersonation
+	stanza.attr.from = origin.full_jid; -- quick fix to prevent impersonation (FIXME this would be incorrect when the origin is not c2s)
+	-- TODO also, stazas should be returned to their original state before the function ends
 	
-	if not to or (hosts[to] and hosts[to].type == "local") then
+	-- TODO presence subscriptions
+	if not to then
+		if stanza.name == "presence" and origin.roster then
+			if stanza.attr.type == nil or stanza.attr.type == "available" or stanza.attr.type == "unavailable" then
+				--stanza.attr.from = origin.full_jid;
+				for jid in pairs(origin.roster) do -- broadcast to all interested contacts
+					local subscription = origin.roster[jid].subscription;
+					if subscription == "both" or subscription == "from" then
+						stanza.attr.to = jid;
+						core_route_stanza(origin, stanza);
+					end
+				end
+				--[[local node, host = jid_split(stanza.attr.from);
+				for _, res in pairs(hosts[host].sessions[node].sessions) do -- broadcast to all resources
+					if res.full_jid then
+						res = user.sessions[k];
+						break;
+					end
+				end]]
+				if not origin.presence then -- presence probes on initial presence
+					local probe = st.presence({from = origin.full_jid, type = "probe"});
+					for jid in pairs(origin.roster) do
+						local subscription = origin.roster[jid].subscription;
+						if subscription == "both" or subscription == "to" then
+							probe.attr.to = jid;
+							core_route_stanza(origin, probe);
+						end
+					end
+				end
+				origin.presence = stanza;
+				stanza.attr.to = nil; -- reset it
+			else
+				-- TODO error, bad type
+			end
+		else
+			core_handle_stanza(origin, stanza);
+		end
+	elseif hosts[to] and hosts[to].type == "local" then
 		core_handle_stanza(origin, stanza);
-	elseif to and stanza.name == "iq" and not select(3, jid_split(to)) then
+	elseif stanza.name == "iq" and not select(3, jid_split(to)) then
 		core_handle_stanza(origin, stanza);
 	elseif origin.type == "c2s" then
 		core_route_stanza(origin, stanza);
@@ -42,7 +85,6 @@ function core_handle_stanza(origin, stanza)
 	-- Handlers
 	if origin.type == "c2s" or origin.type == "c2s_unauthed" then
 		local session = origin;
-		stanza.attr.from = session.full_jid;
 		
 		log("debug", "Routing stanza");
 		-- Stanza has no to attribute
@@ -55,12 +97,22 @@ function core_handle_stanza(origin, stanza)
 	end
 end
 
+function is_authorized_to_see_presence(origin, username, host)
+	local roster = datamanager.load(username, host, "roster") or {};
+	local item = roster[origin.username.."@"..origin.host];
+	return item and (item.subscription == "both" or item.subscription == "from");
+end
+
 function core_route_stanza(origin, stanza)
 	-- Hooks
 	--- ...later
 	
 	-- Deliver
-	local node, host, resource = jid_split(stanza.attr.to);
+	local to = stanza.attr.to;
+	local node, host, resource = jid_split(to);
+
+	if stanza.name == "presence" and stanza.attr.type == "probe" then resource = nil; end
+
 	local host_session = hosts[host]
 	if host_session and host_session.type == "local" then
 		-- Local host
@@ -70,13 +122,30 @@ function core_route_stanza(origin, stanza)
 			if not res then
 				-- if we get here, resource was not specified or was unavailable
 				if stanza.name == "presence" then
-					for k in pairs(user.sessions) do -- presence broadcast to all user resources
-						if user.sessions[k].full_jid then
-							stanza.attr.to = user.sessions[k].full_jid;
-							send(user.sessions[k], stanza);
+					if stanza.attr.type == "probe" then
+						if is_authorized_to_see_presence(origin, node, host) then
+							for k in pairs(user.sessions) do -- return presence for all resources
+								if user.sessions[k].presence then
+									local pres = user.sessions[k].presence;
+									pres.attr.to = origin.full_jid;
+									pres.attr.from = user.sessions[k].full_jid;
+									send(origin, pres);
+									pres.attr.to = nil;
+									pres.attr.from = nil;
+								end
+							end
+						else
+							send(origin, st.presence({from = user.."@"..host, to = origin.username.."@"..origin.host, type = "unsubscribed"}));
+						end
+					else
+						for k in pairs(user.sessions) do -- presence broadcast to all user resources
+							if user.sessions[k].full_jid then
+								stanza.attr.to = user.sessions[k].full_jid;
+								send(user.sessions[k], stanza);
+							end
 						end
 					end
-				else if stanza.name == "message" then -- select a resource to recieve message
+				elseif stanza.name == "message" then -- select a resource to recieve message
 					for k in pairs(user.sessions) do
 						if user.sessions[k].full_jid then
 							res = user.sessions[k];
@@ -84,19 +153,39 @@ function core_route_stanza(origin, stanza)
 						end
 					end
 					-- TODO find resource with greatest priority
+					send(res, stanza);
 				else
-					error("IQs should't get here");
+					-- TODO send IQ error
 				end
-			end
-			if res then
+			else
 				stanza.attr.to = res.full_jid;
 				send(res, stanza); -- Yay \o/
-			elseif stanza.name == "message" then
-				-- TODO return message error
 			end
 		else
-			-- user not found
-			send(origin, st.error_reply(stanza, "cancel", "service-unavailable"));
+			-- user not online
+			if user_exists(node, host) then
+				if stanza.name == "presence" then
+					if stanza.attr.type == "probe" and is_authorized_to_see_presence(origin, node, host) then -- FIXME what to do for not c2s?
+						-- TODO send last recieved unavailable presence
+					else
+						-- TODO send unavailable presence
+					end
+				elseif stanza.name == "message" then
+					-- TODO send message error, or store offline messages
+				elseif stanza.name == "iq" then
+					-- TODO send IQ error
+				end
+			else -- user does not exist
+				-- TODO we would get here for nodeless JIDs too. Do something fun maybe? Echo service? Let plugins use xmpp:server/resource addresses?
+				if stanza.name == "presence" then
+					if stanza.attr.type == "probe" then
+						send(origin, st.presence({from = user.."@"..host, to = origin.username.."@"..origin.host, type = "unsubscribed"}));
+					end
+					-- else ignore
+				else
+					send(origin, st.error_reply(stanza, "cancel", "service-unavailable"));
+				end
+			end
 		end
 	else
 		-- Remote host
@@ -106,6 +195,7 @@ function core_route_stanza(origin, stanza)
 			-- Need to establish the connection
 		end
 	end
+	stanza.attr.to = to; -- reset
 end
 
 function handle_stanza_nodest(stanza)
-- 
cgit v1.2.3


From 6701f399ad2e7aa07683d5612dd7e32635fdcee3 Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Thu, 23 Oct 2008 02:11:27 +0500
Subject: Added session property for interested resources

---
 core/rostermanager.lua | 2 +-
 plugins/mod_roster.lua | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/core/rostermanager.lua b/core/rostermanager.lua
index c1fa3dea..26a14256 100644
--- a/core/rostermanager.lua
+++ b/core/rostermanager.lua
@@ -76,7 +76,7 @@ function roster_push(username, host, jid)
 		stanza:up();
 		-- stanza ready
 		for _, session in pairs(hosts[host].sessions[username].sessions) do
-			if session.full_jid then
+			if session.interested then
 				-- FIXME do we need to set stanza.attr.to?
 				session.send(stanza);
 			end
diff --git a/plugins/mod_roster.lua b/plugins/mod_roster.lua
index 8e2f6bbb..8a20f76d 100644
--- a/plugins/mod_roster.lua
+++ b/plugins/mod_roster.lua
@@ -26,6 +26,7 @@ add_iq_handler("c2s", "jabber:iq:roster",
 						end
 					end
 					send(session, roster);
+					session.interested = true; -- resource is interested in roster updates
 					return true;
 				elseif stanza.attr.type == "set" then
 					local query = stanza.tags[1];
-- 
cgit v1.2.3


From aa212bcf2424521485e02110da93fd84bef743f7 Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Thu, 23 Oct 2008 02:11:48 +0500
Subject: Updated session documentation

---
 doc/session.txt | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/doc/session.txt b/doc/session.txt
index 82fe5ce4..389fb87c 100644
--- a/doc/session.txt
+++ b/doc/session.txt
@@ -14,8 +14,14 @@ session {
 	resource -- the resource part of the client's full jid (not defined before resource binding)
 	full_jid -- convenience for the above 3 as string in username@host/resource form (not defined before resource binding)
 	priority -- the resource priority, default: 0 (not defined before initial presence)
+	presence -- the last non-directed presence. initially nil.
+	interested -- true if the resource requested the roster. Interested resources recieve roster updates. Initially nil.
 	
 	-- methods --
 	send(x) -- converts x to a string, and writes it to the connection
 	disconnect(x) -- Disconnect the user and clean up the session, best call sessionmanager.destroy_session() instead of this in most cases
 }
+
+A session is a "connected resource"
+if session.presence then this is an "available resource"
+if session.interested then this is an "interested resource"
-- 
cgit v1.2.3


From 9bcfe122c05a7082b83e8b0aa002c936e5b0ec8c Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Thu, 23 Oct 2008 02:19:26 +0500
Subject: Updated and fixed session documentation

---
 doc/session.txt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/doc/session.txt b/doc/session.txt
index 389fb87c..e475e45b 100644
--- a/doc/session.txt
+++ b/doc/session.txt
@@ -16,12 +16,13 @@ session {
 	priority -- the resource priority, default: 0 (not defined before initial presence)
 	presence -- the last non-directed presence. initially nil.
 	interested -- true if the resource requested the roster. Interested resources recieve roster updates. Initially nil.
+	roster -- the user's roster. Loaded as soon as the resource is bound (session becomes a connected resource).
 	
 	-- methods --
 	send(x) -- converts x to a string, and writes it to the connection
 	disconnect(x) -- Disconnect the user and clean up the session, best call sessionmanager.destroy_session() instead of this in most cases
 }
 
-A session is a "connected resource"
+if session.full_jid (also session.roster and session.resource) then this is a "connected resource"
 if session.presence then this is an "available resource"
 if session.interested then this is an "interested resource"
-- 
cgit v1.2.3


From c3ca55e0195d03c3e0c23590c387c49068be7723 Mon Sep 17 00:00:00 2001
From: Waqas Hussain <waqas20@gmail.com>
Date: Thu, 23 Oct 2008 02:49:43 +0500
Subject: Fixed: datamanager.store and datamanager.load could crash when
 username or host arguments were nil. (useful for server specific and global
 data).

---
 util/datamanager.lua | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/util/datamanager.lua b/util/datamanager.lua
index 1deb6b3d..f4ae958c 100644
--- a/util/datamanager.lua
+++ b/util/datamanager.lua
@@ -68,16 +68,25 @@ end
 
 function load(username, host, datastore)
 	local data, ret = loadfile(getpath(username, host, datastore));
-	if not data then log("warn", "Failed to load "..datastore.." storage ('"..ret.."') for user: "..username.."@"..host); return nil; end
+	if not data then
+		log("warn", "Failed to load "..datastore.." storage ('"..ret.."') for user: "..(username or nil).."@"..(host or nil));
+		return nil;
+	end
 	setfenv(data, {});
 	local success, ret = pcall(data);
-	if not success then log("error", "Unable to load "..datastore.." storage ('"..ret.."') for user: "..username.."@"..host); return nil; end
+	if not success then
+		log("error", "Unable to load "..datastore.." storage ('"..ret.."') for user: "..(username or nil).."@"..(host or nil));
+		return nil;
+	end
 	return ret;
 end
 
 function store(username, host, datastore, data)
 	local f, msg = io_open(getpath(username, host, datastore), "w+");
-	if not f then log("error", "Unable to write to "..datastore.." storage ('"..msg.."') for user: "..username.."@"..host); return nil; end
+	if not f then
+		log("error", "Unable to write to "..datastore.." storage ('"..msg.."') for user: "..(username or nil).."@"..(host or nil));
+		return nil;
+	end
 	f:write("return ");
 	simplesave(f, data);
 	f:close();
-- 
cgit v1.2.3