birr 0.1

data/lib/megam/config.rb

@@ -0,0 +1,56 @@
+#
+# 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 'megam/core/log'
+require 'mixlib/config'
+
+class Megam
+  class Config
+    extend(Mixlib::Config)
+    def self.inspect
+      configuration.inspect
+    end
+
+    def self.add_formatter(name, file_path=nil)
+      formatters << [name, file_path]
+    end
+
+    def self.formatters
+      @formatters ||= []
+    end
+
+    
+    # Valid log_levels are:
+    # * :debug
+    # * :info
+    # * :warn
+    # * :fatal
+    # These work as you'd expect. There is also a special `:auto` setting.
+    # When set to :auto, Birr will auto adjust the log verbosity based on
+    # context. When a tty is available (usually becase the user is running meggy
+    # in a console), the log level is set to :warn, and output formatters are
+    # used as the primary mode of output. When a tty is not available, the
+    # logger is the primary mode of output, and the log level is set to :info
+    log_level :auto
+    log_location STDOUT
+    # toggle info level log items that can create a lot of output
+    verbose_logging true
+    
+    install_file nil  
+    
+    
+
+  end
+end

data/lib/megam/core/exceptions.rb

@@ -0,0 +1,32 @@
+#
+#
+# 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.
+class Megam
+  # == Megam::Exceptions
+  # Megam's custom exceptions are all contained within the Megam::Exceptions
+  # namespace.
+  class Exceptions
+
+    class Application < RuntimeError; end
+
+    class FileNotFound < RuntimeError; end
+    
+    class WorkAreaNotFound < RuntimeError; end
+
+    class UnsupportedAction < RuntimeError; end
+
+    class MissingLibrary < RuntimeError; end
+
+
+  end
+end

data/lib/megam/core/file_cache.rb

@@ -0,0 +1,12 @@
+require 'fileutils'
+
+class Megam::FileCache
+  def store
+    file_path_array = File.split(path)
+    file_name = file_path_array.pop
+    cache_path = create_cache_path(File.join(file_path_array))
+    File.open(File.join(cache_path, file_name), "w", perm) do |io|
+      io.print(contents)
+    end
+  end
+end

data/lib/megam/core/log.rb

@@ -0,0 +1,34 @@
+#
+# 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 'logger'
+require 'mixlib/log'
+
+class Megam
+  class Log
+    extend Mixlib::Log
+
+    # Force initialization of the primary log device (@logger)
+    init
+
+
+    class Formatter
+      def self.show_time=(*args)
+        Mixlib::Log::Formatter.show_time = *args
+      end
+    end
+
+  end
+end

data/lib/megam/core/text.rb

@@ -0,0 +1,121 @@
+#
+# 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 'rubygems'
+
+class Megam
+  class Text
+
+    attr_reader :stdout
+    attr_reader :stderr
+    attr_reader :stdin
+    attr_reader :config
+
+    def initialize(stdout, stderr, stdin, config)
+      @stdout, @stderr, @stdin, @config = stdout, stderr, stdin, config
+    end
+
+    def highline
+      @highline ||= begin
+      require 'highline'
+      HighLine.new
+      end
+    end
+
+    # Prints a message to stdout. Aliased as +info+ for compatibility with
+    # the logger API.
+
+    def msg(message)
+      stdout.puts message
+    end
+
+    alias :info :msg
+
+    # Prints a msg to stderr. Used for warn, error, and fatal.
+    def err(message)
+      stderr.puts message
+    end
+
+    # Print a warning message
+    def warn(message)
+      err("#{color('WARNING:', :yellow, :bold)} #{message}")
+    end
+
+    # Print an error message
+    def error(message)
+      err("#{color('ERROR:', :red, :bold)} #{message}")
+    end
+
+    # Print a message describing a fatal error.
+    def fatal(message)
+      err("#{color('FATAL:', :red, :bold)} #{message}")
+    end
+
+    def color(string, *colors)
+      if color?
+        highline.color(string, *colors)
+      else
+      string
+      end
+    end
+
+    # Should colored output be used? For output to a terminal, this is
+    # determined by the value of `config[:color]`. When output is not to a
+    # terminal, colored output is never used
+    def color?
+      ##Chef::Config[:color] && stdout.tty? && !Chef::Platform.windows?
+      :red
+    end
+    
+    def agree(*args, &block)
+      highline.agree(*args, &block)
+    end
+
+    def ask(*args, &block)
+      highline.ask(*args, &block)
+    end
+
+    def list(*args)
+      highline.list(*args)
+    end
+
+    # Formats +data+ using the configured presenter and outputs the result
+    # via +msg+. Formatting can be customized by configuring a different
+    # presenter. See +use_presenter+
+    def output(data)
+      msg @presenter.format(data)
+    end
+
+    def ask_question(question, opts={})
+      question = question + "[#{opts[:default]}] " if opts[:default]
+
+      if opts[:default] and config[:defaults]
+        opts[:default]
+      else
+        stdout.print question
+        a = stdin.readline.strip
+
+        if opts[:default]
+          a.empty? ? opts[:default] : a
+        else
+        a
+        end
+      end
+    end
+
+    def pretty_print(data)
+      stdout.puts data
+    end
+  end
+end

data/lib/megam/install.rb

@@ -0,0 +1,125 @@
+require "mixlib/shellout"
+require "megam/birr_options"
+require "megam/core/text"
+require "megam/birr"
+require "megam/workarea"
+require "megam/transferarea"
+require "megam/cmd_verb"
+require "ruby-progressbar"
+
+class Megam
+  module Install
+
+    Birr.text.info(Birr.text.color("            |***|", :yellow, :bold))
+    Birr.text.info(Birr.text.color("      Birr  |* *| "+::Megam::VERSION, :red))
+    Birr.text.info(Birr.text.color("            |===|", :green, :bold))
+    def self.included(receiver)
+      receiver.extend(Megam::Install::ClassMethods)
+    end
+
+    WORKAREA_PRECONFIG_DIRS = %w[package dump tarball]
+
+    def self.workarea_loader
+      @workarea_loader ||= Megam::WorkAreaLoader.new(WORKAREA_PRECONFIG_DIRS)
+    end
+
+    module ClassMethods
+      #default parms del_if_exists is false
+      #message prints a dump directory string
+      def dump(options = {},&block)
+        if block_given?
+          birr_opts = BirrOptions.new(&block)
+          options[:method_name] = __method__.to_s
+          copy(options,birr_opts)
+        end
+      end
+
+      def script(options = {},&block)
+        if block_given?
+          birr_opts = BirrOptions.new(&block)
+          cmd = Megam::WorkArea.new(options)
+          options[:method_name] = "package"
+          key =  Megam::Install.workarea_loader[(File.join(options[:method_name],cmd.directory))]
+          birr_opts.command(cmd.find_package_script(options[:method_name]+'.'+cmd.directory, birr_opts.commands).fetch(key))
+          shelly(options,birr_opts)
+        end
+      end
+
+      def install(options = {},&block)
+        if block_given?
+          birr_opts = BirrOptions.new(&block)
+          cmd = Megam::WorkArea.new(options)
+          options[:method_name] = __method__.to_s
+          shelly(options,birr_opts)
+        end
+      end
+
+      def tarball(options = {},&block)
+        if block_given?
+          birr_opts = BirrOptions.new(&block)
+          cmd = Megam::WorkArea.new(options)
+          options[:method_name] = __method__.to_s
+          tar_dir =  Megam::Install.workarea_loader[(File.join(options[:method_name],cmd.directory.gsub(".", File::SEPARATOR)))]
+
+          tmp_opts = {:tar_file => File.join(tar_dir,birr_opts.tarball_file), :to_dir =>  Megam::TransferArea.convert_to_transferarea_dir(cmd.directory) }
+          birr_opts.command(Megam::CmdVerb.untar(tmp_opts))
+          shelly(options, birr_opts)
+        end
+      end
+
+      #now run the stuff in parsed block.
+      #eg.pull out the directory and copy it.
+      def copy (options, birr_opts)
+        cmd = Megam::WorkArea.new(options)
+
+        Birr.text.info(Birr.text.color("DUMP :", :green, :bold) + "dumping directory " + "#{cmd.directory}")
+
+        if cmd.directory_avail?
+          from_dir =  Megam::Install.workarea_loader[(File.join(options[:method_name],cmd.directory))]
+          to_dir = Megam::TransferArea.convert_to_transferarea_dir(cmd.directory)
+
+          goahead_copy = Birr.text.agree("Do you wish to copy files from #{from_dir}\n to #{to_dir} [y/n]?")
+
+          if Dir.exists?(from_dir) && goahead_copy
+            #formulate the shell cp command, and returns it. now feed it to shelly and execute it.
+            cp_opts = { :from_dir => from_dir,
+              :to_dir => to_dir,
+              :sudo => birr_opts.sudo?,
+              :recursive => true,
+              :copy_on_new => true}
+            birr_opts.command(Megam::CmdVerb.cp(cp_opts))
+            options[:message] = ''
+            shelly(options,birr_opts)
+          else
+            unless goahead_copy
+              then
+              Birr.text.warn "Skip : OK."
+            else
+              Birr.text.fatal "Skip : You need to specify an existing #{from_dir}\n in the :directory option to dump"
+
+            end
+          end
+        end
+      end
+
+      #now run the stuff in parsed block.
+      #eg.pull out the command and run it.
+      def shelly (options ={},birr_opts)
+        msg = ''
+        msg            = options[:message] if options[:message]
+        Birr.text.info(Birr.text.color("INSTALL :", :green, :bold) + msg.to_s) unless !msg.strip
+        command ||= birr_opts.commands
+        unless !BirrOptions.method_defined?(:command)
+          command.each do |scmd|
+            Birr.text.info(Birr.text.color("SHELL   :", :cyan, :bold) + scmd.to_s)
+            find = Mixlib::ShellOut.new(scmd.strip)
+            find.run_command
+            Birr.text.info find.stdout
+            find.error!
+          end
+        end
+      end
+    end
+
+  end
+end

data/lib/megam/transferarea.rb

@@ -0,0 +1,41 @@
+#
+# 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 "megam/core/text"
+require "megam/birr"
+
+# class responsible for converting "you", "root" to the correct directories.
+# This is not a good way to do so.
+class Megam::TransferArea
+  
+  def self.convert_to_transferarea_dir(transferarea_name)
+    temp_transferarea_name = transferarea_name.dup
+    temp_transferarea_name = temp_transferarea_name.gsub("you", transfer_you_dir) if temp_transferarea_name.match("you")
+
+    temp_transferarea_name = temp_transferarea_name.gsub("root", transfer_root_dir) if temp_transferarea_name.match("root")
+    temp_transferarea_name = temp_transferarea_name.gsub(".", File::SEPARATOR)
+    temp_transferarea_name
+  end
+
+  #the root directory. its stubbed out now to ~/Desktop/tmp/root
+  def self.transfer_root_dir
+    File.join(File::SEPARATOR)
+  end
+
+  #the home directory. its stubbed out now to ~/Desktop/tmp
+  def self.transfer_you_dir
+    File.join(ENV['HOME']) || Dir.pwd
+  end
+
+end

data/lib/megam/version.rb

@@ -0,0 +1,6 @@
+class Megam
+  ## expands the current directory of where the dew file executes and figures out the expanded
+  ## directory
+  BIRR_ROOT = File.dirname(File.expand_path(File.dirname(__FILE__)))
+  VERSION = '0.1'
+end

data/lib/megam/workarea.rb

@@ -0,0 +1,96 @@
+#
+# 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 "megam/core/text"
+require "megam/birr"
+require "megam/workarea_loader"
+
+# a class which manages the work area, ie find the files in workarea, packaging script in it.
+class Megam::WorkArea
+
+  attr_accessor :del_if_exists
+  attr_accessor :directory
+  attr_accessor :msg
+  attr_accessor :dir_glob_files
+  def initialize (options)
+    @del_if_exists = false
+    @directory      = options[:directory] if options[:directory]
+    @del_if_exists  = options[:del_if_exists] if options[:del_if_exists]
+    @msg            = options[:message] if options[:message]
+  end
+
+  def directory_avail?
+    directory
+  end
+
+  #Lists all the files under the workarea_installer/<directory>
+  #using a helper
+  def list_directory(i_dir)
+    @dir_glob_files = {}
+    @dir_glob_files ||= (find_files_via_dirglob(i_dir).values).flatten
+  end
+
+  #Lists all the files under the dir
+  def find_files_via_dirglob(i_dir)
+    dir_files = {}
+    Megam::Birr.text.info(Megam::Birr.text.color("GLOB :", :green, :bold) + "#{i_dir}")
+    if Dir.exists?(i_dir)
+      dir_files[i_dir] = Dir.glob("#{i_dir}/**/*")
+    end
+    dir_files
+  end
+
+  def self.workarea_install_directory
+    File.dirname(Megam::Config[:install_file])
+  end
+
+  def workarea_install(i_dir)
+    unless workarea_install_not_found!(i_dir)
+      File.join(workarea_install_directory,i_dir)
+    end
+  end
+
+  # :nodoc:
+  # Error out and print usage. probably becuase the arguments given by the
+  # user could not be resolved to a subcommand.
+  def workarea_install_not_found!(i_dir)
+    missing_install_dir = nil
+
+    if missing_install_dir = !(WORKAREA_PRECONFIG_DIRS.find {|wai| wai == i_dir} )
+      Megam::Birr.text.fatal("Cannot find workarea install dir  for: '#{i_dir}'")
+      exit 10
+    end
+    missing_install_dir
+  end
+
+  def find_package_script(dir,package_words)
+    adir = dir.dup
+    adir = adir.gsub(".", File.path("/"))
+    package_script_files = {}
+    matching_dir = nil
+
+    while ( package_script_files.empty? ) && ( !package_words.empty? )
+      if (!matching_dir) && (!package_words.empty?)
+        package_script ||= package_words.pop
+        matching_dir ||= Megam::Install.workarea_loader[File.join(adir.strip)]
+        package_script_files[matching_dir] = Dir.glob("#{matching_dir}/**"+ package_script)
+      end
+    end
+    package_script_files
+  end
+
+  def to_s
+    "workarea[:directory =>"+directory+"]"
+  end
+end