# This strategy is used with digest authentication in Merb.
#
# == Requirements
#
# == Methods
#   <User>.authenticate(login_field, password_field)
#
class Merb::Authentication
  module Strategies
    class Digest < Merb::Authentication::Strategy
      
      def run!
        result = @auth.call(request.env)
 
        Merb.logger.info("Digest Auth: " + result.to_a.join(', '))
        
        if result.is_a?(Array) and result[0] = 401
          self.status = result[0]
          self.headers['WWW-Authenticate'] = result[1]['WWW-Authenticate']
          self.body = self.class.failure_message + result[1]['WWW-Authenticate']
          halt!
        end
 
      end
      
      def self.realm
        @realm ||= "Application"
      end
      
      cattr_writer :realm
      def realm
        @realm ||= self.class.realm
      end
 
      cattr_accessor :failure_message
      @@failure_message = "Digest Login Required"
      
      
      private
      def initialize(request, params)
        Merb.logger.info(request.inspect)
        super
        #@auth = Rack::Auth::Digest::MD5.new(request.env)
        
        @auth = Rack::Auth::Digest::MD5.new(request.env) do |username|
          Merb.logger.info("what the hell is going on " + username)
          user = user_class.first(:login=>username)
 
          # password is encrypted, damnit!
          #Merb.logger.info("what the hell is going on " + user.crypted_password.to_s + " " + user.salt.to_s )
          { user.login => user.crypted_password }[username]
        end
        @auth.realm = realm
        
        Merb.logger.info("Digest Auth API Key is ... " + params.inspect.to_s)
        @auth.opaque = params['api_key']#'this-should-be-secret123'
        @auth
      end
 
    end # Digest
  end # Strategies
end # Merb::Authentication

# ...
 
Merb::BootLoader.before_app_loads do
  # This will get executed after dependencies have been loaded but before your app's classes have loaded.
 
  Merb::Authentication.register :digest, "lib/auth/strategies/digest.rb"
  Merb::Authentication.activate! :digest
end
 
# ...