mccloud 0.0.13 → 0.0.14

data/lib/mccloud/command/forward.rb

@@ -0,0 +1,29 @@
+module Mccloud
+  module Command
+    class ForwardCommand < Base
+
+      register "forward [NAME]", "Forwards ports from a machine to localhost"
+      argument :selection, :type => :string, :optional => true, :default => nil
+
+      def execute
+        env.load!
+        threads=Array.new
+        env.config.providers.each do |name,provider|
+          env.logger.debug("Asking provider #{name} to forward ports from #{selection} to localhost")
+          trap("INT") { puts "You've hit CTRL-C . Stopping server now"; exit }
+          provider.on_selected_components("vm",selection) do |id,vm|
+            fwds=vm.forward(options)
+            unless fwds.nil?
+              fwds.each do |f|
+                threads << f
+              end
+            end
+            threads.each { |thr| thr.join}
+          end
+
+        end
+
+      end
+    end
+  end
+end

data/lib/mccloud/command/group_base.rb

@@ -0,0 +1,107 @@
+require 'thor'
+require 'thor/actions'
+
+module Mccloud
+  module Command
+    # A {GroupBase} is the superclass which should be used if you're
+    # creating a CLI command which has subcommands such as `mccloud box`,
+    # which has subcommands such as `add`, `remove`, `list`. If you're
+    # creating a simple command which has no subcommands, such as `mccloud up`,
+    # then use {Base} instead.
+    #
+    # Unlike {Base}, where all public methods are executed, in a {GroupBase},
+    # each public method defines a separate task which can be invoked. The best
+    # way to get examples of how to create a {GroupBase} command is to look
+    # at the built-in commands, such as {BoxCommand}.
+    #
+    # # Defining a New Command
+    #
+    # To define a new command with subcommands, create a new class which inherits
+    # from this class, then call {register} to register the command. That's it! When
+    # the command is invoked, the method matching the subcommand is invoked. An
+    # example is shown below:
+    #
+    #     class SayCommand < Mccloud::Command::GroupBase
+    #       register "say", "Say hello or goodbye"
+    #
+    #       desc "hello", "say hello"
+    #       def hello
+    #         env.ui.info "Hello"
+    #       end
+    #
+    #       desc "goodbye", "say goodbye"
+    #       def goodbye
+    #         env.ui.info "Goodbye"
+    #       end
+    #     end
+    #
+    # In this case, the above class is invokable via `mccloud say hello` or
+    # `mccloud say goodbye`. To give it a try yourself, just copy and paste
+    # the above into a Mccloudfile somewhere, and run `mccloud` from within
+    # that directory. You should see the new command!
+    #
+    # Also notice that in the above, each task follows a `desc` call. This
+    # call is used to provide usage and description for each task, and is
+    # required.
+    #
+    # ## Defining Command-line Options
+    #
+    # ### Arguments
+    #
+    # To define arguments to your commands, such as `mccloud say hello mitchell`,
+    # then you simply define them as arguments to the method implementing the
+    # task. An example is shown below (only the method, to keep things brief):
+    #
+    #     def hello(name)
+    #       env.ui.info "Hello, #{name}"
+    #     end
+    #
+    # Then, if `mccloud say hello mitchell` was called, then the output would
+    # be "Hello, mitchell"
+    #
+    # ### Switches or Other Options
+    #
+    # TODO
+    class GroupBase < Thor
+      include Thor::Actions
+      include Helpers
+
+      attr_reader :env
+
+      # Register the command with the main Mccloud CLI under the given
+      # usage. The usage will be used for accessing it from the CLI,
+      # so if you give it a usage of `lamp [subcommand]`, then the command
+      # to invoke this will be `mccloud lamp` (with a subcommand).
+      #
+      # The description is used when a listing of the commands is given
+      # and is meant to be a brief (one sentence) description of what this
+      # command does.
+      #
+      # Some additional options may be passed in as the last parameter:
+      #
+      # * `:alias` - If given as an array or string, these will be aliases
+      #  for the same command. For example, `mccloud version` is also
+      #  `mccloud --version` and `mccloud -v`
+      #
+      # @param [String] usage
+      # @param [String] description
+      # @param [Hash] opts
+      def self.register(usage, description, opts=nil)
+        @_name = Base.extract_name_from_usage(usage)
+        CLI.register(self, @_name, usage, description, opts)
+      end
+
+      def initialize(*args)
+        super
+        initialize_environment(*args)
+      end
+
+      protected
+
+      # Override the basename to include the subcommand name.
+      def self.basename
+        "#{super} #{@_name}"
+      end
+    end
+  end
+end

data/lib/mccloud/command/halt.rb

@@ -1,19 +1,17 @@
-require 'mccloud/util/iterator'
-
 module Mccloud
   module Command
-  include Mccloud::Util
-  def halt(selection=nil,options=nil)
-    on_selected_machines(selection) do |id,vm|
-       unless vm.instance.state == "stopping" || vm.instance.state =="stopped"
-        puts "Halting machine #{vm.name}(#{id})"
-        vm.instance.stop
-        vm.instance.wait_for { printf "."; STDOUT.flush; state=="stopped"}
-        puts 
-      else
-        puts "#{vm.name}(#{id}) is already halted."        
+    class HaltCommand < Base
+
+      argument :box_name, :type => :string, :optional => true, :default => nil
+
+      register "halt [NAME]", "Shutdown the machine"
+      def execute
+        env.load!
+        env.config.providers.each do |name,provider|
+          env.logger.debug("Asking provider #{name} to halt box #{box_name}")
+          provider.halt(box_name,options)
+        end
       end
     end
   end
 end
-end

data/lib/mccloud/command/helpers.rb

@@ -0,0 +1,13 @@
+module Mccloud
+  module Command
+    module Helpers
+      # Initializes the environment by pulling the environment out of
+      # the configuration hash and sets up the UI if necessary.
+      def initialize_environment(args, options, config)
+        raise ::Mccloud::Error,"CLI Missing Environment" if !config[:env]
+        @env = config[:env]
+      end
+
+     end
+  end
+end

data/lib/mccloud/command/image.rb

@@ -0,0 +1,37 @@
+module Mccloud
+  module Command
+    class ImageCommand < Mccloud::Command::GroupBase
+      register "image", "Subcommand to manage images"
+
+      desc "list [IMAGE-NAME]", "List Images"
+      def list(selection=nil)
+        env.load!
+      	
+        env.config.providers.each do |name,provider|
+            env.logger.debug("Asking provider #{name} to list image #{selection}")
+            provider.image_list(selection,options)
+        end
+      end
+
+      desc "create [SERVER-NAME]", "Create Image from Server"
+      def create(selection=nil)
+        env.load!
+      	
+        env.ui.error "Not yet implemented"
+      end
+
+      desc "destroy IMAGE-NAME","Destroy image"
+      def destroy(selection)
+        env.load!
+      	
+        env.config.providers.each do |name,provider|
+            env.logger.debug("Asking provider #{name} to destroy image #{selection}")
+            provider.image_destroy(selection,options)
+        end
+
+      end
+
+    end #Class
+
+  end #Module
+end # Module