#
# Author:: Adam Jacob (<adam@opscode.com>)
# Copyright:: Copyright (c) 2008 Opscode, Inc.
# License:: Apache License, Version 2.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.
#

require 'tempfile'
require 'chef/http/simple'

class Chef
  class Provider
    class HttpRequest < Chef::Provider

      provides :http_request

      attr_accessor :http

      def whyrun_supported?
        true
      end

      def load_current_resource
        @http = Chef::HTTP::Simple.new(@new_resource.url)
      end

      # Send a HEAD request to @new_resource.url
      def action_head
        message = check_message(@new_resource.message)
        # CHEF-4762: we expect a nil return value from Chef::HTTP for a "200 Success" response
        # and false for a "304 Not Modified" response
        modified = @http.head(
          "#{@new_resource.url}",
          @new_resource.headers
        )
        Chef::Log.info("#{@new_resource} HEAD to #{@new_resource.url} successful")
        Chef::Log.debug("#{@new_resource} HEAD request response: #{modified}")
        # :head is usually used to trigger notifications, which converge_by now does
        if modified != false
          converge_by("#{@new_resource} HEAD to #{@new_resource.url} returned modified, trigger notifications") {}
        end
      end

      # Send a GET request to @new_resource.url
      def action_get
        converge_by("#{@new_resource} GET to #{@new_resource.url}") do

          message = check_message(@new_resource.message)
          body = @http.get(
            "#{@new_resource.url}",
            @new_resource.headers
          )
          Chef::Log.info("#{@new_resource} GET to #{@new_resource.url} successful")
          Chef::Log.debug("#{@new_resource} GET request response: #{body}")
        end
      end

      # Send a PUT request to @new_resource.url, with the message as the payload
      def action_put
        converge_by("#{@new_resource} PUT to #{@new_resource.url}") do
          message = check_message(@new_resource.message)
          body = @http.put(
            "#{@new_resource.url}",
            message,
            @new_resource.headers
          )
          Chef::Log.info("#{@new_resource} PUT to #{@new_resource.url} successful")
          Chef::Log.debug("#{@new_resource} PUT request response: #{body}")
        end
      end

      # Send a POST request to @new_resource.url, with the message as the payload
      def action_post
        converge_by("#{@new_resource} POST to #{@new_resource.url}") do
          message = check_message(@new_resource.message)
          body = @http.post(
            "#{@new_resource.url}",
            message,
            @new_resource.headers
          )
          Chef::Log.info("#{@new_resource} POST to #{@new_resource.url} message: #{message.inspect} successful")
          Chef::Log.debug("#{@new_resource} POST request response: #{body}")
        end
      end

      # Send a DELETE request to @new_resource.url
      def action_delete
        converge_by("#{@new_resource} DELETE to #{@new_resource.url}") do
          body = @http.delete(
            "#{@new_resource.url}",
            @new_resource.headers
          )
          @new_resource.updated_by_last_action(true)
          Chef::Log.info("#{@new_resource} DELETE to #{@new_resource.url} successful")
          Chef::Log.debug("#{@new_resource} DELETE request response: #{body}")
        end
      end

      private

        def check_message(message)
          if message.kind_of?(Proc)
            message.call
          else
            message
          end
        end

    end
  end
end
