src/couch/src/couch_app.erl

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

-behaviour(application).

-include_lib("couch/include/couch_db.hrl").

-export([
    start/2,
    stop/1,
    uptime/0
]).

start(_Type, _) ->
    case couch_sup:start_link() of
        {ok, _} = Resp ->
            {Time, _} = statistics(wall_clock),
            application:set_env(couch, start_time, Time),
            Resp;
        Else ->
            throw(Else)
    end.

stop(_) ->
    ok.

uptime() ->
    {Time, _} = statistics(wall_clock),
    Time - application:get_env(couch, start_time, Time).