corl 0.4.0

data/lib/corl/node/fog.rb

@@ -0,0 +1,198 @@
+
+module CORL
+module Node
+class Fog < Plugin::Node
+ 
+  #-----------------------------------------------------------------------------
+  # Node plugin interface
+   
+  def normalize
+    super
+    myself.region = region
+    
+    yield if block_given?    
+    myself.machine = create_machine(:machine, :fog, machine_config)
+  end
+       
+  #-----------------------------------------------------------------------------
+  # Checks
+  
+  #-----------------------------------------------------------------------------
+  # Property accessors / modifiers
+  
+  def api_user=api_user
+    myself[:api_user] = api_user
+  end
+  
+  def api_user
+    myself[:api_user]
+  end
+  
+  #---
+  
+  def api_key=api_key
+    myself[:api_key] = api_key
+  end
+  
+  def api_key
+    myself[:api_key]
+  end
+  
+  #---
+  
+  def auth_url=auth_url
+    myself[:auth_url] = auth_url
+  end
+  
+  def auth_url
+    myself[:auth_url]
+  end
+  
+  #---
+  
+  def connection_options=options
+    myself[:connection_options] = options
+  end
+  
+  def connection_options
+    myself[:connection_options]
+  end
+  
+  #---
+  
+  def regions
+    []
+  end
+  
+  def region=region
+    myself[:region] = region
+  end
+  
+  def region
+    if region = myself[:region]
+      region
+    else
+      first_region = regions.first
+      myself.region  = first_region
+      first_region
+    end
+  end
+  
+  #-----------------------------------------------------------------------------
+  # Settings groups
+    
+  def machine_config
+    super do |config|        
+      config[:connection_options] = connection_options if connection_options
+      yield(config) if block_given?
+    end
+  end
+  
+  #---
+  
+  def exec_options(name, options = {})
+    extended_config(name, options).export
+  end
+  
+  #-----------------------------------------------------------------------------
+  # Node operations
+  
+  def create(options = {})
+    super do |op, config|
+      if op == :config
+        config.import(exec_options(:create))
+      end
+      yield(op, config) if block_given?
+    end
+  end
+  
+  #---
+  
+  def download(remote_path, local_path, options = {})
+    super do |op, config|
+      if op == :config
+        config.import(exec_options(:download))
+      end
+      yield(op, config) if block_given?
+    end
+  end
+  
+  #---
+  
+  def upload(local_path, remote_path, options = {})
+    super do |op, config|
+      if op == :config
+        config.import(exec_options(:upload))
+      end
+      yield(op, config) if block_given?
+    end
+  end
+  
+  #---
+  
+  def exec(options = {})
+    super do |op, config|
+      if op == :config
+        config.import(exec_options(:exec))
+      end
+      yield(op, config) if block_given?
+    end
+  end
+  
+  #---
+    
+  def start(options = {})
+    super do |op, config|
+      if op == :config
+        config.import(exec_options(:start))
+      end
+      yield(op, config) if block_given?
+    end
+  end
+  
+  #---
+    
+  def reload(options = {})
+    super do |op, config|
+      if op == :config
+        config.import(exec_options(:reload))
+      end
+      yield(op, config) if block_given?
+    end
+  end
+  
+  #---
+  
+  def create_image(options = {})
+    super do |op, config|
+      if op == :config
+        config.import(exec_options(:image))
+      end
+      yield(op, config) if block_given?
+    end
+  end
+  
+  #---
+    
+  def stop(options = {})
+    super do |op, config|
+      if op == :config
+        config.import(exec_options(:stop))
+      end
+      yield(op, config) if block_given?
+    end
+  end
+  
+  #---
+
+  def destroy(options = {})    
+    super do |op, config|
+      if op == :config
+        config.import(exec_options(:destroy))
+      end
+      yield(op, config) if block_given?
+    end
+  end
+end
+end
+end

data/lib/corl/node/google.rb

@@ -0,0 +1,115 @@
+
+corl_require(File.dirname(__FILE__), :fog)
+
+#---
+
+module CORL
+module Node
+class Google < Node::Fog
+ 
+  #-----------------------------------------------------------------------------
+  # Node plugin interface
+  
+  #-----------------------------------------------------------------------------
+  # Checks
+  
+  def usable_image?(image)
+    image.status == 'READY' && ! image.description.match(/DEPRECATED/i)
+  end
+  
+  #-----------------------------------------------------------------------------
+  # Property accessors / modifiers
+  
+  def project_name=project_name
+    myself[:project_name] = project_name
+  end
+  
+  def project_name
+    myself[:project_name]
+  end
+  
+  #---
+  
+  def regions
+    [
+      'us-central1-a',
+      'us-central1-b',
+      'europe-west1-a',
+      'europe-west1-b'     
+    ]
+  end
+  
+  #-----------------------------------------------------------------------------
+  # Settings groups
+    
+  def machine_config
+    super do |config|          
+      config.import({ 
+        :provider => 'google'
+      })
+      
+      config[:google_project]      = project_name if project_name
+      config[:google_client_email] = api_user if api_user
+      config[:google_key_location] = api_key if api_key
+    end
+  end
+  
+  #-----------------------------------------------------------------------------
+  # Node operations
+  
+  def create(options = {})
+    super do |op, config|
+      if op == :config
+        config[:private_key_path] = private_key if private_key
+        config[:public_key_path]  = public_key if public_key
+        
+        config.defaults({
+          :name         => hostname,
+          :machine_type => machine_type,
+          :image_name   => image
+        })
+      end
+    end
+  end
+  
+  #-----------------------------------------------------------------------------
+  # Utilities
+  
+  def machine_type_id(machine_type)
+    machine_type.name
+  end
+  
+  #---
+  
+  def render_machine_type(machine_type)
+    sprintf("[  %20s  ][ VCPUS: %2i ] %-55s ( RAM: %6iMB | DISK: %3iGB )  ( MAX DISKS: %2i | MAX STORAGE: %6iGB )", 
+      machine_type_id(machine_type), 
+      machine_type.guest_cpus, 
+      machine_type.description, 
+      machine_type.memory_mb, 
+      machine_type.image_space_gb, 
+      machine_type.maximum_persistent_disks, 
+      machine_type.maximum_persistent_disks_size
+    )
+  end
+  
+  #---
+  
+  def image_id(image)
+    image.name
+  end
+  
+  #---
+  
+  def render_image(image)
+    sprintf("[  %40s  ][ %10s ] %s - %s", image_id(image), image.status, image.description, image.project)
+  end
+  
+  #---
+  
+  def image_search_text(image)
+    sprintf("%s %s %s %s", image.name, image.description, image.status, image.project)  
+  end
+end
+end
+end

data/lib/corl/node/local.rb

@@ -0,0 +1,26 @@
+
+module CORL
+module Node
+class Local < Plugin::Node
+ 
+  #-----------------------------------------------------------------------------
+  # Node plugin interface
+   
+  def normalize
+    super
+    myself.machine = create_machine(:machine, :physical, machine_config)
+  end
+       
+  #-----------------------------------------------------------------------------
+  # Checks
+  
+  def local?
+    true
+  end  
+  
+  #-----------------------------------------------------------------------------
+  # Property accessors / modifiers
+ 
+end
+end
+end

data/lib/corl/node/rackspace.rb

@@ -0,0 +1,89 @@
+
+corl_require(File.dirname(__FILE__), :fog)
+
+#---
+
+module CORL
+module Node
+class Rackspace < Node::Fog
+ 
+  #-----------------------------------------------------------------------------
+  # Node plugin interface
+      
+  #-----------------------------------------------------------------------------
+  # Checks
+  
+  def usable_image?(image)
+    image.state != 'DELETED'
+  end
+  
+  #-----------------------------------------------------------------------------
+  # Property accessors / modifiers
+  
+  def regions
+    [ 
+      :dfw, # Dallas
+      :ord, # Chicago
+      :lon  # London (for UK accounts)
+    ]
+  end
+ 
+  #-----------------------------------------------------------------------------
+  # Settings groups
+    
+  def machine_config
+    super do |config|
+      config.import({ 
+        :provider         => 'rackspace', 
+        :version          => :v2,
+        :rackspace_region => region
+      })
+    
+      config[:rackspace_username] = api_user if api_user
+      config[:rackspace_api_key]  = api_key if api_key
+      config[:rackspace_auth_url] = auth_url if auth_url
+    end
+  end
+  
+  #-----------------------------------------------------------------------------
+  # Node operations
+  
+  def create(options = {})
+    super do |op, config|
+      if op == :config
+        config.defaults({
+          :name      => hostname,
+          :flavor_id => machine_type,
+          :image_id  => image
+        })
+      end
+    end
+  end
+ 
+  #-----------------------------------------------------------------------------
+  # Utilities
+  
+  def render_machine_type(machine_type)
+    sprintf("[  %20s  ][ VCPUS: %2i ] %-30s ( RAM: %6iMB | DISK: %4iGB )", 
+      machine_type_id(machine_type), 
+      machine_type.vcpus, 
+      machine_type.name, 
+      machine_type.ram, 
+      machine_type.disk
+    )
+  end
+  
+  #---
+  
+  def render_image(image)
+    sprintf("[  %40s  ][ %10s ] %s", image_id(image), image.state, image.name)
+  end
+  
+  #---
+  
+  def image_search_text(image)
+    sprintf("%s %s %s", image_id(image), image.name, image.state)  
+  end
+end
+end
+end