coral_core 0.2.30 → 0.4.0

data/lib/coral/command/shell.rb

@@ -1,140 +0,0 @@
-
-module Coral
-module Command
-class Shell < Plugin::Command
-   
-  #-----------------------------------------------------------------------------
-  # Command operations
-  
-  def normalize
-    super
-    set(:command, executable(self))
-  end
-
-  #---
-  
-  def build(components = {}, overrides = nil, override_key = false)    
-    
-    command            = string(components[:command])
-    flags              = array( components.has_key?(:flags) ? components[:flags] : [] )
-    data               = string_map(hash( components.has_key?(:data) ? components[:data] : {} ))
-    args               = array( components.has_key?(:args) ? components[:args] : [] )
-    subcommand         = hash( components.has_key?(:subcommand) ? components[:subcommand] : {} )
-    
-    override_key       = command unless override_key
-    override_key       = override_key.to_sym
-    
-    command_string     = command.dup
-    subcommand_string  = ''
-    
-    escape_characters  = /[\'\"]+/
-    escape_replacement = '\"'
-    
-    dash_pattern       = /^([\-]+)/
-    assignment_pattern = /\=$/
-    
-    # Flags
-    if overrides && overrides.has_key?(:flags)
-      if overrides[:flags].is_a?(Hash)
-        if overrides[:flags].has_key?(override_key)
-          flags = array(overrides[:flags][override_key])
-        end
-      else
-        flags = array(overrides[:flags])
-      end
-    end
-    flags.each do |flag|
-      flag = string(flag)
-      if ! flag.empty?        
-        if flag.match(dash_pattern)
-          dashes = $1
-        else
-          dashes = ( flag.size == 1 ? '-' : '--' )  
-        end
-        command_string << " #{dashes}#{flag}"
-      end
-    end
-    
-    # Data
-    if overrides && overrides.has_key?(:data)
-      if overrides[:data].has_key?(override_key)
-        data = hash(overrides[:data][override_key])
-      else
-        override = true
-        overrides[:data].each do |key, value|
-          if ! value.is_a?(String)
-            override = false
-          end
-        end
-        data = hash(overrides[:data]) if override
-      end
-    end
-    data.each do |key, value|
-      key   = string(key)
-      value = string(value).strip.sub(escape_characters, escape_replacement)
-      
-      if key.match(dash_pattern)
-        dashes = $1
-      else
-        dashes = ( key.size == 1 ? '-' : '--' )  
-      end      
-      space = ( key.match(assignment_pattern) ? '' : ' ' )  
-      
-      command_string << " #{dashes}#{key}#{space}'#{value}'"
-    end
-    
-    # Arguments
-    if overrides && overrides.has_key?(:args)
-      if overrides[:args].is_a?(Hash)
-        if overrides[:args].has_key?(override_key)
-          args = array(overrides[:args][override_key])
-        end
-      else
-        args = array(overrides[:args])
-      end
-    end
-    args.each do |arg|
-      arg = string(arg).sub(escape_characters, escape_replacement)
-      command_string << " '#{arg}'"
-    end
-    
-    # Subcommand
-    subcommand_overrides = ( overrides ? overrides[:subcommand] : nil )
-    if subcommand && subcommand.is_a?(Hash) && ! subcommand.empty?
-      subcommand_string = build(subcommand, subcommand_overrides)
-    end
-    
-    return (command_string + ' ' + subcommand_string).strip
-  end
-  
-  #-----------------------------------------------------------------------------
-    
-  def exec!(options = {}, overrides = nil)
-    config = Config.ensure(options)
-    
-    config[:ui] = @ui
-    success = Util::Shell.exec!(build(properties, overrides), config) do |line|
-      block_given? ? yield(line) : true
-    end    
-    return success
-  end
-  
-  #-----------------------------------------------------------------------------
-  # Utilities
-  
-  def executable(options)
-    config = Config.ensure(options)
-    
-    if config.get(:coral, false)
-      return 'vagrant coral ' + config[:coral]
-        
-    elsif config.get(:vagrant, false)
-      return 'vagrant ' + config[:vagrant]
-        
-    elsif config.get(:command, false)
-      return config[:command]
-    end
-  end  
-end
-end
-end

data/lib/coral/machine/fog.rb

@@ -1,215 +0,0 @@
-
-module Coral
-module Machine
-class Fog < Plugin::Machine
-  
-  include Mixin::SubConfig
-  
-  #-----------------------------------------------------------------------------
-  # Machine plugin interface
-  
-  def normalize
-    super
-    set_connection
-  end
-     
-  #-----------------------------------------------------------------------------
-  # Checks
-  
-  def created?
-    return server && ! server.state != 'DELETED'
-  end
-  
-  #---
-  
-  def running?
-    return created? && server.ready?
-  end
-   
-  #-----------------------------------------------------------------------------
-  # Property accessors / modifiers
-  
-  def set_connection
-    set(:compute, Fog::Compute.new(_export))
-  end
-  protected :set_connection
-  
-  #---
-  
-  def compute
-    return get(:compute)
-  end
-  
-  #---
-  
-  def server
-    return get(:server)
-  end
-  
-  #---
-  
-  def name
-    return ( server ? server.id : '' )
-  end
-  
-  #---
-  
-  def name=id
-    set(:server, compute.servers.get(id)) if id    
-  end
-  
-  #---
-  
-  def hostname
-    return server.name if server
-    return ''
-  end
-  
-  #---
-  
-  def state
-    return server.state if server
-    return nil
-  end
-  
-  #---
-  
-  def public_ip
-    return server.public_ip_address if server
-    return nil
-  end
-  
-  #---
-  
-  def private_ip
-    return server.private_ip_address if server
-    return nil
-  end
-  
-  #---
-  
-  def flavors
-    return compute.flavors if compute
-    return nil
-  end
-  
-  #---
-  
-  def flavor
-    return server.flavor if server
-    return nil
-  end
-  
-  #---
-  
-  def images
-    return compute.images if compute
-    return nil
-  end
-  
-  #---
-  
-  def image
-    return server.image if server
-    return nil
-  end
-  
-  #-----------------------------------------------------------------------------
-  # Management
-
-  def create(options = {})
-    success = super(options)
-    if success && ! created?
-      set(:server, compute.servers.bootstrap(options))
-    end
-    return success
-  end
-  
-  #---
-  
-  def start(options = {})
-    success = super(options)
-    if success
-      unless created?
-        return create(options)
-      end
-      unless running?
-        server_info = compute.servers.create(options)
-      
-        Fog.wait_for do
-          compute.servers.get(server_info.id).ready? ? true : false
-        end      
-        @server = compute.servers.get(server_info.id)
-      end
-    end
-    return success
-  end
-  
-  #---
-  
-  def stop(options = {})
-    success = super(options)
-    if success && running?
-      if image_id = create_image(name)
-      
-        Fog.wait_for do
-          compute.images.get(image_id).ready? ? true : false
-        end
-      
-        server.destroy
-        return image_id
-      end
-    end
-    return success
-  end
-  
-  #---
-  
-  def reload(options = {})
-    success = super(options)
-    if success && created?
-      # Don't quite know what this should do yet??
-      return server.reboot(options)  
-    end
-    return success
-  end
-
-  #---
-
-  def destroy(options = {})
-    success = super(options)   
-    if success && created?
-      return server.destroy(options)  
-    end
-    return success
-  end
- 
-  #---
-  
-  def exec(options = {})
-    success = super(options)
-    if success && running?
-      if commands = options.delete(:commands)
-        return server.ssh(commands, options)
-      end
-    end
-    return success
-  end
-  
-  #---
- 
-  def create_image(name, options = {})
-    success = super(options)
-    if success && created?
-      image = server.create_image(name, options)
-      return ( image ? image.id : false )
-    end
-    return success
-  end
-   
-  #-----------------------------------------------------------------------------
-  # Utilities
-
-end
-end
-end

data/lib/coral/network/default.rb

@@ -1,26 +0,0 @@
-
-module Coral
-module Network
-class Default < Plugin::Network
- 
-  #-----------------------------------------------------------------------------
-  # Cloud plugin interface
-   
-  def normalize
-    super
-  end
-       
-  #-----------------------------------------------------------------------------
-  # Checks
-    
-   
-  #-----------------------------------------------------------------------------
-  # Property accessors / modifiers
-
-
-  #-----------------------------------------------------------------------------
-  # Coral cloud operations
-     
-end
-end
-end

data/lib/coral/node/rackspace.rb

@@ -1,23 +0,0 @@
-
-module Coral
-module Node
-class Rackspace < Plugin::Node
- 
-  #-----------------------------------------------------------------------------
-  # Node plugin interface
-   
-  def normalize
-    #super
-    dbg('hello from rackspace node')
-  end
-       
-  #-----------------------------------------------------------------------------
-  # Checks
-    
-   
-  #-----------------------------------------------------------------------------
-  # Property accessors / modifiers
-    
-end
-end
-end

data/lib/coral_core/config/collection.rb

@@ -1,57 +0,0 @@
-
-module Coral
-class Config
-class Collection
-
-  #-----------------------------------------------------------------------------
-  # Property accessor / modifiers
-
-  @@properties = {}
-  
-  #---
-  
-  def self.all
-    return @@properties
-  end
-  
-  #---
-  
-  def self.get(name)
-    return @@properties[name.to_sym]
-  end
-  
-  #---
-  
-  def self.set(name, value)
-    @@properties[name.to_sym] = value
-  end
-  
-  #---
-  
-  def self.delete(name)
-    @@properties.delete(name.to_sym)
-  end
-   
-  #---
-  
-  def self.clear
-    @@properties = {}
-  end
-  
-  #---
-  
-  def self.save
-    log_options = Options.get(:coral_log)
-    
-    unless Util::Data.empty?(log_options[:config_log])
-      config_log = log_options[:config_log]
-      
-      if log_options[:config_store]
-        Util::Disk.write(config_log, MultiJson.dump(@@properties, :pretty => true))
-        Util::Disk.close(config_log)
-      end
-    end
-  end
-end
-end
-end