#
# Authors:: Bryan McLellan (btm@loftninjas.org)
#           Matthew Landauer (matthew@openaustralia.org)
#           Richard Manyanza (liseki@nyikacraftsmen.com)
#           Scott Bonds (scott@ggr.com)
# Copyright:: Copyright 2009-2016, Bryan McLellan, Matthew Landauer
# Copyright:: Copyright 2014-2016, Richard Manyanza, Scott Bonds
# 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_relative "../../resource/package"
require_relative "../package"
require_relative "../../mixin/get_source_from_package"
require_relative "../../exceptions"

class Chef
  class Provider
    class Package
      class Openbsd < Chef::Provider::Package

        provides :package, os: "openbsd", target_mode: true
        provides :openbsd_package, target_mode: true

        include Chef::Mixin::ShellOut
        include Chef::Mixin::GetSourceFromPackage

        def initialize(*args)
          super
          @current_resource = Chef::Resource::Package.new(new_resource.name)
        end

        def load_current_resource
          current_resource.package_name(new_resource.package_name)
          current_resource.version(installed_version)
          current_resource
        end

        def define_resource_requirements
          super

          # Below are incomplete/missing features for this package provider
          requirements.assert(:all_actions) do |a|
            a.assertion { !new_resource.source }
            a.failure_message Chef::Exceptions::Package, "The openbsd package provider does not support the source property"
          end
          requirements.assert(:all_actions) do |a|
            a.assertion do
              if /^(.+?)--(.+)/.match?(new_resource.package_name)
                !new_resource.version
              else
                true
              end
            end
            a.failure_message Chef::Exceptions::Package, "The openbsd package provider does not support providing a version and flavor"
          end

          requirements.assert(:all_actions) do |a|
            a.assertion { !new_resource.environment }
            a.failure_message Chef::Exceptions::Package, "The environment property is not supported for package resources on this platform"
          end
        end

        def install_package(name, version)
          unless current_resource.version
            if parts = name.match(/^(.+?)--(.+)/) # use double-dash for stems with flavors, see man page for pkg_add
              name = parts[1]
            end
            shell_out!("pkg_add", "-r", package_string(name, version), env: { "PKG_PATH" => pkg_path }).status
            logger.trace("#{new_resource.package_name} installed")
          end
        end

        def remove_package(name, version)
          if parts = name.match(/^(.+?)--(.+)/)
            name = parts[1]
          end
          shell_out!("pkg_delete", package_string(name, version), env: nil).status
        end

        private

        def installed_version
          name = if parts = new_resource.package_name.match(/^(.+?)--(.+)/)
                   parts[1]
                 else
                   new_resource.package_name
                 end
          pkg_info = shell_out!("pkg_info", "-e", "#{name}->0", env: nil, returns: [0, 1])
          result = pkg_info.stdout[/^inst:#{Regexp.escape(name)}-(.+?)\s/, 1]
          logger.trace("installed_version of '#{new_resource.package_name}' is '#{result}'")
          result
        end

        def candidate_version
          @candidate_version ||= begin
            results = []
            shell_out!("pkg_info", "-I", package_string(new_resource.package_name, new_resource.version), env: nil, returns: [0, 1]).stdout.each_line do |line|
              results << if parts = new_resource.package_name.match(/^(.+?)--(.+)/)
                           line[/^#{Regexp.escape(parts[1])}-(.+?)\s/, 1]
                         else
                           line[/^#{Regexp.escape(new_resource.package_name)}-(.+?)\s/, 1]
                         end
            end
            results = results.reject(&:nil?)
            logger.trace("Candidate versions of '#{new_resource.package_name}' are '#{results}'")
            case results.length
            when 0
              []
            when 1
              results[0]
            else
              raise Chef::Exceptions::Package, "#{new_resource.package_name} has multiple matching candidates. Please use a more specific name" if results.length > 1
            end
          end
        end

        def package_string(name, version)
          if version
            "#{name}-#{version}"
          else
            name
          end
        end

        # Target Mode limitation: ENV["PKG_PATH"] cannot be evaluated, as remote commands are not run in a standard shell
        def pkg_path
          ENV["PKG_PATH"] || "http://ftp.OpenBSD.org/pub/#{node["kernel"]["name"]}/#{node["kernel"]["release"]}/packages/#{node["kernel"]["machine"]}/"
        end

      end
    end
  end
end
