# coding: utf-8

module Engine2
    class Handler < Sinatra::Base
        reset!
        API ||= "/api"

        def halt_json code, cause, message
            halt code, {'Content-Type' => 'application/json'}, {message: message, cause: cause}.to_json
        end

        def halt_forbidden cause = '', message = LOCS[:access_forbidden]
            halt_json 403, cause, message
        end

        def halt_unauthorized cause = '', message = LOCS[:access_unauthorized]
            halt_json 401, cause, message
        end

        def halt_not_found cause = '', message = LOCS[:access_not_found]
            halt_json 404, cause, message
        end

        def halt_method_not_allowed cause = '', message = LOCS[:access_method_not_allowed]
            halt_json 405, cause, message
        end

        def halt_server_error cause, message
            halt_json 500, cause, message
        end

        def permit access
            halt_forbidden 'Permission denied' unless access
        end

        def initial?
            params[:initial]
        end

        def logged_in?
            !user.nil?
        end

        def user
            session[:user]
        end

        def no_cache
            # agent = request.user_agent
            # if agent && (agent["MSIE"] || agent["Trident"])
            #     headers["Pragma"] = "no-cache"
            #     headers["Expires"] = "0"
            #     headers["Cache-Control"] = "no-cache, no-store, must-revalidate"
            # end
        end

        def post_to_json
            JSON.parse(request.body.read, symbolize_names: true) # rescue halt_server_error
        end

        def param_to_json name
            permit param = params[name]
            JSON.parse(param, symbolize_names: true) # rescue halt_server_error
        end

        def serve_api_resource verb, path
            path = path.split('/') # -1 ?
            is_meta = path.pop if path.last == 'meta'
            action = ROOT
            path.each do |pat|
                action = action[pat.to_sym]
                halt_not_found unless action
                halt_unauthorized unless action.check_access!(self)
            end

            meta = action.*
            response = if is_meta
                params[:access] ? action.access_info(self) : {meta: meta.get, actions: action.actions_info(self)}
            else
                if meta.http_method == verb && meta.invokable
                    begin
                        meta.invoke!(self)
                    rescue => error
                        attachment nil, nil
                        # content_type :json
                        serve_api_error(error)
                    end
                else
                    halt_method_not_allowed
                end
            end

            if response.is_a?(Hash)
                content_type :json
                response.to_json
            else
                response
            end
        end

        [:get, :post, :delete].each do |verb|
            send(verb, "#{API}/*"){|path| serve_api_resource(verb, path)}
        end

        def serve_api_error error
            halt_server_error Rack::Utils.escape_html(error.inspect) + "<hr>" + error.backtrace.take(30).map{|b| Rack::Utils.escape_html(b)}.join("<br>"), LOCS[:error]
        end

        get "/js/*.js" do |c|
            coffee c.to_sym
        end

        get '/*' do |name|
            headers 'Cache-Control' => 'no-cache, no-store, must-revalidate', 'Pragma' => 'no-cache', 'Expires' => '0'
            if name.empty?
                load 'engine2.rb' if settings.environment == :development
                name = 'index'
            end
            slim name.to_sym
        end

        set :slim, pretty: true, sort_attrs: false
        set :views, ["views", "#{PATH}/views"]
        set :public_folder, "#{PATH}/public"
        set :sessions, expire_after: 3600 # , :httponly => true, :secure => production?

        helpers do
            def find_template(views, name, engine, &block)
                views.each{|v| super(v, name, engine, &block)}
            end
        end

    end
end