diff options
| author | Alexey Shchepin <alexey@process-one.net> | 2003-02-17 20:01:48 +0000 |
|---|---|---|
| committer | Alexey Shchepin <alexey@process-one.net> | 2003-02-17 20:01:48 +0000 |
| commit | 17000076adb6cc00a4f9a85e577b04def27c89ab (patch) | |
| tree | 5008a55a5c53ac45b89486ae3b72cbdc3be1e7bd /src/mod_irc | |
| parent | * src/mod_irc/: Still not completed... (diff) | |
*** empty log message ***
SVN Revision: 77
Diffstat (limited to 'src/mod_irc')
| -rw-r--r-- | src/mod_irc/mod_irc_connection.erl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/mod_irc/mod_irc_connection.erl b/src/mod_irc/mod_irc_connection.erl index 82912525..05a79165 100644 --- a/src/mod_irc/mod_irc_connection.erl +++ b/src/mod_irc/mod_irc_connection.erl @@ -444,7 +444,8 @@ process_channel_list_user(StateData, Chan, User) -> process_chanprivmsg(StateData, Chan, From, String) -> [FromUser | _] = string:tokens(From, "!"), - Msg = lists:last(string:tokens(String, ":")), + {ok, Msg, _} = regexp:sub(String, ".*PRIVMSG[^:]*:", ""), + %Msg = lists:last(string:tokens(String, ":")), Msg1 = case Msg of [1, $A, $C, $T, $I, $O, $N, $ | Rest] -> "/me " ++ Rest; |