# Sun packaging.

require 'puppet/provider/package'

Puppet::Type.type(:package).provide :sun, :parent => Puppet::Provider::Package do
    desc "Sun's packaging system.  Requires that you specify the source for
        the packages you're managing."
    commands :pkginfo => "/usr/bin/pkginfo",
             :pkgadd => "/usr/sbin/pkgadd",
             :pkgrm => "/usr/sbin/pkgrm"

    defaultfor :operatingsystem => :solaris

    def self.instances
        packages = []
        hash = {}
        names = {
            "PKGINST" => :name,
            "NAME" => nil,
            "CATEGORY" => :category,
            "ARCH" => :platform,
            "VERSION" => :ensure,
            "BASEDIR" => :root,
            "HOTLINE" => nil,
            "EMAIL" => nil,
            "VENDOR" => :vendor,
            "DESC" => :description,
            "PSTAMP" => nil,
            "INSTDATE" => nil,
            "STATUS" => nil,
            "FILES" => nil
        }

        cmd = "#{command(:pkginfo)} -l"

        # list out all of the packages
        execpipe(cmd) { |process|
            # we're using the long listing, so each line is a separate
            # piece of information
            process.each { |line|
                case line
                when /^$/:
                    hash[:provider] = :sun

                    packages << new(hash)
                    hash = {}
                when /\s*(\w+):\s+(.+)/:
                    name = $1
                    value = $2
                    if names.include?(name)
                        unless names[name].nil?
                            hash[names[name]] = value
                        end
                    else
                        raise "Could not find %s" % name
                    end
                when /\s+\d+.+/:
                    # nothing; we're ignoring the FILES info
                end
            }
        }
        return packages
    end

    # Get info on a package, optionally specifying a device.
    def info2hash(device = nil)
        names = {
            "PKGINST" => :name,
            "NAME" => nil,
            "CATEGORY" => :category,
            "ARCH" => :platform,
            "VERSION" => :ensure,
            "BASEDIR" => :root,
            "HOTLINE" => nil,
            "EMAIL" => nil,
            "VSTOCK" => nil,
            "VENDOR" => :vendor,
            "DESC" => :description,
            "PSTAMP" => nil,
            "INSTDATE" => nil,
            "STATUS" => nil,
            "FILES" => nil
        }

        hash = {}
        cmd = "#{command(:pkginfo)} -l"
        if device
            cmd += " -d #{device}"
        end
        cmd += " #{@resource[:name]}"

        begin
            # list out all of the packages
            execpipe(cmd) { |process|
                # we're using the long listing, so each line is a separate
                # piece of information
                process.each { |line|
                    case line
                    when /^$/:  # ignore
                    when /\s*([A-Z]+):\s+(.+)/:
                        name = $1
                        value = $2
                        if names.include?(name)
                            unless names[name].nil?
                                hash[names[name]] = value
                            end
                        end
                    when /\s+\d+.+/:
                        # nothing; we're ignoring the FILES info
                    end
                }
            }
            return hash
        rescue Puppet::ExecutionFailure
            return nil
        end
    end

    def install
        unless @resource[:source]
            raise Puppet::Error, "Sun packages must specify a package source"
        end
        cmd = []
        
        if @resource[:adminfile]
            cmd << "-a" << @resource[:adminfile]
        end

        if @resource[:responsefile]
            cmd << "-r" << @resource[:responsefile]
        end

        cmd << "-d" << @resource[:source]
        cmd << "-n" << @resource[:name]

        pkgadd cmd
    end

    # Retrieve the version from the current package file.
    def latest
        hash = info2hash(@resource[:source])
        hash[:ensure]
    end

    def query
        info2hash()
    end

    def uninstall
        command  = ["-n"]

        if @resource[:adminfile]
            command << "-a" << @resource[:adminfile]
        end

        command << @resource[:name]
        pkgrm command
    end

    # Remove the old package, and install the new one.  This will probably
    # often fail.
    def update
        if (@property_hash[:ensure] || info2hash()[:ensure]) != :absent
            self.uninstall
        end
        self.install
    end
end

# $Id: sun.rb 2753 2007-08-07 02:38:45Z luke $