moser/foxtrot_mike

class ApplicationController < ActionController::Base
  layout 'application'
  helper :all # include all helpers, all the time
  #protect_from_forgery # See ActionController::RequestForgeryProtection for details

  before_filter :parse_after
  before_filter :parse_json
  before_filter :parse_date_time
  before_filter { javascript; stylesheet; true }
  before_filter do
    if request.format == Mime::JSON && !current_account_session
      authenticate_with_http_basic do |u, pass|
        @current_account_session = AccountSession.find
      end
    end
  end

  helper_method :current_account, :current_path

  def current_account_session
    return @current_account_session if defined?(@current_account_session)
    @current_account_session = AccountSession.find
  end

  def current_account
    @current_account ||= current_account_session && current_account_session.record
  end

  def current_ability
    @current_ability ||= Ability.new(current_account)
  end

  def current_path
    request.path
  end

  def parse_after
    @after = Time.at(params[:after].to_i).utc rescue nil if params.has_key? :after
  end

  def parse_date_time
    parse_date_time_rec(params)
  end

  PA = { "datetime" => "%d.%m.%Y %H:%M", "date" => "%d.%m.%Y" }
  CL = { "date" => Date, "datetime" => DateTime }

  def parse_date_time_rec(h)
    add = {}
    h.each do |k, v|
      if v.is_a?(Hash)
        parse_date_time_rec(v)
      elsif v.is_a?(String) && m = k.to_s.match(/^(.*)_parse_(datetime|date|time)$/)
        h.delete(k)
        d = nil
        if v =~ Regexp.new(PA[m[2]].gsub(/(%d|%m|%H|%M)/, "\\d{2}").gsub(/%Y/, "\\d{4}"))
          d = DateTime.strptime(v, PA[m[2]])
        else
          d = CL[m[2]].parse(v) rescue nil
        end
        add["#{m[1]}".to_sym] = d
      end
    end
    add.each { |k, v| h[k] = v }
  end

  def parse_json
    if params[:json]
      add = {}
      params.each do |k, v|
        if m = k.to_s.match(/(.*)_json/)
          add[m[1].to_sym] = parse_json_dates(ActiveSupport::JSON.decode(v))
        end
      end
      add.each { |k, v| params[k] = v }
    end
  end

  def parse_json_dates(obj)
   if obj.is_a?(Hash)
      obj.keys.each do |k|
        obj[k] = parse_json_dates(obj[k])
      end
      obj
    elsif obj.is_a?(Array)
      obj.map { |e| parse_json_dates(e) }
    elsif obj.is_a?(String) && obj =~ /^\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}(\+\d{2}:\d{2}|Z)$/
      if obj =~ /^\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}\+\d{2}:\d{2}$/
        DateTime.strptime(obj, "%Y-%m-%dT%H:%M:%S%z")
      else
        DateTime.strptime(obj, "%Y-%m-%dT%H:%M:%SZ")
      end
    else
      obj
    end
  end

  def self.javascript(*args)
    @include_javascript_files ||= []
    @include_javascript_files += args.map { |f| f.to_s }
    @include_javascript_files.uniq
  end

  def javascript(*args)
    @include_javascript_files ||= self.class.javascript
    @include_javascript_files += args.map { |f| f.to_s }
    @include_javascript_files.uniq
  end

  def self.stylesheet(*args)
    @include_stylesheet_files ||= []
    @include_stylesheet_files += args.map { |f| f.to_s }
    @include_stylesheet_files.uniq
  end

  def stylesheet(*args)
    @include_stylesheet_files ||= self.class.stylesheet
    @include_stylesheet_files += args.map { |f| f.to_s }
    @include_stylesheet_files.uniq
  end

  def model_by_id
    eval "@model = @#{model_name.underscore} = #{model_class}.find(params[:id])"
  end

  def model_all(conditions = nil, order = nil)
    eval "@models = @#{model_name.pluralize.underscore} = #{model_class}.where(conditions)#{order && !order.blank? ? ".reorder(order)" : ""}"
  end

  def model_all_or_after(conditions = nil, order = nil)
    if @after.nil?
      model_all(conditions, order)
    else
      eval "@models = @#{model_name.pluralize.underscore} = #{model_class}.where(conditions).where(['updated_at > ?', @after])#{order ? ".reorder(order)" : ""}"
    end
  end

  def model_new
    eval "@model = @#{model_name.underscore} = #{model_class}.new(params[:#{model_name.underscore}])"
  end

  def model_name
    @model_name ||= self.class.name.gsub("Controller", "").singularize
  end

  def model_class
    model_name.constantize
  end

  def parse_date(h, k)
    Date.new(h["#{k}(1i)"].to_i, h["#{k}(2i)"].to_i, h["#{k}(3i)"].to_i) rescue nil
  end

  def self.nested(parent = nil)
    @parent ||= parent
  end

  def nested
    self.class.nested
  end

  def nested_id
    params[:"#{nested}_id"]
  end

  def find_nested
    @nested = instance_values[nested.to_s] = nested.to_s.camelize.constantize.find(nested_id)
  end

  rescue_from CanCan::AccessDenied do |exception|
    if request.format == Mime::JSON
      render :text => "", :status => 401
    elsif current_account
      redirect_to "/403.html"
    else
      session[:redirect_to_after_login] = current_path
      redirect_to "/login"
    end
  end

private
  def date_from_is(hash, key)
    Date.new(*[hash["#{key}(1i)"], hash["#{key}(2i)"], hash["#{key}(3i)"]].map { |e| e.to_i })
  end
end