Sancaros/egs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

The server now requires Erlang R14B to run.

Browse Source
This commit is contained in:
Loïc Hoguin 2010-11-17 21:31:33 +01:00
parent c23c7e56fa
commit bd6b5632f1
4 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -42,4 +42,4 @@ run:
@echo "EGS is free software available under the GNU GPL version 3" @echo "EGS is free software available under the GNU GPL version 3"
@echo "Copyright (C) 2010 Loic Hoguin" @echo "Copyright (C) 2010 Loic Hoguin"
@echo @echo
$(ERL) -ssl protocol_version '{sslv3}' -sname egs -pa ebin -boot start_sasl -s reloader -s egs $(ERL) -sname egs -pa ebin -boot start_sasl -s reloader -s egs

2
README
View File

@ -10,4 +10,6 @@ This is a very early work in progress. It does not include any data files
yet, meaning one cannot at this point run a server without using the yet, meaning one cannot at this point run a server without using the
proprietary files from AOTI. proprietary files from AOTI.
The server requires Erlang R14B to compile and run.
Use 'make' to compile, 'make run' to run and 'make fclean' to cleanup. Use 'make' to compile, 'make run' to run and 'make fclean' to cleanup.

2
src/egs.erl
View File

@ -34,6 +34,7 @@ ensure_started(App) ->
%% @doc Start the EGS server. %% @doc Start the EGS server.
start() -> start() ->
ensure_started(crypto), ensure_started(crypto),
ensure_started(public_key),
ensure_started(ssl), ensure_started(ssl),
ssl:seed(crypto:rand_bytes(256)), ssl:seed(crypto:rand_bytes(256)),
ensure_started(mnesia), ensure_started(mnesia),
@ -45,6 +46,7 @@ stop() ->
Res = application:stop(egs), Res = application:stop(egs),
application:stop(mnesia), application:stop(mnesia),
application:stop(ssl), application:stop(ssl),
application:stop(public_key),
application:stop(crypto), application:stop(crypto),
Res. Res.

2
src/egs_network.erl
View File

@ -21,7 +21,7 @@
-export([listen/2, recv/3]). %% API. -export([listen/2, recv/3]). %% API.
-export([accept/2]). %% Internal. -export([accept/2]). %% Internal.
-define(OPTIONS, [binary, {active, true}, {reuseaddr, true}, {certfile, "priv/ssl/servercert.pem"}, {keyfile, "priv/ssl/serverkey.pem"}, {password, "alpha"}]). -define(OPTIONS, [binary, {active, true}, {reuseaddr, true}, {ssl_imp, new}, {certfile, "priv/ssl/servercert.pem"}, {keyfile, "priv/ssl/serverkey.pem"}, {password, "alpha"}]).
%% @doc Listen for connections. %% @doc Listen for connections.
listen(Port, CallbackMod) -> listen(Port, CallbackMod) ->