automateit 0.71031.1 → 0.71031.2

data/CHANGES.txt

@@ -1,3 +1,13 @@
+0.71031.2:
+    Date: Wed, 31 Oct 2007 23:48:41 -0700
+    Desc:
+    - (+) Added PackageManager::PEAR and PackageManager::PECL, graciously contributed by David Brewer.
+
+0.71031.1:
+    Date: Wed, 31 Oct 2007 13:15:30 -0700
+    Desc:
+    - (%) Fixed bug in EditSession methods, these weren't escaping regular expression characters in strings. Refactored some of these methods for clarity.
+
 0.71031:
     Date: Wed, 31 Oct 2007 02:58:58 -0700
     Desc:

data/lib/automateit/package_manager.rb

@@ -240,3 +240,5 @@ require 'automateit/package_manager/yum'
 require 'automateit/package_manager/gem'
 require 'automateit/package_manager/egg'
 require 'automateit/package_manager/portage'
+require 'automateit/package_manager/pear'
+require 'automateit/package_manager/pecl'

data/lib/automateit/package_manager/pear.rb

@@ -0,0 +1,89 @@
+# == PackageManager::PEAR
+#
+# A PackageManager driver for PEAR (PHP Extension and Application Repository),
+# manages software packages using the <tt>pear</tt> command.
+#
+# === Using specific channels
+#
+# To install a package from the default PEAR channel, just specify it's name,
+# e.g. <tt>HTML_QuickForm</tt>.
+#
+# To install a package from another channel, you must specify the name prefixed
+# with the channel's URL, e.g. <tt>pear.symfony-project.com/symfony</tt>, so
+# that the channel can be automatically added as needed.
+#
+# *IMPORTANT*: DO NOT specify a remote channel's alias, e.g.
+# <tt>symfony/symfony</tt>, because this provides no way to discover the
+# channel.
+class ::AutomateIt::PackageManager::PEAR < ::AutomateIt::PackageManager::BaseDriver
+  depends_on :programs => %w(pear)
+
+  def suitability(method, *args) # :nodoc:
+    # Never select as default driver
+    return 0
+  end
+
+  # Retrieve a hash containing all installed packages, indexed by package
+  # name.  Each value is a hash containing values for :version and :state.
+  def get_installed_packages()
+    cmd = "pear list --allchannels 2>&1"
+    data = `#{cmd}`
+    installed_packages = {}
+    data.scan(/^([^(\s]+)\s+([^\s]+)\s+([^\s]+)$/) do |package, version, state|
+      next if version.upcase == 'VERSION'
+      installed_packages[package] = {:version => version, :state => state}
+    end
+    return installed_packages
+  end
+  protected :get_installed_packages
+
+  # See AutomateIt::PackageManager#installed?
+  def installed?(*packages)
+    return _installed_helper?(*packages) do |list, opts|
+      all_installed = get_installed_packages().keys.collect {|pkg| pkg.downcase}
+
+      result = []
+      list.each do |pkg|
+        pkg_without_channel = pkg.gsub(%r{^[^/]+/}, '').downcase
+        result.push pkg if all_installed.include?(pkg_without_channel)
+      end
+
+      result
+    end
+  end
+
+  # See AutomateIt::PackageManager#not_installed?
+  def not_installed?(*packages)
+    return _not_installed_helper?(*packages)
+  end
+
+  # *IMPORTANT*: See documentation at the top of this file for how to correctly
+  # install packages from a specific channel.
+  #
+  # See AutomateIt::PackageManager#install
+  def install(*packages)
+    return _install_helper(*packages) do |list, opts|
+      # pear options:
+      # -a install all required dependencies
+
+      cmd = "(pear config-set auto_discover 1; "
+      cmd << "pear install -a "+list.join(" ")+" < /dev/null)"
+      cmd << " > /dev/null" if opts[:quiet]
+      cmd << " 2>&1"
+
+      interpreter.sh(cmd)
+    end
+  end
+
+  # See AutomateIt::PackageManager#uninstall
+  def uninstall(*packages)
+    return _uninstall_helper(*packages) do |list, opts|
+
+      cmd = "pear uninstall "+list.join(" ")+" < /dev/null"
+      cmd << " > /dev/null" if opts[:quiet]
+      cmd << " 2>&1"
+
+      interpreter.sh(cmd)
+    end
+  end
+end

data/lib/automateit/package_manager/pecl.rb

@@ -0,0 +1,74 @@
+# == PackageManager::PECL
+#
+# A PackageManager driver for PECL (PHP Extension Community Library), manages
+# software packages using the <tt>pecl</tt> command.
+class ::AutomateIt::PackageManager::PECL < ::AutomateIt::PackageManager::BaseDriver
+  depends_on :programs => %w(pecl)
+
+  def suitability(method, *args) # :nodoc:
+    # Never select as default driver
+    return 0
+  end
+
+  # Retrieve a hash containing all installed packages, indexed by package
+  # name.  Each value is a hash containing values for :channel, :version,
+  # and :state.
+  def get_installed_packages()
+    cmd = "pecl list -a 2>&1"
+    data = `#{cmd}`
+    installed_packages = {}
+    data.scan(/^([^(\s]+)\s+([^\s]+)\s+([^\s]+)$/) do |package, version, state|
+      next if version.upcase == 'VERSION'
+      installed_packages[package] = {:version => version, :state => state}
+    end
+    return installed_packages
+  end
+  protected :get_installed_packages
+
+  # See AutomateIt::PackageManager#installed?
+  def installed?(*packages)
+    return _installed_helper?(*packages) do |list, opts|
+      all_installed = get_installed_packages().keys.collect {|pkg| pkg.downcase}
+
+      result = []
+      list.each do |pkg|
+        pkg_without_channel = pkg.gsub(%r{^[^/]+/}, '').downcase
+        result.push pkg if all_installed.include?(pkg_without_channel)
+      end
+
+      result
+    end
+  end
+
+
+  # See AutomateIt::PackageManager#not_installed?
+  def not_installed?(*packages)
+    return _not_installed_helper?(*packages)
+  end
+
+  # See AutomateIt::PackageManager#install
+  def install(*packages)
+    return _install_helper(*packages) do |list, opts|
+      # pecl options:
+      # -a install all required dependencies
+
+      cmd = "pecl install -a "+list.join(" ")+" < /dev/null"
+      cmd << " > /dev/null" if opts[:quiet]
+      cmd << " 2>&1"
+
+      interpreter.sh(cmd)
+    end
+  end
+
+  # See AutomateIt::PackageManager#uninstall
+  def uninstall(*packages)
+    return _uninstall_helper(*packages) do |list, opts|
+
+      cmd = "pecl uninstall "+list.join(" ")+" < /dev/null"
+      cmd << " > /dev/null" if opts[:quiet]
+      cmd << " 2>&1"
+
+      interpreter.sh(cmd)
+    end
+  end
+end

data/lib/automateit/root.rb

@@ -1,7 +1,7 @@
 # See AutomateIt::Interpreter for usage information.
 module AutomateIt # :nodoc:
   # AutomateIt version
-  VERSION=Gem::Version.new("0.71031.1")
+  VERSION=Gem::Version.new("0.71031.2")
 
   # Instantiates a new Interpreter. See documentation for
   # Interpreter#setup.

data/spec/integration/package_manager_spec.rb

@@ -77,6 +77,8 @@ else
     :portage => "arc", # Obscure package for extracting ARC files from the 80's
     :gem => "s33r", # Alpha-grade package its author deprecated in favor of another
     :egg => "_sre.py", # Slower reimplementation of ancient Python Regexps
+    :pear => "File_DICOM", # Obscure package for DICOM X-rays, abandoned in 2003
+    :pecl => "ecasound", # Obscure package for Ecasound libs, abandoned in 2003
     ### :cpan => "Acme::please", # Insane gimmick port of intercal's please statements
   }
 

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.9.4
 specification_version: 1
 name: automateit
 version: !ruby/object:Gem::Version 
-  version: 0.71031.1
-date: 2007-10-31 00:00:00 -07:00
+  version: 0.71031.2
+date: 2007-11-01 00:00:00 -07:00
 summary: AutomateIt is an open source tool for automating the setup and maintenance of servers, applications and their dependencies.
 require_paths: 
 - lib
@@ -107,7 +107,9 @@ files:
 - lib/automateit/plugin/base.rb
 - lib/automateit/plugin/driver.rb
 - lib/automateit/plugin/manager.rb
+- lib/automateit/package_manager/pear.rb
 - lib/automateit/package_manager/apt.rb
+- lib/automateit/package_manager/pecl.rb
 - lib/automateit/package_manager/gem.rb
 - lib/automateit/package_manager/egg.rb
 - lib/automateit/package_manager/yum.rb