fog-arubacloud 0.0.3 → 0.0.5

data/lib/fog/arubacloud/compute/models/schedule.rb

@@ -0,0 +1,90 @@
+# coding: utf-8
+#
+# Author:: Dangleterre Michaël
+# © Copyright ArubaCloud.
+#
+# LICENSE: MIT (http://opensource.org/licenses/MIT)
+#
+
+require 'fog/core/model'
+require 'fog/arubacloud/error'
+
+module Fog
+  module ArubaCloud
+    class Compute
+      class Schedule < Fog::Model
+        ADD = 'Add'
+        EDIT = 'Edit'
+        SUSPEND = 'Suspend'
+        DELETE = 'Delete'
+
+        identity :id, :aliases => 'OperationId'
+
+        attribute :name
+        attribute :OperationId, :aliases => 'OperationId'
+        attribute :ServerId, :aliases => 'ServerId'
+        attribute :OperationType, :aliases => 'OperationType'
+        attribute :OperationLabel, :aliases => 'OperationLabel'
+        attribute :dateStart, :aliases => 'dateStart'
+        attribute :dateEnd, :aliases => 'dateEnd'
+        #attribute :OperationParameters, :aliases => 'OperationParameters'
+        attribute :frequencyType, :aliases => 'frequencyType'
+        attribute :ScheduleDaysOfMonth, :aliases => ':ScheduleDaysOfMonth'
+        attribute :monthlyRecurrence, :aliases => 'monthlyRecurrence'
+        attribute :ScheduleWeekDays, :aliases => 'ScheduleWeekDays'
+        attribute :daysOfMonth, :aliases => 'daysOfMonth'
+        attribute :daysOfWeek, :aliases => 'daysOfWeek'
+        attribute :frequency, :aliases => 'frequency'
+
+        ignore_attributes :OperationParameters
+
+        def initialize
+          @service = attributes[:service]
+        end # initialize
+
+        def get_scheduled_operations
+          requires :dateStart, :dateEnd
+          response = service.get_scheduled_operations
+          new_attributes = response
+          merge_attributes(new_attributes)
+        end # get_schedule
+
+        def create_scheduled_operation
+          requires :dateStart, :dateEnd, :OperationType, :ServerId
+          data = attributes
+          service.create_scheduled_operation(data)
+        end # create_schedule_operation
+
+        def create_scheduled_occurrence
+          requires :ServerId, :OperationType, :OperationLabel, :dateStart, :dateEnd, :frequencyType, :monthlyRecurrence, :daysOfMonth, :daysOfWeek, :frequency
+          if :name != nil
+            data[:name] = name
+          else
+            raise Fog::ArubaCloud::Errors::BadParameters.Exception('Missing Parameter')
+          end
+        end
+
+        def suspend_scheduled_operation
+          requires :id
+          data = :attributes
+          if :OperationId != nil
+            data[:OperationId] = id
+          else
+            raise Fog::ArubaCloud::Errors::BadParameters.Exception('Missing Parameter')
+          end
+        end # suspend_scheduled_operation
+
+        def delete_scheduled_operation
+          requires :operationid
+          data = :attributes
+          if :OperationId != nil
+            data[:OperationId] = operationid
+          else
+            raise Fog::ArubaCloud::Errors::BadParameters.Exception('Missing Parameter')
+          end
+        end # delete_scheduled_operation
+
+      end # Schedule
+    end # Compute
+  end # ArubaCloud
+end # Fog

data/lib/fog/arubacloud/compute/models/schedules.rb

@@ -0,0 +1,19 @@
+#
+# Author:: Dangleterre Michaël
+# © Copyright ArubaCloud.
+#
+# LICENSE: MIT (http://opensource.org/licenses/MIT)
+#
+
+require 'fog/core/collection'
+require 'fog/arubacloud/compute/models/schedule'
+
+module Fog
+  module ArubaCloud
+    class Compute
+      class Schedules < Fog::Collection
+        model Fog::ArubaCloud::Compute::Schedules
+      end
+    end
+  end
+end

data/lib/fog/arubacloud/{models/compute → compute/models}/server.rb

@@ -1,3 +1,4 @@
+# coding: utf-8
 #
 # Author:: Alessio Rocchi (<alessio.rocchi@staff.aruba.it>)
 # © Copyright ArubaCloud.
@@ -9,8 +10,9 @@ require 'fog/compute/models/server'
 require 'fog/arubacloud/error'
 
 module Fog
-  module Compute
-    class ArubaCloud
+  module ArubaCloud
+    class Compute
+      # noinspection RubyTooManyMethodsInspection
       class Server < Fog::Compute::Server
         CREATING = 1
         STOPPED = 2
@@ -18,6 +20,8 @@ module Fog
         ARCHIVED = 4
         DELETED = 5
 
+        #collection_name :servers
+
         # This is the instance ID which is unique per Datacenter
         identity :id, :aliases => 'ServerId'
 
@@ -49,12 +53,21 @@ module Fog
           @service = attributes[:service]
 
           if attributes[:vm_type].nil?
-            self.vm_type = 'smart' if attributes['HypervisorType'].eql? '4' || 'pro'
+            self.vm_type = 'smart' if attributes['HypervisorType'].eql? '4'
+          else
+            'pro'
           end
 
           super
         end
 
+        def action_hook(method, expected_state, message)
+          unless state.eql? expected_state
+            raise Fog::ArubaCloud::Errors::VmStatus.new(message)
+          end
+          @service.send method, id
+        end
+
         # Is server in ready state
         # @param [String] ready_state By default state is RUNNING
         # @return [Boolean] return true if server is in ready state
@@ -87,7 +100,6 @@ module Fog
         def create
           requires :name, :cpu, :memory, :admin_passwd, :vm_type
           data = attributes
-
           if vm_type.eql? 'pro'
             # Automatically purchase a public ip address
             data[:ipv4_id] = service.purchase_ip['Value']['ResourceId']
@@ -100,28 +112,22 @@ module Fog
 
           # Retrieve new server list and filter the current virtual machine
           # in order to retrieve the ID
-          # In case of failure, I will try it 3 for 3 times
-          try = 0
           server = nil
-          while server.nil? && try <= 3
+          while server.nil?
             servers = service.get_servers
-            #server = servers['Value'].select { |v| v['Name'].include?(data[:name]) }.first
             servers['Value'].each do |s|
-              if s['Name'].to_s.include? data[:name].to_s
-                server = s
-              end
+              server = s if s['Name'].to_s.include? data[:name].to_s
             end
-            Fog::Logger.debug("Fog::Compute::ArubaCloud::Server.create, #{data[:name]} server: #{server.inspect}")
-            if server
-              merge_attributes(server)
-            else
-              message = "error during attribute merge, `server` object is not ready, try n.#{try}"
-              Fog::Logger.warning("Fog::Compute::ArubaCloud::Server.create, #{message}")
-              Fog::Logger.warning(servers.inspect.to_yaml)
-              sleep(1)
-            end
-            try += 1
           end
+          Fog::Logger.debug("Fog::ArubaCloud::Compute::Server.create, #{data[:name]} server: #{server.inspect}")
+          if server
+            merge_attributes(server)
+          else
+            message = 'error during attribute merge, `server` object is not ready.'
+            Fog::Logger.warning("Fog::ArubaCloud::Compute::Server.create, #{message}")
+            sleep(1)
+          end
+
         end
 
         def get_server_details
@@ -151,35 +157,68 @@ module Fog
 
         def power_off
           requires :id, :state
-          unless state.eql? RUNNING
-            raise Fog::ArubaCloud::Errors::VmStatus.new("Cannot poweroff vm in current state: #{state}")
-          end
-          @service.power_off_vm(id)
+          self.action_hook(method=:power_off_vm, expected_state=RUNNING,
+                           message="Cannot poweroff vm in current state: #{state}"
+          )
         end
 
         def power_on
           requires :id, :state
-          unless state.eql? STOPPED
-            raise Fog::ArubaCloud::Errors::VmStatus.new("Cannot poweron vm in current state: #{state}")
-          end
-          @service.power_on_vm(id)
+          self.action_hook(method=:power_on_vm, expected_state=STOPPED,
+                           message="Cannot poweron vm in current state: #{state}"
+          )
         end
 
         def delete
           requires :id
-          state == STOPPED ? service.delete_vm(id) : raise(Fog::ArubaCloud::Errors::VmStatus.new(
-              "Cannot delete vm in current state: #{state}"
-          ))
+          self.action_hook(method=:delete_vm, expected_state=STOPPED,
+                           message="Cannot delete vm in current state: #{state}"
+          )
         end
 
         def reinitialize
           requires :id, :hypervisor
-          state == STOPPED ? service.reinitialize_vm(id) : raise(Fog::ArubaCloud::Errors::VmStatus.new(
-              "Cannot reinitialize vm in current state: #{state}"
+          self.action_hook(method=:reinitialize_vm, expected_state=STOPPED,
+                           message="Cannot reinitialize vm in current state: #{state}"
+          )
+        end
+
+        def archive
+          requires :id, :state, :vm_type
+          if state == STOPPED and vm_type.eql?('pro')
+            service.archive_vm(id)
+          else
+            raise(Fog::ArubaCloud::Errors::VmStatus.new(
+                "Cannot archive VM in current state #{state} or VM type #{vm_type}"))
+          end
+        end
+
+        def restore
+          requires :id, :memory, :cpu
+          state == ARCHIVED and memory != nil and cpu != nil ? service.restore_vm(id) : raise(
+              Fog::ArubaCloud::Errors::VmStatus.new("Cannot restore VM without specifying #{cpu} and #{memory}"
+              ))
+        end
+
+        def create_snapshot
+          requires :id
+          id != nil ? service.create_snapshot(id) : raise(Fog::ArubaCloud::Errors::VmStatus.new(
+              'Cannot crate snapshot without vm id'
           ))
         end
 
+        def apply_snapshot
+          requires :id
+          self.action_hook(method=:apply_snapshot, expected_state=STOPPED,
+                           message="Cannot restore vm in current state: #{state}"
+          )
+        end
+
+        def delete_snapshot
+          requires :id
+          service.delete_snapshot(id)
+        end
       end
     end
   end
-end
+end

data/lib/fog/arubacloud/{models/compute → compute/models}/servers.rb

@@ -1,3 +1,4 @@
+# coding: utf-8
 #
 # Author:: Alessio Rocchi (<alessio.rocchi@staff.aruba.it>)
 # © Copyright ArubaCloud.
@@ -6,18 +7,18 @@
 #
 
 require 'fog/core/collection'
-require 'fog/arubacloud/models/compute/server'
+require 'fog/arubacloud/compute/models/server'
 
 
 module Fog
-  module Compute
-    class ArubaCloud
+  module ArubaCloud
+    class Compute
       class Servers < Fog::Collection
-        model Fog::Compute::ArubaCloud::Server
+        model Fog::ArubaCloud::Compute::Server
 
         # Returns list of servers
-        # @return [Fog::Compute::ArubaCloud::Servers] Retrieves a list servers.
-        # @raise [Fog::Compute::ArubaCloud::NotFound]
+        # @return [Fog::ArubaCloud::Compute::Servers] Retrieves a list servers.
+        # @raise [Fog::ArubaCloud::Compute::NotFound]
         # @note The filter parameter on the method is just to maintain compatibility with other providers that support
         #       filtering.
         def all(filters = [])
@@ -28,11 +29,11 @@ module Fog
 
         # Retrieves server
         # @param [String] server_id for server to be returned.
-        # @return [Fog::Compute::ArubaCloud::Server]
+        # @return [Fog::ArubaCloud::Compute::Server]
         def get(server_id)
           data = service.get_server_details(server_id)
           objects = data['Value']
-          msg = "Fog::Compute::ArubaCloud::Servers.get 'objects' must be an hash, actually is: #{objects.class} #{objects.to_yaml}"
+          msg = "Fog::ArubaCloud::Compute::Servers.get 'objects' must be an hash, actually is: #{objects.class} #{objects.to_yaml}"
           Fog::Logger.debug(msg)
           raise Fog::ArubaCloud::Errors::BadObjectType.new("#{msg}") unless objects.instance_of? Hash
           new(objects)
@@ -40,4 +41,4 @@ module Fog
       end
     end
   end
-end
+end

data/lib/fog/arubacloud/compute/models/sharedstorage.rb

@@ -0,0 +1,58 @@
+# coding: utf-8
+#
+# Author:: Dangleterre Michaël
+# © Copyright ArubaCloud.
+#
+# LICENSE: MIT (http://opensource.org/licenses/MIT)
+#
+
+require 'fog/core/model'
+require 'fog/arubacloud/error'
+
+
+module Fog
+  module ArubaCloud
+    class Compute
+      class SharedStorage < Fog::Model
+        identity :id, :aliases => 'id'
+
+        attribute :quantity, :aliases => 'quantity'
+        attribute :value, :aliases => 'value'
+        attribute :sharedstoragename, :aliases => 'sharedstoragename'
+        attribute :sharedstorageprotocoltype
+
+        def initialize(attributes = {})
+          @service = attributes[:service]
+        end
+
+        def create
+          requires :sharedstorageprotocoltype, :quantity, :sharedstoragename
+          if :sharedstorageprotocoltype.upcase == 'ISCSI'
+            requires :value
+          end
+          data = attributes
+          service.create_shared_storage(data)
+        end # create
+
+        def edit
+          requires :id
+          data = :attributes
+          service.edit_shared_storage(data)
+        end # edit
+
+        def delete
+          requires :id
+          data = :attributes
+          service.delete_shared_storage(data)
+        end # delete
+
+        def rename
+          requires :id, :sharedstoragename
+          data = :attributes
+          service.rename_shared_storage(data)
+        end # rename
+
+      end # Custom_Template
+    end # Compute
+  end # ArubaCloud
+end # Fog

data/lib/fog/arubacloud/compute/models/sharedstorages.rb

@@ -0,0 +1,19 @@
+#
+# Author:: Dangleterre Michaël
+# © Copyright ArubaCloud.
+#
+# LICENSE: MIT (http://opensource.org/licenses/MIT)
+#
+
+require 'fog/core/collection'
+require 'fog/arubacloud/compute/models/sharedstorage'
+
+module Fog
+  module ArubaCloud
+    class Compute
+      class SharedStorages < Fog::Collection
+        model Fog::ArubaCloud::Compute::SharedStorage
+      end
+    end
+  end
+end

data/lib/fog/arubacloud/compute/models/snapshot.rb

@@ -0,0 +1,58 @@
+#
+# Author:: Dangleterre Michaël
+# © Copyright ArubaCloud.
+#
+# LICENSE: MIT (http://opensource.org/licenses/MIT)
+#
+
+require 'fog/arubacloud/error'
+
+module Fog
+  module ArubaCloud
+    class Compute
+      class Snapshot < Fog::Model
+        CREATING = 'Create'
+        APPLYING = 'Restore'
+        DELETING = 'Delete'
+        identity :id, :aliases => 'id'
+
+        attribute :ServerId, :aliases => 'serverid'
+        attribute :SnapshotOperation, :aliases => 'Snapshot Operation'
+
+        def initialize(attributes = {})
+          @service = attributes[:service]
+          if attributes[:name].nil?
+            'operation impossible'
+          end
+        end
+        def create
+          requires :ServerId
+          data = :attributes
+          if :name != nil
+            data[:name] = name
+          else
+            raise Fog::ArubaCloud::Errors::BadParameters.Exception('Missing Parameter')
+          end
+        end # Create
+        def apply
+          requires :ServerId
+          data = :attributes
+          if :name != nil
+            data[:name] = name
+          else
+            raise Fog::ArubaCloud::Errors::BadParameters.Exception('Missing Parameter')
+          end
+        end # Apply
+        def delete
+          requires :ServerId
+          data = :attributes
+          if :name != nil
+            data[:name] = name
+          else
+            raise Fog::ArubaCloud::Errors::BadParameters.Exception('Missing Parameter')
+          end
+        end # Delete
+      end
+    end
+  end
+end

data/lib/fog/arubacloud/compute/models/snapshots.rb

@@ -0,0 +1,19 @@
+#
+# Author:: Dangleterre Michaël
+# © Copyright ArubaCloud.
+#
+# LICENSE: MIT (http://opensource.org/licenses/MIT)
+#
+
+require 'fog/core/collection'
+require 'fog/arubacloud/compute/models/snapshot'
+
+module Fog
+  module ArubaCloud
+    class Compute
+      class Snapshots < Fog::Collection
+        model Fog::ArubaCloud::Compute::Snapshot
+      end
+    end
+  end
+end

data/lib/fog/arubacloud/{models/compute → compute/models}/template.rb

@@ -8,8 +8,8 @@
 require 'fog/core/model'
 
 module Fog
-  module Compute
-    class ArubaCloud
+  module ArubaCloud
+    class Compute
 
       class Template < Fog::Model
         identity :id, :aliases => 'Id'

data/lib/fog/arubacloud/{models/compute → compute/models}/templates.rb

@@ -6,18 +6,18 @@
 #
 
 require 'fog/core/collection'
-require 'fog/arubacloud/models/compute/template'
+require 'fog/arubacloud/compute/models/template'
 
 
 module Fog
-  module Compute
-    class ArubaCloud
+  module ArubaCloud
+    class Compute
       class Templates < Fog::Collection
-        model Fog::Compute::ArubaCloud::Template
+        model Fog::ArubaCloud::Compute::Template
 
         # Returns list of Template
-        # @return [Fog::Compute::ArubaCloud::Template] Retrieves the complete Templates list.
-        # @raise [Fog::Compute::ArubaCloud::NotFound]
+        # @return [Fog::ArubaCloud::Compute::Template] Retrieves the complete Templates list.
+        # @raise [Fog::ArubaCloud::Compute::NotFound]
         def all
           data = service.get_hypervisors
           objects = data['Value']
@@ -34,8 +34,8 @@ module Fog
 
         # Return only templates assigned to a specific service, default is smart (4)
         # @param hv [Int] The ID of the hypervisor
-        # @return [Fog::Compute::ArubaCloud::Template] List of templates
-        # @raise [Fog::Compute::ArubaCloud::NotFound]
+        # @return [Fog::ArubaCloud::Compute::Template] List of templates
+        # @raise [Fog::ArubaCloud::Compute::NotFound]
         def get_hypervisor(hv=4)
           manipulated_objects = Array.new
           data = service.get_hypervisors
@@ -46,7 +46,7 @@ module Fog
               # select{|f| f['HypervisorType'].eql?(hv)}
               t.merge!({'hypervisor' => hv_type})
               if t['hypervisor'].eql?(4)
-                Fog::Logger.debug("Fog::Compute::ArubaCloud::Templates.get_hypervisors: t: #{h.to_yaml}")
+                Fog::Logger.debug("Fog::ArubaCloud::Compute::Templates.get_hypervisors: t: #{h.to_yaml}")
                 manipulated_objects << t
               end
             end
@@ -56,7 +56,7 @@ module Fog
 
         # Retrieves Single Template Item
         # @param [String] template_id for server to be returned.
-        # @return [Fog::Compute::ArubaCloud::Template]
+        # @return [Fog::ArubaCloud::Compute::Template]
         def get(template_id)
           # TODO: Implement retrieve of a single template
         end

data/lib/fog/arubacloud/compute/requests/add_contact.rb

@@ -0,0 +1,59 @@
+# coding: utf-8
+#
+# Author:: Dangleterre Michaël
+# © Copyright ArubaCloud.
+#
+# LICENSE: MIT (http://opensource.org/licenses/MIT)
+#
+
+require 'fog/arubacloud/service'
+require 'fog/arubacloud/error'
+require 'benchmark'
+
+
+module Fog
+  module ArubaCloud
+    class Compute
+      class Real
+        def add_contact(data)
+          body = self.body('SetAddLoadBalancerContacts').merge(
+              :request => {
+                  :loadBalancerID => data[:id],
+                  :NotificationContacts => [
+                      {
+                          :NotificationContact => [
+                              {
+                                  :ContactValue => data[:contactvalue],
+                                  :LoadBalancerContactID => data[:loadbalancercontactid],
+                                  :Type => data[:type]
+                              }
+                          ]
+                      }
+                  ]
+              }
+          )
+
+          response = nil
+          time = Benchmark.realtime {
+            response = request(body, 'SetAddLoadBalancerContacts' , 'SetAddLoadBalancerContacts Error')
+          }
+          Fog::Logger.debug("SetAddLoadBalancerContacts time: #{time}")
+          if response['Success']
+            response
+          else
+            raise Fog::ArubaCloud::Errors::RequestError.new('Error during the request.')
+          end
+        end # add_contact
+
+        class Mock
+          def add_contact
+            raise Fog::Errors::MockNotImplemented.new(
+                      'Mock not implemented. Feel free to contribute.'
+                  )
+          end # add_contact
+        end # Mock
+      end # Real
+
+    end # Compute
+  end # ArubaCloud
+end # Fog

data/lib/fog/arubacloud/compute/requests/add_instance.rb

@@ -0,0 +1,56 @@
+# coding: utf-8
+#
+# Author:: Dangleterre Michaël
+# © Copyright ArubaCloud.
+#
+# LICENSE: MIT (http://opensource.org/licenses/MIT)
+#
+
+require 'fog/arubacloud/service'
+require 'fog/arubacloud/error'
+require 'benchmark'
+
+
+module Fog
+  module ArubaCloud
+    class Compute
+      class Real
+        def add_instance(data)
+          body = self.body('SetEnqueueLoadBalancerAddInstances').merge(
+              :Instances => {
+                  :loadBalancerID => data[:id],
+                  :Instances => [
+                      {
+                          :LoadBalancerInstance => [
+                              {
+                                  :IPAddress => data[:ipaddress]
+                              }
+                          ]
+                      }
+                  ]
+              }
+          )
+          response = nil
+          time = Benchmark.realtime {
+            response = request(body, 'SetEnqueueLoadBalancerAddInstances', 'SetEnqueueLoadBalancerAddInstances Error')
+          }
+          Fog::Logger.debug("SetEnqueueLoadBalancerAddInstances time: #{time}")
+          if response['Success']
+            response
+          else
+            raise Fog::ArubaCloud::Errors::RequestError.new('Error during the request.')
+          end
+        end # add_instance
+
+        class Mock
+          def add_instance
+            raise Fog::Errors::MockNotImplemented.new(
+                      'Mock not implemented. Feel free to contribute.'
+                  )
+          end # add_instance
+        end # Mock
+      end # Real
+
+    end # Compute
+  end # ArubaCloud
+end # Fog