The Server module for my Erlang homework 6

serv1.erl

%% @author kauff
%% @doc @todo Add description to serv1.


-module(serv1).

%% ====================================================================
%% API functions
%% ====================================================================
-export([start/0, start/1, stop/1]).
-define(TCP_OPTIONS, [{packet, 0}, {active, false}, {reuseaddr, true}]).
%-record(client, {username=anonymous, socket, mode}).

start() -> start(8080).
start(Port) ->
		io:format("TCP server starting on Port ~p~n", [Port]),
		
		%start a tcp server listening on this port
		case gen_tcp:listen(Port, ?TCP_OPTIONS) of
			{ok, LSocket} ->
					% creates process to handle incoming connections
					%spawn(fun() -> server(LSocket) end);
					Pid = spawn(fun() -> maintain_clients([]) end),
					register(client_manager, Pid),
					server(LSocket);
			{error, Reason} ->
					{error, Reason}
		end.

% handles incoming connections
server(LSocket) ->
		case gen_tcp:accept(LSocket) of
			{ok, Socket} ->
					io:format("Incoming connection (~p)~n", [Socket]),
					spawn(fun() -> handle_client(Socket) end),
					%client_manager ! {connect, Socket}
					server(LSocket);
			Other ->
				io:format("Wut ~w~n", [Other]),
				ok
		end.

% handle_clients
handle_client(Socket) ->
		receive
			{tcp, Socket, Bin} ->
					io:format("Server received binary = ~p~n", [Bin]),
					Str = binary_to_term(Bin),
					Reply = string:to_upper(Str),
					io:format("Server replying to you = ~p~n", [Reply]),
					gen_tcp:send(Socket, term_to_binary(Reply)),
					handle_client(Socket);
			
			{tcp_closed, Socket} ->
					io:format("Server socket closed for some reason.~n");
			
			{tcp_error, Socket, Reason} ->
					io:format("Error: ~p~n", Reason)
		end.

%% 		case gen_tcp:recv(tcp, Socket, 0) of
%% 			{ok, Bin} ->
%% 					Str = binary_to_term(Bin),
%% 					Reply = string:to_upper(Str),
%% 					gen_tcp:send(Socket, term_to_binary(Reply)),
%% 					handle_client(Socket);
%% 			{error, closed} ->
%% 					io:format("Socket ~w closed [~w]~n",[Socket, self()]),
%%             ok
%% 		end.
maintain_clients(Clients) ->
		ok.
	
	
stop(Socket) ->
	gen_tcp:close(Socket).

% listen (connection handler)

%% ====================================================================
%% Internal functions
%% ====================================================================


% FLOWS:
% [x] chat server starts and makes a new server process on the provided port
% [x] that process opens up for connections
% [] someone tries to join the chat, sending their username
% [] the chat server accepts their connection and adds them to the list of connections
% [] the chat server broadcasts to everyone that the new user has joined
% [] the user sends a message to the chat server
% [] the chat server sends this message to everyone connected
% [] another user joins and steps 3-6 repeat