Ticket #718: cpan.2.rb

# PERL CPAN support
Puppet::Type.type(:package).provide :cpan, :parent => Puppet::Provider::Package do
        desc "PERL CPAN support."

        has_feature :versionable

        commands :cpancmd => "perl"
        confine :exists   => "/etc/perl/CPAN/Config.pm" # may be Debian specific

        def install(useversion = true)
                name = @resource[:name]
                if (! @resource.should(:ensure).is_a? Symbol) and useversion
                        # we have to figure out the CPAN file name to install
                        response = self.class.info(name)
                        name = response['CPAN_FILE'].sub(/\d+\.\d+/, @resource.should(:ensure))
                end

                cmd = self.class.shell_cmd('install', name)
                begin
                        execute(cmd);
                rescue Puppet::ExecutionFailure => detail
                        raise Puppet::Error, "Could not install CPAN module: %s" % name
                end
        end

        def latest
                response = self.class.info(@resource[:name])
                if response['CPAN_VERSION']
                        return {:name => @resource[:name], :ensure => response['CPAN_VERSION'], :provider => :cpan}
                        else
                                raise Puppet::Error, "CPAN module #{@resource[:name]} not found"
                end
        end

        def query
                response = self.class.info(@resource[:name])

                return {:name => @resource[:name], :ensure => response['INST_VERSION'], :provider => :cpan}
        end

        def self.info(name)
                cmd = shell_cmd('i', name)
                response = {}
                begin
                        execute(cmd).split("\n").each do |line|
                                response[$1] = $2 if /\s{4}(\S+)\s+(.*)/.match(line)
                        end
                rescue Puppet::ExecutionFailure => detail
                        raise Puppet::Error, "Could not list CPAN modules: %s" % detail
                end
                return response
        end

        def self.shell_cmd(cmd, mod)
                [command(:cpancmd), '-MCPAN', '-e', "CPAN::Shell->#{cmd}(\"#{mod}\")"]
        end

        def self.instances
                cmd = [command(:cpancmd), '-MCPAN', '-e', '
for $mod (CPAN::Shell->expand("Module","/./")){
        $mod->inst_file ? printf("%s %s\n", $mod->id, $mod->inst_version||"none") : next;
}']

                begin
                        list = execute(cmd).split("\n").collect do |line|
                                new({:name => $1, :ensure => $2, :provider => :cpan}) if /(\S+) (\S+)/.match(line)
                        end
                rescue Puppet::ExecutionFailure => detail
                        raise Puppet::Error, "Could not list CPAN modules: %s" % detail
                end
                return list
        end

        def update
                self.install(false)
        end

end

# $Id$