From 2d5fdbab6446005ce6be5d0e03b6c1ac337ea097 Mon Sep 17 00:00:00 2001 From: Badlop Date: Thu, 24 Jul 2008 18:03:28 +0000 Subject: [PATCH] * src/mod_proxy65/mod_proxy65_lib.erl: Send protocol compliant SOCKS5 reply; this breaks support of uncompliant Psi<0.10 (thanks to Felix Geyer)(EJAB-632) * src/mod_proxy65/mod_proxy65_stream.erl: Likewise SVN Revision: 1488 --- ChangeLog | 5 +++++ src/mod_proxy65/mod_proxy65_lib.erl | 10 +++------- src/mod_proxy65/mod_proxy65_stream.erl | 2 +- 3 files changed, 9 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8b4b8b9ed..ad02d16ee 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2008-07-24 Badlop + * src/mod_proxy65/mod_proxy65_lib.erl: Send protocol compliant + SOCKS5 reply; this breaks support of uncompliant Psi<0.10 (thanks + to Felix Geyer)(EJAB-632) + * src/mod_proxy65/mod_proxy65_stream.erl: Likewise + * src/mod_register.erl: When a registration is blocked due to IP limitation, return description in error stanza (EJAB-692) diff --git a/src/mod_proxy65/mod_proxy65_lib.erl b/src/mod_proxy65/mod_proxy65_lib.erl index 8e30bb4a6..490ef0479 100644 --- a/src/mod_proxy65/mod_proxy65_lib.erl +++ b/src/mod_proxy65/mod_proxy65_lib.erl @@ -35,7 +35,7 @@ unpack_request/1, make_init_reply/1, make_auth_reply/1, - make_reply/0, + make_reply/1, make_error_reply/1, make_error_reply/2 ]). @@ -73,12 +73,8 @@ make_init_reply(Method) -> make_auth_reply(true) -> [1, ?SUCCESS]; make_auth_reply(false) -> [1, ?ERR_NOT_ALLOWED]. -%% WARNING: According to SOCKS5 RFC, this reply is _incorrect_, but -%% Psi writes junk to the beginning of the file on correct reply. -%% I'm not sure, but there may be an issue with other clients. -%% Needs more testing. -make_reply() -> - [?VERSION_5, ?SUCCESS, 0, 0, 0, 0]. +make_reply(#s5_request{rsv = RSV, sha1 = SHA1}) -> + [?VERSION_5, ?SUCCESS, RSV, ?ATYP_DOMAINNAME, length(SHA1), SHA1, 0,0]. make_error_reply(Request) -> make_error_reply(Request, ?ERR_NOT_ALLOWED). diff --git a/src/mod_proxy65/mod_proxy65_stream.erl b/src/mod_proxy65/mod_proxy65_stream.erl index ccc060afe..9b2df3371 100644 --- a/src/mod_proxy65/mod_proxy65_stream.erl +++ b/src/mod_proxy65/mod_proxy65_stream.erl @@ -172,7 +172,7 @@ wait_for_request(Packet, #state{socket=Socket} = StateData) -> case catch mod_proxy65_sm:register_stream(SHA1) of {atomic, ok} -> inet:setopts(Socket, [{active, false}]), - gen_tcp:send(Socket, mod_proxy65_lib:make_reply()), + gen_tcp:send(Socket, mod_proxy65_lib:make_reply(Request)), {next_state, wait_for_activation, StateData#state{sha1=SHA1}}; _ -> Err = mod_proxy65_lib:make_error_reply(Request),