[From nobody Mon Mar 25 16:15:48 2013 Return-Path: <peppe@erix.ericsson.se> Received: from [169.132.25.65] (HELO tahini.corp.idt.net) by mail.corp.idt.net (CommuniGate Pro SMTP 4.2) with ESMTP-TLS id 106343137 for serge@hq.idt.net; Fri, 01 Jul 2005 10:54:41 -0400 Received: from psmtp.com (exprod6mx118.postini.com [64.18.1.110]) by tahini.corp.idt.net (Switch-3.1.7/Switch-3.1.7) with SMTP id j61EsdlJ020972 for <serge@hq.idt.net>; Fri, 1 Jul 2005 10:54:40 -0400 (EDT) Received: from source ([193.180.251.62]) by exprod6mx118.postini.com ([64.18.5.10]) with SMTP; Fri, 01 Jul 2005 09:54:38 CDT Received: from esealmw129.eemea.ericsson.se (unknown [153.88.254.120]) by mailgw4.ericsson.se (Symantec Mail Security) with ESMTP id 7DD18FEB for <serge@hq.idt.net>; Fri, 1 Jul 2005 16:54:37 +0200 (CEST) Received: from esealmw127.eemea.ericsson.se ([153.88.254.171]) by esealmw129.eemea.ericsson.se with Microsoft SMTPSVC(6.0.3790.211); Fri, 1 Jul 2005 16:54:36 +0200 Received: from super.du.uab.ericsson.se ([134.138.176.16]) by esealmw127.eemea.ericsson.se with Microsoft SMTPSVC(6.0.3790.211); Fri, 1 Jul 2005 16:54:36 +0200 Received: from erix.ericsson.se (peppe@finwe [134.138.177.105]) by super.du.uab.ericsson.se (8.10.1/8.10.1/erix-1.8) with ESMTP id j61EsZL07184 for <serge@hq.idt.net>; Fri, 1 Jul 2005 16:54:36 +0200 (MET DST) Sender: peppe@erix.ericsson.se Message-ID: <42C5592B.3CF818BB@erix.ericsson.se> Date: Fri, 01 Jul 2005 16:54:35 +0200 From: UAB L/K Peter Andersson <peppe@erix.ericsson.se> X-Mailer: Mozilla 4.79 [en] (X11; U; SunOS 5.8 sun4u) X-Accept-Language: en MIME-Version: 1.0 To: Serge Aleynikov <serge@hq.idt.net> Subject: Re: inets crashing in R10B-6 References: <42BC843E.5070405@hq.idt.net> <42BC8B1D.9040007@hq.idt.net> <42BFACFF.7CAAF8A4@erix.ericsson.se> <42C009CA.8080103@hq.idt.net> <42C0131B.6EA44A70@erix.ericsson.se> <42C01489.2010303@hq.idt.net> Content-Type: multipart/mixed; boundary="------------0166B9705EF8CD54FD0F2DB9" X-OriginalArrivalTime: 01 Jul 2005 14:54:36.0338 (UTC) FILETIME=[CC7E7120:01C57E4C] X-Brightmail-Tracker: AAAAAA== X-pstn-levels: (S:99.90000/99.90000 R:95.9108 P:95.9108 M:97.0232 C:98.7678 ) X-pstn-settings: 4 (1.5000:1.5000) s gt3 gt2 gt1 r p m c X-pstn-addresses: from <peppe@erix.ericsson.se> [20/1] This is a multi-part message in MIME format. --------------0166B9705EF8CD54FD0F2DB9 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Hi Serge, The fix we've made will be available with the nest open sourse release. Until then, here's the modified file. Thanks for helping and have a really good summer! Best regards, Peter Serge Aleynikov wrote: > > Yes, I verified that this works indeed. I hope you'll be able to > release a patch soon since this work-around not very convenient, as the > inets' configuration script is not easily portable between computers. > > Regards, > > Serge > > UAB L/K Peter Andersson wrote: > > > Hi Serge, > > > > We've been looking at this and we think we know what the problem is. > > We're working on a fix, but we'd like to test it and check that there > > are no other issues. > > > > Meanwhile a workaround for you would be to specify the BindAddress > > config parameter explicitly instead of using *. That should hopefully > > help, for now. Will you let us know if it does/doesn't? > > > > Best regards, > > Peter > > > > Serge Aleynikov wrote: > > > >>Not sure if this helps, but I confirmed this bug of inets crashing on > >>the following OS versions: > >> > >>Linux version 2.4.18-14smp (gcc version 3.2 20020903 (Red Hat Linux 8.0 > >>3.2-7)) #1 SMP Wed Sep 4 12:34:47 EDT 2002 > >> > >>Linux version 2.4.20 (gcc version 2.96 20000731 (Red Hat Linux 7.3 > >>2.96-110)) #2 SMP Wed Jan 29 18:40:47 EST 2003 > >> > >>and it is *not* crashing on: > >> > >>Linux version 2.6.8.1 (gcc version 3.2.3 20030502 (Red Hat Linux > >>3.2.3-20)) #2 SMP Tue Sep 28 16:04:54 EDT 2004 > >> > >>I would appreciate any advice on how to work around this issue. > >> > >>Thanks. > >> > >>Serge > >> > >>UAB L/K Peter Andersson wrote: > >> > >> > >>>Hi Serge, > >>> > >>>Yes, we've made some updates in both kernel and inets with regards to > >>>IPv6 handling. We had a resolver problem that could cause inets to > >>>believe IPv6 was working properly when, in fact, there was no support > >>>for IPv6 on the host. > >>> > >>>The behaviour you get when starting inets looks bad. inets is supposed > >>>to be able to fall back to IPv4 if IPv6 is not working properly. For > >>>some reason, the fix we made seems to rather have introduced the problem > >>>on your system. Weird. We'll have to look into this promptly! > >>> > >>>What OS are you using? > >>> > >>>Best regards, > >>>Peppe > >>> > >>>----------------------- > >>>Erlang/OTP, Ericsson AB > >>>----------------------- > >>> > >>>Serge Aleynikov wrote: > >>> > >>> > >>>>I set up a trace on gen_tcp:listen, and see that httpd is trying to bind > >>>>to inet6, which is indeed the root of this problem on this host: > >>>> > >>>>5> dbg:tracer(). > >>>>{ok,<0.47.0>} > >>>>6> dbg:p(all,call). > >>>>{ok,[{matched,nonode@nohost,25}]} > >>>>7> dbg:tpl(httpd_transport, listen, dbg:fun2ms(fun(_) -> return_trace() > >>>>end)). > >>>>{ok,[{matched,nonode@nohost,0},{saved,1}]} > >>>>8> dbg:tpl(gen_tcp, listen, dbg:fun2ms(fun(_) -> return_trace() end)). > >>>> > >>>>{ok,[{matched,nonode@nohost,1},{saved,1}]} > >>>>9> httpd:start_link(["../priv/inets.conf"]). > >>>>(<0.59.0>) call > >>>>gen_tcp:listen(8080,[inet6,{ip,any},{packet,0},{active,false},{backlog,128},{reuseaddr,true}]) > >>>>(<0.59.0>) returned from gen_tcp:listen/2 -> {error,eafnosupport} > >>>>** exited: shutdown ** > >>>> > >>>>How can I force httpd not to use inet6? Did some default setting change > >>>>in R10B-6? I see this statement in the release notes, but not sure if > >>>>it is related: > >>>> > >>>> OTP-5576 When doing an inet6 name lookup on an IPv4 address it was > >>>> possible to get an address on IPv4 format back. This has been > >>>> corrected. Some other minor inconsistencies regarding IPv6 > >>>> name lookup have also been corrected. > >>>> > >>>>Thanks, > >>>> > >>>>Serge > >>>> > >>>>Serge Aleynikov wrote: > >>>> > >>>> > >>>>>Hi, > >>>>> > >>>>>I upgraded Erlang to R10B-6 and for some reason inets keeps crashing at > >>>>>startup. Before upgrading it worked under R10B-5 with no problems. > >>>>> > >>>>> > >>>>>>erl > >>>>> > >>>>>Erlang (BEAM) emulator version 5.4.8 [source] [hipe] [threads:0] > >>>>> > >>>>>Eshell V5.4.8 (abort with ^G) > >>>>>1>httpd:start_link(["../priv/inets.conf"]). > >>>>> > >>>>>=SUPERVISOR REPORT==== 24-Jun-2005::17:58:36 === > >>>>> Supervisor: {local,httpd_instance_sup_8080} > >>>>> Context: start_error > >>>>> Reason: {{listen,eafnosupport}, > >>>>> {child,undefined, > >>>>> {httpd_acceptor,any,8080}, > >>>>> {httpd_acceptor, > >>>>> start_link, > >>>>> [<0.66.0>, > >>>>> ip_comm, > >>>>> any, > >>>>> 8080, > >>>>> httpd_conf_8080, > >>>>> silence]}, > >>>>> permanent, > >>>>> 1000, > >>>>> worker, > >>>>> [httpd_acceptor]}} > >>>>>... > >>>>> > >>>>>Here is the content of "../priv/inets.conf": > >>>>>------BEGIN--------- > >>>>>BindAddress * > >>>>>Port 8080 > >>>>>ServerName wwwproxy > >>>>> > >>>>>ServerRoot ../priv > >>>>>DocumentRoot ../priv/docroot > >>>>>Modules mod_alias mod_auth mod_actions mod_include mod_dir > >>>>>mod_get mod_head > >>>>> > >>>>>DirectoryIndex index.html > >>>>> > >>>>>ErlScriptAlias /erl io io_lib server_mgr > >>>>>------END--------- > >>>>> > >>>>>Any idea how to configure it in order to avoid this > >>>>>{listen,eafnosupport} "address family not supported by protocol family" > >>>>>error? > >>>>> > >>>>>Serge > >>>>> > >>>> > >>>>-- > >>>>Serge Aleynikov > >>>>R&D Telecom, IDT Corp. > >>>>Tel: (973) 438-3436 > >>>>Fax: (973) 438-1464 > >>>>serge@hq.idt.net -- ----------------------- Erlang/OTP, Ericsson AB ----------------------- --------------0166B9705EF8CD54FD0F2DB9 Content-Type: text/plain; charset=us-ascii; name="http_transport.erl" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="http_transport.erl" %% ``The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in %% compliance with the License. You should have received a copy of the %% Erlang Public License along with this software. If not, it can be %% retrieved via the world wide web at http://www.erlang.org/. %% %% Software distributed under the License is distributed on an "AS IS" %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See %% the License for the specific language governing rights and limitations %% under the License. %% %% The Initial Developer of the Original Code is Ericsson Utvecklings AB. %% Portions created by Ericsson are Copyright 1999, Ericsson Utvecklings %% AB. All Rights Reserved.'' %% %% $Id$ % -module(http_transport). -export([start/1, connect/2, listen/2, listen/3, accept/2, accept/3, close/2, send/3, controlling_process/3, setopts/3, peername/2, resolve/0]). -include("http.hrl"). %%%========================================================================= %%% Internal application API %%%========================================================================= %%------------------------------------------------------------------------- %% start(SocketType) -> ok | {error, Reason} %% SocketType - ip_comm | {ssl, _} %% %% Description: Makes sure inet_db or ssl is started. %%------------------------------------------------------------------------- start(ip_comm) -> case inet_db:start() of {ok, _} -> ok; {error, {already_started, _}} -> ok; Error -> Error end; start({ssl, _}) -> case ssl:start() of ok -> ok; {ok, _} -> ok; {error, {already_started,_}} -> ok; Error -> Error end. %%------------------------------------------------------------------------- %% connect(HTTPRequest, IPV6) -> ok | {error, Reason} %% HTTPRequest - #request{} %% IPV6 - disabled | enabled %% %% Description: Connects to the Host and Port specified in HTTPRequest. %% uses ipv6 if possible. %%------------------------------------------------------------------------- connect(#request{scheme = http, address = {Host, Port}}, enabled) -> {Opts, NewHost} = case (catch inet:getaddr(Host, inet6)) of {ok, IPAddr} -> {[binary, {packet, 0}, {active, false}, {reuseaddr,true}, inet6], IPAddr}; _ -> {[binary, {packet, 0}, {active, false}, {reuseaddr,true}], Host} end, gen_tcp:connect(NewHost, Port, Opts); connect(#request{scheme = http, address = {Host, Port}}, disabled) -> Opts = [binary, {packet, 0}, {active, false}, {reuseaddr,true}], gen_tcp:connect(Host, Port, Opts); connect(#request{scheme = https, settings = Settings, address = {Host, Port}}, _) -> Opts = [binary, {active, false}] ++ Settings#http_options.ssl, ssl:connect(Host, Port, Opts). %%------------------------------------------------------------------------- %% listen(SocketType, Port) -> ok | {error, Reason} %% SocketType - ip_comm | {ssl, SSLConfig} %% Port - integer() %% %% Description: Sets up socket to listen on the port Port on the local %% host using either gen_tcp or ssl. In the gen_tcp case the port %% might allready have been initiated by a wrapper-program and is %% given as an Fd that can be retrieved by init:get_argument. The %% reason for this to enable a HTTP-server not runnig as root to use %% port 80. %%------------------------------------------------------------------------- listen(SocketType, Port) -> listen(SocketType, undefined, Port). listen(ip_comm, Addr, Port) -> FdName = list_to_atom("httpd_" ++ integer_to_list(Port)), {NewPort, Opt} = case init:get_argument(FdName) of {ok, [[FdStr]]} -> Fd = list_to_integer(FdStr), {0, sock_opt(ip_comm, Addr, [{backlog, 128}, {reuseaddr,true}, {fd,Fd}])}; error -> {Port, sock_opt(ip_comm, Addr, [{backlog, 128}, {reuseaddr, true}])} end, gen_tcp:listen(NewPort, Opt); listen({ssl, SSLConfig} = Ssl, Addr, Port) -> Opt = sock_opt(Ssl, Addr, SSLConfig), ssl:listen(Port, Opt). %%------------------------------------------------------------------------- %% accept(SocketType, ListenSocket) -> ok | {error, Reason} %% accept(SocketType, ListenSocket, Timeout) -> ok | {error, Reason} %% SocketType - ip_comm | {ssl, SSLConfig} %% ListenSocket - socket() %% Timeout - infinity | integer() >= 0 %% %% Description: Accepts an incoming connection request on a listen socket, %% using either gen_tcl or ssl. %%------------------------------------------------------------------------- accept(SocketType, ListenSocket) -> accept(SocketType, ListenSocket, infinity). accept(ip_comm, ListenSocket, Timeout) -> gen_tcp:accept(ListenSocket, Timeout); accept({ssl,_SSLConfig}, ListenSocket, Timeout) -> ssl:accept(ListenSocket, Timeout). %%------------------------------------------------------------------------- %% controlling_process(SocketType, Socket, NewOwner) -> ok | {error, Reason} %% SocketType - ip_comm | {ssl, _} %% Socket - socket() %% NewOwner - pid() %% %% Description: Assigns a new controlling process to Socket. %%------------------------------------------------------------------------- controlling_process(ip_comm, Socket, NewOwner) -> gen_tcp:controlling_process(Socket, NewOwner); controlling_process({ssl, _}, Socket, NewOwner) -> ssl:controlling_process(Socket, NewOwner). %%------------------------------------------------------------------------- %% setopts(RequestType, Socket, Options) -> ok | {error, Reason} %% RequestType - http | https %% Socket - socket() %% Options - list() %% Description: Sets one or more options for a socket, using either %% gen_tcl or ssl. %%------------------------------------------------------------------------- setopts(http, Socket, Options) -> inet:setopts(Socket,Options); setopts(ip_comm, Socket, Options) -> setopts(http, Socket,Options); setopts({ssl, _}, Socket, Options) -> setopts(https, Socket, Options); setopts(https, Socket, Options) -> ssl:setopts(Socket, Options). %%------------------------------------------------------------------------- %% send(RequestOrSocketType, Socket, Message) -> ok | {error, Reason} %% RequestOrSocketType - http | https | ip_comm | {ssl, _} %% Socket - socket() %% Message - list() | binary() %% Description: Sends a packet on a socket, using either gen_tcp or ssl. %%------------------------------------------------------------------------- send(http, Socket, Message) -> gen_tcp:send(Socket, Message); send(ip_comm, S, M) -> send(http, S, M); send({ssl, _}, S, M) -> send(https, S, M); send(https, Socket, Message) -> ssl:send(Socket, Message). %%------------------------------------------------------------------------- %% close(RequestOrSocketType, Socket) -> ok | {error, Reason} %% RequestOrSocketType - http | https | ip_comm | {ssl, _} %% Socket - socket() %% %% Description: Closes a socket, using either gen_tcp or ssl. %%------------------------------------------------------------------------- close(http, Socket) -> gen_tcp:close(Socket); close(ip_comm, S) -> close(http, S); close({ssl, _}, S) -> close(https, S); close(https,Socket) -> ssl:close(Socket). %%------------------------------------------------------------------------- %% peername(RequestOrSocketType, Socket) -> ok | {error, Reason} %% RequestOrSocketType - http | https | ip_comm | {ssl, _} %% Socket - socket() %% %% Description: Returns the address and port for the other end of a connection, %% usning either gen_tcp or ssl. %%------------------------------------------------------------------------- peername(ip_comm, Socket) -> peername(http, Socket); peername(http, Socket) -> case inet:peername(Socket) of {ok,{{A, B, C, D}, Port}} -> PeerName = integer_to_list(A)++"."++integer_to_list(B)++"."++ integer_to_list(C)++"."++integer_to_list(D), {Port, PeerName}; {ok,{{A, B, C, D, E, F, G, H}, Port}} -> PeerName = http_util:integer_to_hexlist(A) ++ ":"++ http_util:integer_to_hexlist(B) ++ ":" ++ http_util:integer_to_hexlist(C) ++ ":" ++ http_util:integer_to_hexlist(D) ++ ":" ++ http_util:integer_to_hexlist(E) ++ ":" ++ http_util:integer_to_hexlist(F) ++ ":" ++ http_util:integer_to_hexlist(G) ++":"++ http_util:integer_to_hexlist(H), {Port, PeerName}; {error, _} -> {-1, "unknown"} end; peername({ssl,_SSLConfig}, Socket) -> peername(https, Socket); peername(https, Socket) -> case ssl:peername(Socket) of {ok,{{A, B, C, D}, Port}} -> PeerName = integer_to_list(A)++"."++integer_to_list(B)++"."++ integer_to_list(C)++"."++integer_to_list(D), {Port, PeerName}; {error, _} -> {-1, "unknown"} end. %%------------------------------------------------------------------------- %% resolve() -> HostName %% HostName - string() %% %% Description: Returns the local hostname. %%------------------------------------------------------------------------- resolve() -> {ok, Name} = inet:gethostname(), Name. %%%======================================================================== %%% Internal functions %%%======================================================================== %% Address any comes from directive: BindAddress "*" sock_opt(ip_comm, any = Addr, Opt) -> sock_opt1([{ip, Addr} | Opt]); sock_opt(ip_comm, undefined, Opt) -> sock_opt1(Opt); sock_opt(_, any = Addr, Opt) -> sock_opt2([{ip, Addr} | Opt]); sock_opt(_, undefined, Opt) -> sock_opt2(Opt); sock_opt(_, Addr, Opt) when size(Addr) == 4 -> sock_opt2([{ip, Addr} | Opt]); sock_opt(ip_comm, Addr, Opt) -> sock_opt2([inet6, {ip, Addr} | Opt]); sock_opt(_, Addr, Opt) -> sock_opt2([{ip, Addr} | Opt]). sock_opt1(Opt) -> case has_inet6_supported() of yes -> sock_opt2([inet6 | Opt]); no -> sock_opt2(Opt) end. sock_opt2(Opt) -> [{packet, 0}, {active, false} | Opt]. has_inet6_supported() -> case (catch inet:getaddr("localhost", inet6)) of {ok, _} -> yes; _ -> no end. --------------0166B9705EF8CD54FD0F2DB9-- ]