-module(connect_socket).
-export([connect_particular_no_of_times/4, connect/4]).

connect(IP, Port, N, Nt) ->
    case catch gen_tcp:connect(IP, Port, [binary,{packet,0},{ip, Nt}, {active, false}]) of

       {ok, Socket} ->
                io:format("New Socket has been created~w~w~n",[Socket, N]);
          _ ->
            io:format("No socket is created~n")
    end.

connect_particular_no_of_times(Max, IP, Port, Nt) ->
         connect_particular_no_of_times(Max, IP, Port, 0, Nt).

connect_particular_no_of_times(Max, IP, Port, N, Nt) ->
     if
         N < Max ->
            spawn(connect_socket, connect,[IP, Port, N, {192,168,66,74}]),
            io:format("New process has been spawned~w~w~n",[N,{74}]),
            spawn(connect_socket, connect,[IP, Port, N + 1, {192,168,66,75}]),
            io:format("New process has been spawned~w~w~n",[N + 1,{75}]),
            connect_particular_no_of_times(Max, IP, Port, N + 2, Nt);
         true ->
            io:format("No of processe spawned is ~w~n",[Max])
     end.