Mnesiaレコード更新

gistfile1.erl

add(add_http_list, Id, System, Uri, Port) ->
    gen_server:call(?MODULE, {add_http_list, Id, System, Uri, Port});

handle_call({add_http_list, Id, System, Uri, Port}, _From, State) ->
    {reply, add_record_http_list(Id, System, Uri, Port), State};


%% http_listテーブルにレコードを追加/更新する
add_record_http_list(Id, System, Uri, Port) ->
    Row = #http_list{id=Id, system=System, uri=Uri, port=Port},
    F = fun() ->
		mnesia:write(Row)
	end,
    mnesia:transaction(F).