%% 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).