select_all(Table) ->
    do(qlc:q([X || X <- mnesia:table(Table)])).

%% http_listテーブルからidの全リストを返す
select_id_all() ->
   do(qlc:q([X#http_list.id || X <- mnesia:table(http_list)])).

%% systemカラムの値がSystemにマッチするものをTableから検索
select_system(System, Table) ->
    do(qlc:q([X || X <- mnesia:table(Table),
		   X#http_list.system =:= System])).

%% http_listテーブルからsystemをキーとしてURIのリストを返す
select_uri_system(System) ->
    do(qlc:q([X#http_list.uri || X <- mnesia:table(http_list),
				X#http_list.system =:= System])).

%% http_listテーブルのidをキーとして、uriを返す
%% httpのリクエスト発行対象の取得するのに使用する
select_uri_id(Id) ->
   do(qlc:q([X#http_list.uri || X <- mnesia:table(http_list),
			 X#http_list.id =:= Id])).

%% request_confテーブルのlist_idをキーとして結果の判定条件である
%% result_conditionsを取得
select_conditions(Id) ->
    do(qlc:q([X#request_conf.result_conditions || X <- mnesia:table(request_conf),
						  X#request_conf.list_id =:= Id])).
%% http_resultテーブルから結果を取得
%% 取得範囲はdatetime型でFromからToを指定
select_check(Id, From, To) ->
    do(qlc:q([X#http_result.status || X <- mnesia:table(http_result),
				      X#http_result.list_id =:= Id,
				      X#http_result.mon_time < To,
				      X#http_result.mon_time > From])).