summaryrefslogtreecommitdiff
path: root/src/chttpd_stats.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/chttpd_stats.erl')
-rw-r--r--src/chttpd_stats.erl60
1 files changed, 0 insertions, 60 deletions
diff --git a/src/chttpd_stats.erl b/src/chttpd_stats.erl
deleted file mode 100644
index 1200713a..00000000
--- a/src/chttpd_stats.erl
+++ /dev/null
@@ -1,60 +0,0 @@
-% Licensed under the Apache License, Version 2.0 (the "License"); you may not
-% use this file except in compliance with the License. You may obtain a copy of
-% the License at
-%
-% http://www.apache.org/licenses/LICENSE-2.0
-%
-% Unless required by applicable law or agreed to in writing, software
-% distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
-% WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
-% License for the specific language governing permissions and limitations under
-% the License.
-
--module(chttpd_stats).
--include_lib("couch/include/couch_db.hrl").
--include_lib("couch/include/couch_stats.hrl").
-
--export([handle_stats_req/1]).
--import(chttpd,
- [send_json/2,send_json/3,send_json/4,send_method_not_allowed/2,
- start_json_response/2,send_chunk/2,end_json_response/1,
- start_chunked_response/3, send_error/4]).
-
--record(stats_query_args, {
- range='0',
- flush=false
-}).
-
-handle_stats_req(#httpd{method='GET', path_parts=[_]}=Req) ->
- send_json(Req, couch_stats_aggregator:all());
-
-handle_stats_req(#httpd{method='GET', path_parts=[_Stats, Module, Key]}=Req) ->
- #stats_query_args{
- range=Range,
- flush=Flush
- } = parse_stats_query(Req),
-
- case Flush of
- true ->
- couch_stats_aggregator:time_passed();
- _ -> ok
- end,
-
- Stats = couch_stats_aggregator:get_json({?b2a(Module), ?b2a(Key)}, Range),
- Response = {[{Module, {[{Key, Stats}]}}]},
- send_json(Req, Response);
-
-handle_stats_req(Req) ->
- send_method_not_allowed(Req, "GET").
-
-parse_stats_query(Req) ->
- lists:foldl(fun({Key,Value}, Args) ->
- case {Key, Value} of
- {"range", Range} ->
- Args#stats_query_args{range=list_to_atom(Range)};
- {"flush", "true"} ->
- Args#stats_query_args{flush=true};
- _Else -> % unknown key value pair, ignore.
- Args
- end
- end, #stats_query_args{}, chttpd:qs(Req)).