What's the full traceback? How are you attempting to execute this? Are you starting inets first?<br><br>On Tuesday, December 17, 2013, Ari King wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Hi,<br><div><br>The code below results in "init terminating in do_boot." Seemingly the problem is on line 5, does anyone see what is wrong with it? Additionally, I'm trying to pass the port in as a command line argument, but for some reason it doesn't work and I need to hardcode it. <br>
<br>-module(mock_tcp).<br>-export([start/1]).<br><br>start([Port, Filename]) -><br> {ok, Listen} = gen_tcp:listen(Port, [binary]),<br> spawn(fun() -> connect(Listen, Filename) end),<br> io:format("Server available on port ~w. Reading from file ~w.", [Port, Filename]).<br>
<br>connect(Listen, Filename) -><br> {ok, Socket} = gen_tcp:accept(Listen),<br> spawn(fun() -> connect(Listen, Filename) end),<br> {ok, Device} = file:open(Filename, read),<br> get_data(Device, Socket).<br><br>
get_data(Device, Socket) -><br>
case io:get_line(Device) of<br> {ok, Data} -><br> gen_tcp:send(Socket, Data),<br> get_data(Device, Socket);<br> eof -> <br> file:close(Device),<br> gen_tcp:close(Socket)<br> end.<br><br>
</div><div>Thanks.<br><br></div><div>-Ari<br></div></div>
</blockquote>