From 1a96944929617c85f127b994670ec7069e6dec71 Mon Sep 17 00:00:00 2001
From: ekhramtsov <ekhramtsov@process-one.net>
Date: Wed, 17 Feb 2010 23:17:33 +0900
Subject: new option "hostname" is added (thanks to Stefan Hepp) (EJAB-838)

---
 src/mod_proxy65/mod_proxy65_service.erl | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/mod_proxy65/mod_proxy65_service.erl b/src/mod_proxy65/mod_proxy65_service.erl
index 545c7c0e4..b2869e3af 100644
--- a/src/mod_proxy65/mod_proxy65_service.erl
+++ b/src/mod_proxy65/mod_proxy65_service.erl
@@ -222,8 +222,16 @@ parse_options(ServerHost, Opts) ->
 	     none -> get_my_ip();
 	     Addr -> Addr
 	 end,
-    StrIP = inet_parse:ntoa(IP),
-    StreamAddr = [{"jid", MyHost}, {"host", StrIP}, {"port", integer_to_list(Port)}],
+    HostName = case gen_mod:get_opt(hostname, Opts, none) of
+		   none ->
+		       inet_parse:ntoa(IP);
+		   HostAddr when is_tuple(HostAddr) ->
+		       inet_parse:ntoa(HostAddr);
+		   HostNameStr ->
+		       HostNameStr
+	     end,
+    StreamAddr = [{"jid", MyHost}, {"host", HostName},
+		  {"port", integer_to_list(Port)}],
     #state{myhost      = MyHost,
 	   serverhost  = ServerHost,
 	   name        = Name,
-- 
cgit v1.2.3