* src/mod_irc/mod_irc_connection.erl: Support for topic changes

SVN Revision: 84

ChangeLog

@@ -1,3 +1,7 @@
+2003-02-27  Alexey Shchepin  <alexey@sevcom.net>
+
+	* src/mod_irc/mod_irc_connection.erl: Support for topic changes
+
 2003-02-24  Alexey Shchepin  <alexey@sevcom.net>
 
 	* src/mod_irc/mod_irc_connection.erl: /kick support

src/mod_irc/mod_irc_connection.erl

@@ -217,8 +217,11 @@ handle_info({route_chan, Channel, Resource,
     NewStateData =
 	case xml:get_attr_s("type", Attrs) of
 	    "groupchat" ->
+		case xml:get_path_s(El, [{elem, "subject"}, cdata]) of
+		    "" ->
 			ejabberd_router:route(
-		  {lists:concat([Channel, "%", StateData#state.server]),
+			  {lists:concat(
+			     [Channel, "%", StateData#state.server]),
 			   StateData#state.myname, StateData#state.nick},
 			  StateData#state.user, El),
 			Body = xml:get_path_s(El, [{elem, "body"}, cdata]),
@@ -236,6 +239,16 @@ handle_info({route_chan, Channel, Resource,
 							[Channel, S])
 				  end, Strings)),
 			?SEND(Res);
+		    Subject ->
+			Strings = string:tokens(Subject, "\n"),
+			Res = lists:concat(
+				lists:map(
+				  fun(S) ->
+					  io_lib:format("TOPIC #~s :~s\r\n",
+							[Channel, S])
+				  end, Strings)),
+			?SEND(Res)
+		end;
 	    "chat" ->
 		Body = xml:get_path_s(El, [{elem, "body"}, cdata]),
 		Body1 = case Body of
@@ -321,6 +334,9 @@ handle_info({ircstring, [$: | String]}, StateName, StateData) ->
 	case Words of
 	    [_, "353" | Items] ->
 		process_channel_list(StateData, Items);
+	    [_, "332", Nick, [$# | Chan] | _] ->
+		process_channel_topic(StateData, Chan, String),
+		StateData;
 	    [From, "PRIVMSG", [$# | Chan] | _] ->
 		process_chanprivmsg(StateData, Chan, From, String),
 		StateData;
@@ -330,6 +346,9 @@ handle_info({ircstring, [$: | String]}, StateName, StateData) ->
 	    [From, "PRIVMSG", Nick | _] ->
 		process_privmsg(StateData, Nick, From, String),
 		StateData;
+	    [From, "TOPIC", [$# | Chan] | _] ->
+		process_topic(StateData, Chan, From, String),
+		StateData;
 	    [From, "PART", [$# | Chan] | _] ->
 		process_part(StateData, Chan, From, String);
 	    [From, "QUIT" | _] ->
@@ -530,6 +549,26 @@ process_channel_list_user(StateData, Chan, User) ->
     end.
 
 
+process_channel_topic(StateData, Chan, String) ->
+    FromUser = "someone",
+    {ok, Msg, _} = regexp:sub(String, ".*332[^:]*:", ""),
+    Msg1 = lists:filter(
+	     fun(C) ->
+		     if (C < 32) and
+			(C /= 9) and
+			(C /= 10) and
+			(C /= 13) ->
+			     false;
+			true -> true
+		     end
+	     end, Msg),
+    ejabberd_router:route({lists:concat([Chan, "%", StateData#state.server]),
+			   StateData#state.myname, FromUser},
+			  StateData#state.user,
+			  {xmlelement, "message", [{"type", "groupchat"}],
+			   [{xmlelement, "subject", [], [{xmlcdata, Msg1}]}]}).
+
+
 process_chanprivmsg(StateData, Chan, From, String) ->
     [FromUser | _] = string:tokens(From, "!"),
     {ok, Msg, _} = regexp:sub(String, ".*PRIVMSG[^:]*:", ""),
@@ -595,6 +634,28 @@ process_version(StateData, Nick, From) ->
 		    [FromUser])).
 
 
+process_topic(StateData, Chan, From, String) ->
+    [FromUser | _] = string:tokens(From, "!"),
+    {ok, Msg, _} = regexp:sub(String, ".*TOPIC[^:]*:", ""),
+    Msg1 = lists:filter(
+	     fun(C) ->
+		     if (C < 32) and
+			(C /= 9) and
+			(C /= 10) and
+			(C /= 13) ->
+			     false;
+			true -> true
+		     end
+	     end, Msg),
+    ejabberd_router:route({lists:concat([Chan, "%", StateData#state.server]),
+			   StateData#state.myname, FromUser},
+			  StateData#state.user,
+			  {xmlelement, "message", [{"type", "groupchat"}],
+			   [{xmlelement, "subject", [], [{xmlcdata, Msg1}]},
+			    {xmlelement, "body", [],
+			     [{xmlcdata, "/me has changed the subject to: " ++
+			       Msg1}]}]}).
+
 process_part(StateData, Chan, From, String) ->
     [FromUser | _] = string:tokens(From, "!"),
     %Msg = lists:last(string:tokens(String, ":")),