-module(svp_hello_server).
-behaviour(gen_server).
-export([init/1,start_link/0, handle_call/3, handle_cast/2]).

start_link() -> gen_server:start_link({local, svp_hello_server}, 
                                      svp_hello_server, 
                                      [], 
                                      []).
init([]) -> {ok,?MODULE}.
handle_call(hello, From, Log) ->
	svp_tui ! hello,
	{reply, ok, [{hello,From}|Log]}.
handle_cast(hello, Log) ->
	svp_tui ! hello,
	{noreply, [{hello,annonymous}|Log]}.