corl 0.4.0

data/lib/corl/action/extract.rb

@@ -0,0 +1,49 @@
+
+module CORL
+module Action
+class Extract < Plugin::Action
+ 
+  #-----------------------------------------------------------------------------
+  # Action settings
+  
+  def configure
+    super do
+      codes :extract_failure
+         
+      register :path, :str, nil do |value|
+        unless File.directory?(value)
+          warn('corl.actions.extract.errors.path', { :value => value })
+          next false
+        end
+        true
+      end
+      register :encoded, :str, nil do |value|
+        @package = Util::Package.new(value)
+        if @package.data.export.empty?
+          warn('corl.actions.extract.errors.encoded', { :value => value })
+          next false  
+        end
+        true
+      end
+    end
+  end
+  
+  #---
+  
+  def arguments
+    [ :path, :encoded ]
+  end
+ 
+  #-----------------------------------------------------------------------------
+  # Action operations
+  
+  def execute
+    super do |node, network|
+      unless @package.extract(settings[:path])
+        myself.status = code.extract_failure
+      end
+    end
+  end
+end
+end
+end

data/lib/corl/action/image.rb

@@ -0,0 +1,30 @@
+
+module CORL
+module Action
+class Image < Plugin::Action
+ 
+  #-----------------------------------------------------------------------------
+  # Image action interface
+  
+  def normalize
+    super('corl image')
+  end
+ 
+  #-----------------------------------------------------------------------------
+  # Action operations
+  
+  def parse(parser)
+  end
+  
+  #---
+   
+  def execute
+    super do |node, network, status|
+      info('corl.core.actions.image.start')
+      
+      status      
+    end
+  end
+end
+end
+end

data/lib/corl/action/images.rb

@@ -0,0 +1,55 @@
+
+module CORL
+module Action
+class Images < Plugin::Action
+
+  #-----------------------------------------------------------------------------
+  # Settings
+  
+  def configure
+    super do
+      codes :node_load_failure,
+            :image_load_failure
+            
+      register :match_case, :bool, false
+      register :require_all, :bool, false
+      register :search, :array, []
+    end
+  end
+  
+  #---
+  
+  def ignore
+    node_ignore - [ :node_provider ]
+  end
+  
+  def arguments
+    [ :node_provider, :search ]
+  end
+  
+  #-----------------------------------------------------------------------------
+  # Operations
+ 
+  def execute
+    super do |local_node, network|
+      info('corl.actions.images.start')
+      
+      if node = network.test_node(settings[:node_provider])
+        if images = node.images(settings[:search], settings)
+          images.each do |image|
+            render(node.render_image(image), { :prefix => false })
+          end
+          
+          myself.result = images
+          success('corl.actions.images.results', { :images => images.length }) if images.length > 1
+        else
+          myself.status = code.image_load_failure
+        end
+      else
+        myself.status = code.node_load_failure
+      end
+    end
+  end
+end
+end
+end

data/lib/corl/action/lookup.rb

@@ -0,0 +1,35 @@
+
+module CORL
+module Action
+class Lookup < Plugin::Action
+ 
+  #-----------------------------------------------------------------------------
+  # Lookup action interface
+  
+  def normalize
+    super('corl lookup <property>') 
+  end
+
+  #-----------------------------------------------------------------------------
+  # Action operations
+  
+  def parse(parser)
+    parser.arg_str(:property, nil, 
+      'corl.core.actions.create.options.property'
+    )
+  end
+  
+  #---
+   
+  def execute
+    super do |node, network, status|
+      property = settings[:property]
+      value    = lookup(property)
+      
+      ui.success(sprintf("#{property} = %s", value.inspect))                
+      status
+    end
+  end
+end
+end
+end

data/lib/corl/action/machines.rb

@@ -0,0 +1,51 @@
+
+module CORL
+module Action
+class Machines < Plugin::Action
+
+  #-----------------------------------------------------------------------------
+  # Settings
+  
+  def configure
+    super do
+      codes :node_load_failure,
+            :machine_load_failure
+    end
+  end
+  
+  #---
+  
+  def ignore
+    node_ignore - [ :node_provider ]
+  end
+  
+  def arguments
+    [ :node_provider ]
+  end
+  
+  #-----------------------------------------------------------------------------
+  # Operations
+  
+  def execute
+    super do |local_node, network|
+      info('corl.actions.machines.start')
+      
+      if node = network.test_node(settings[:node_provider])
+        if machine_types = node.machine_types
+          machine_types.each do |machine_type|
+            render(node.render_machine_type(machine_type), { :prefix => false })
+          end
+          
+          myself.result = machine_types
+          success('corl.actions.machines.results', { :machines => machine_types.length }) if machine_types.length > 1
+        else
+          myself.status = code.machine_load_failure
+        end
+      else
+        myself.status = code.node_load_failure
+      end
+    end
+  end
+end
+end
+end

data/lib/corl/action/provision.rb

@@ -0,0 +1,37 @@
+
+module CORL
+module Action
+class Provision < Plugin::Action
+ 
+  #-----------------------------------------------------------------------------
+  # Provision action interface
+  
+  def normalize
+    super('corl provision [ <project_directory> ]')
+  end
+
+  #-----------------------------------------------------------------------------
+  # Action operations
+  
+  def parse(parser)
+    parser.option_str(:provider, nil, 
+      '--provider PROVISIONER_PROVIDER', 
+      'corl.core.actions.provision.options.provider'
+    )
+    parser.arg_str(:directory, :default, 
+      'corl.core.actions.provision.options.directory'
+    )
+  end
+  
+  #---
+   
+  def execute
+    super do |node, network, status|
+      info('corl.core.actions.provision.start')
+      
+      status
+    end
+  end
+end
+end
+end

data/lib/corl/action/remove.rb

@@ -0,0 +1,51 @@
+
+module CORL
+module Action
+class Remove < Plugin::Action
+  
+  include Mixin::Action::Project
+  include Mixin::Action::Push
+ 
+  #-----------------------------------------------------------------------------
+  # Remove action interface
+  
+  def normalize
+    super('corl remove <subproject/path>')    
+    
+    codes :project_failure => 20,
+          :delete_failure  => 21,
+          :push_failure    => 22
+  end
+ 
+  #-----------------------------------------------------------------------------
+  # Action operations
+  
+  def parse(parser)
+    parser.arg_str(:sub_path, nil, 
+      'corl.core.actions.remove.options.sub_path'
+    )
+    project_options(parser, true, true)
+    push_options(parser, true)
+  end
+  
+  #---
+   
+  def execute
+    super do |node, network, status|
+      info('corl.core.actions.remove.start')
+      
+      if project = project_load(Dir.pwd, false)
+        if project.delete_subproject(settings[:sub_path])
+          status = code.push_failure unless push(project)
+        else
+          status = code.delete_failure
+        end
+      else
+        status = code.project_failure  
+      end      
+      status
+    end
+  end
+end
+end
+end

data/lib/corl/action/save.rb

@@ -0,0 +1,53 @@
+
+module CORL
+module Action
+class Save < Plugin::Action
+  
+  include Mixin::Action::Project
+  include Mixin::Action::Commit
+  include Mixin::Action::Push
+ 
+  #-----------------------------------------------------------------------------
+  # Save action interface
+  
+  def normalize
+    super('corl save [ <file> ... ]')    
+    
+    codes :project_failure => 20,
+          :commit_failure  => 21,
+          :push_failure    => 22
+  end
+
+  #-----------------------------------------------------------------------------
+  # Action operations
+  
+  def parse(parser)
+    parser.arg_array(:files, '.', 
+      'corl.core.actions.save.options.files'
+    )
+    project_options(parser, true, false)
+    commit_options(parser, false)
+    push_options(parser, true)
+  end
+  
+  #---
+   
+  def execute          
+    super do |node, network, status|
+      info('corl.core.actions.save.start')
+          
+      if project = project_load(Dir.pwd, false)
+        if commit(project, settings[:files])
+          status = code.push_failure unless push(project)
+        else
+          status = code.commit_failure
+        end
+      else
+        status = code.project_failure
+      end
+      status
+    end
+  end
+end
+end
+end

data/lib/corl/action/seed.rb

@@ -0,0 +1,115 @@
+
+module CORL
+module Action
+class Seed < Plugin::Action
+ 
+  #-----------------------------------------------------------------------------
+  # Settings
+  
+  def configure
+    super do
+      codes :key_store_failure,
+            :project_failure,
+            :network_init_failure,
+            :network_load_failure,
+            :node_load_failure,
+            :node_save_failure
+      #---
+      
+      register :project_branch, :str, 'master'
+      register :project_reference, :str, nil do |value|
+        value           = value.to_sym
+        project_plugins = Manager.connection.loaded_plugins(:project)
+        
+        if @project_info = Plugin::Project.translate_reference(value, true)
+          provider = @project_info[:provider]
+        else
+          provider = value
+        end
+        
+        unless project_plugins.keys.include?(provider.to_sym)
+          warn('corl.actions.seed.errors.project_reference', { :value => value, :provider => provider, :choices => project_plugins.keys.join(', ') })
+          next false
+        end
+        true
+      end      
+    end
+  end
+  
+  #---
+  
+  def arguments
+    [ :project_reference ]
+  end
+
+  #-----------------------------------------------------------------------------
+  # Operations
+   
+  def execute
+    super do |node, network|
+      info('corl.actions.seed.start')
+      
+      if node && network
+        admin_exec do
+          network_path = lookup(:corl_network)
+          backup_path  = File.join(Dir.tmpdir(), 'corl')
+          
+          render("Generating network SSH deploy keys")
+          
+          if keys = Util::SSH.generate.store
+            if @project_info
+              project_info = Config.new(@project_info)
+            else
+              project_info = Config.new({ :provider => :git })
+            end
+            
+            render("Backing up current network configuration")
+            FileUtils.rm_rf(backup_path)
+            FileUtils.mv(network_path, backup_path)
+            
+            render("Seeding network configuration from #{settings[:project_reference]}")
+            project = CORL.project(extended_config(:project, {
+              :directory => network_path,
+              :reference => project_info.get(:reference, nil),
+              :url       => project_info.get(:url, settings[:project_reference]),
+              :revision  => project_info.get(:revision, settings[:project_branch]),
+              :create    => true,
+              :pull      => true,
+              :keys      => keys
+            }), project_info[:provider])
+        
+            if project
+              render("Finalizing network path and removing temporary backup")
+              FileUtils.chmod_R(0600, network_path)
+              FileUtils.rm_rf(backup_path)
+              
+              render("Reinitializing network")
+              if network = init_network
+                if network.load
+                  if node = network.local_node
+                    render("Updating node network configurations")
+                    myself.status = code.node_save_failure unless node.save  
+                  else
+                    myself.status = code.node_load_failure
+                  end                  
+                else
+                  myself.status = code.network_load_failure    
+                end
+              else
+                myself.status = code.network_init_failure
+              end     
+            else
+              myself.status = code.project_failure  
+            end            
+          else
+            myself.status = code.key_store_failure
+          end
+        end
+      else
+        myself.status = code.network_load_failure    
+      end
+    end
+  end
+end
+end
+end

data/lib/corl/action/spawn.rb

@@ -0,0 +1,75 @@
+
+module CORL
+module Action
+class Spawn < Plugin::Action
+  
+  include Mixin::Action::Keypair
+ 
+  #----------------------------------------------------------------------------
+  # Settings
+  
+  def configure
+    super do
+      codes :network_failure,
+            :key_failure,
+            :node_create_failure
+            
+      register :region, :str, nil
+      register :machine_type, :str, nil
+      register :image, :str, nil      
+      register :hostnames, :array, nil
+        
+      keypair_config
+      
+      bootstrap = CORL.action_config(:bootstrap)
+      config.defaults(bootstrap.config) if bootstrap
+      
+      if seed = CORL.action_config(:seed)
+        seed.config[:project_reference].default = "github:::coraltech/cluster-test[master]"
+        config.defaults(seed.config)
+      end
+    end
+  end
+  
+  #---
+  
+  def ignore
+    node_ignore - [ :parallel, :node_provider ] + [ :bootstrap_nodes ]
+  end
+  
+  def arguments
+    [ :node_provider, :image, :hostnames ]
+  end
+  
+  #-----------------------------------------------------------------------------
+  # Operations
+ 
+  def execute
+    super do |node, network|
+      info('corl.core.actions.spawn.start')      
+      
+      if network
+        if keypair && keypair_clean
+          results       = []
+          node_provider = settings.delete(:node_provider)
+                         
+          settings.delete(:hostnames).each do |hostname|
+            if settings[:parallel]
+              results << network.future.add_node(node_provider, hostname, settings)
+            else
+              results << network.add_node(node_provider, hostname, settings)    
+            end
+          end
+          results     = results.map { |future| future.value } if settings[:parallel]                  
+          myself.status = code.batch_error if results.include?(false)
+        else
+          myself.status = code.key_failure  
+        end        
+      else
+        myself.status = code.network_failure    
+      end
+    end
+  end
+end
+end
+end

data/lib/corl/action/start.rb

@@ -0,0 +1,37 @@
+
+module CORL
+module Action
+class Start < Plugin::Action
+ 
+  #-----------------------------------------------------------------------------
+  # Start action interface
+  
+  def normalize
+    super('corl start <node_reference>')
+  end
+
+  #-----------------------------------------------------------------------------
+  # Action operations
+  
+  def parse(parser)
+    parser.option_str(:provider, :rackspace,
+      '--provider DEFAULT_NODE_PROVIDER', 
+      'corl.core.actions.start.options.provider'
+    )
+    parser.arg_str(:node_reference, nil, 
+      'corl.core.actions.start.options.node_reference'
+    )
+  end
+  
+  #---
+   
+  def execute
+    super do |node, network, status|
+      info('corl.core.actions.start.start')
+      
+      status
+    end
+  end
+end
+end
+end

data/lib/corl/action/stop.rb

@@ -0,0 +1,30 @@
+
+module CORL
+module Action
+class Stop < Plugin::Action
+ 
+  #-----------------------------------------------------------------------------
+  # Stop action interface
+  
+  def normalize
+    super('corl stop')
+  end
+
+  #-----------------------------------------------------------------------------
+  # Action operations
+  
+  def parse(parser)
+  end
+  
+  #---
+   
+  def execute
+    super do |node, network, status|
+      info('corl.core.actions.stop.start')
+      
+      status
+    end
+  end
+end
+end
+end

data/lib/corl/action/update.rb

@@ -0,0 +1,37 @@
+
+module CORL
+module Action
+class Update < Plugin::Action
+  
+  include Mixin::Action::Project
+ 
+  #-----------------------------------------------------------------------------
+  # Update action interface
+  
+  def normalize
+    super('corl update')    
+    
+    codes :project_failure => 20
+  end
+  
+  #-----------------------------------------------------------------------------
+  # Action operations
+  
+  def parse(parser)
+    project_options(parser, true, true)
+  end
+  
+  #---
+   
+  def execute
+    super do |node, network, status|
+      info('corl.core.actions.update.start')
+      
+      project = project_load(Dir.pwd, true)
+      status  = code.project_failure unless project
+      status
+    end
+  end
+end
+end
+end