hpcloud 2.0.0

data/lib/hpcloud/auth_cache.rb

@@ -0,0 +1,128 @@
+# encoding: utf-8
+#
+# © Copyright 2013 Hewlett-Packard Development Company, L.P.
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+require 'yaml'
+
+module HP
+  module Cloud
+    class AuthCache
+      attr_reader :directory
+      @@home = nil
+
+      def initialize
+        if @@home.nil?
+          @@home = ENV['HOME']
+        end
+        @directory = @@home + "/.hpcloud/accounts/.cache/"
+        @aucas = {}
+      end
+
+      def self.home_directory=(dir)
+        @@home = dir
+      end
+
+      def get_name(opts)
+        begin
+          "#{opts[:hp_access_key]}:#{opts[:hp_tenant_id]}"
+        rescue
+          "default"
+        end
+      end
+
+      def get_file_name(opts)
+        return "#{@directory}" if opts.nil?
+        "#{@directory}#{get_name(opts)}"
+      end
+
+      def remove(opts = nil)
+        if opts.nil?
+          begin
+            dirname = get_file_name(nil)
+            dir = Dir.new(dirname)
+            dir.entries.each { |x|
+              file_name = dirname + x
+              begin
+                unless (x == "." || x == "..")
+                  File.delete(file_name)
+                end
+              rescue
+                warn "Error deleting cache file: #{file_name}"
+              end
+            }
+          rescue
+          end
+        else
+          file_name = get_file_name(opts)
+          begin
+            File.delete(file_name)
+          rescue
+            return false
+          end
+        end
+        return true
+      end
+
+      def read(opts)
+        account = get_name(opts)
+        return @aucas[account] if @aucas[account].nil? == false
+        file_name = get_file_name(opts)
+        if File.exists?(file_name)
+          begin
+            @aucas[account] = YAML::load(File.open(file_name))
+          rescue Exception => e
+            raise Exception.new('Error reading cache file: ' + file_name)
+          end
+        end
+        return @aucas[account]
+      end
+
+      def write(opts, creds)
+        account = get_name(opts)
+        @aucas[account] = creds;
+        config = @aucas[account]
+        if config.nil?
+          remove(opts)
+          return
+        end
+        file_name = get_file_name(opts)
+        begin
+          FileUtils.mkpath(@directory)
+          File.open(file_name, 'w') do |file|
+            file.write config.to_yaml
+          end
+        rescue Exception => e
+          raise Exception.new("Error writing file #{file_name}")
+        end
+      end
+
+      def default_zone(opts, service)
+        creds = read(opts)
+        return nil if creds.nil?
+        catalog = creds[:service_catalog]
+        return nil if catalog.nil?
+        return nil if catalog[service.to_sym].nil?
+        keys = []
+        catalog[service.to_sym].keys.each { |x| keys << x.to_s }
+        return keys.sort.first.to_s
+      end
+    end
+  end
+end

data/lib/hpcloud/base_helper.rb

@@ -0,0 +1,56 @@
+# encoding: utf-8
+#
+# © Copyright 2013 Hewlett-Packard Development Company, L.P.
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+module HP
+  module Cloud
+    class BaseHelper
+      attr_accessor :fog, :connection, :cstatus
+
+      def initialize(connection, foggy = nil)
+        @connection = connection
+        @cstatus = CliStatus.new
+        @fog = foggy
+      end
+
+      def to_hash
+        return nil unless is_valid?
+        hash = {}
+        instance_variables.each {|var| hash[var.to_s.delete("@")] = instance_variable_get(var) }
+        hash
+      end
+
+      def set_error(noo, status = :general_error)
+        unless noo.is_a?(CliStatus)
+          noo = CliStatus.new(noo, status)
+        end
+        @cstatus.set(noo)
+      end
+
+      def is_valid?
+        return @cstatus.is_success?
+      end
+
+      def destroy
+        @fog.destroy unless @fog.nil?
+      end
+    end
+  end
+end

data/lib/hpcloud/checker.rb

@@ -0,0 +1,104 @@
+# encoding: utf-8
+#
+# © Copyright 2013 Hewlett-Packard Development Company, L.P.
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+require 'open-uri'
+
+module HP
+  module Cloud
+    class Checker
+      attr_accessor :url, :deferment, :file, :latest
+
+      @@home = nil
+
+      def initialize
+        if @@home.nil?
+          @@home = ENV['HOME']
+        end
+        @directory = @@home + "/.hpcloud/"
+        @file = @directory + ".checker"
+        config = Config.new
+        @url = config.get(:checker_url)
+        @deferment = config.get(:checker_deferment)
+      end
+
+      def self.home_directory=(dir)
+        @@home = dir
+      end
+
+      def self.split(value)
+        value = value.strip.split('.')
+        major = value[0] if value.length > 0
+        minor = value[1] if value.length > 1
+        build = value[2] if value.length > 2
+        return major, minor, build
+      end
+
+      def comparo(latest)
+        lmajor, lminor, lbuild = Checker.split(latest)
+        major, minor, build = Checker.split(HP::Cloud::VERSION)
+        lmajor = lmajor.to_i
+        lminor = lminor.to_i
+        lbuild = lbuild.to_i
+        major = major.to_i
+        minor = minor.to_i
+        build = build.to_i
+        return true if lmajor > major
+        return false if lmajor < major
+        return true if lminor > minor
+        return false if lminor < minor
+        return true if lbuild > build
+        return false
+      end
+
+      def process
+        return false if @deferment == 0
+        return false if @url.nil?
+        if File.exists?(@file)
+          begin
+            mtime = File.new(@file).mtime
+            now = Time.now
+          rescue
+            return false
+          end
+          return false if ((now - mtime) < @deferment)
+        end
+
+        begin
+          FileUtils.mkdir_p(@directory)
+          FileUtils.touch(@file)
+        rescue
+        end
+
+        begin
+          @latest = open(@url).read.strip
+          return false unless comparo(@latest)
+        rescue
+          return false
+        end
+        return true
+      end
+
+      def reset
+        FileUtils.rm_rf(@file)
+      end
+    end
+  end
+end

data/lib/hpcloud/cli.rb

@@ -0,0 +1,170 @@
+# encoding: utf-8
+#
+# © Copyright 2013 Hewlett-Packard Development Company, L.P.
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+require 'thor'
+require 'thor/group'
+require 'hpcloud/thor_ext/thor'
+require 'hpcloud/exceptions/base'
+
+module HP
+  module Cloud
+    class CLI < Thor
+      attr_accessor :exit_status
+    
+      GOPTS = {:availability_zone => {:type => :string, :aliases => '-z',
+                                      :desc => 'Set the availability zone.'},
+               :debug => {:type => :string, :aliases => '-x',
+                                 :desc => 'Debug logging 1,2,3,...'},
+               :tenantid => {:type => :string,
+                                 :desc => 'Tenant id for account.'},
+               :account_name => {:type => :string, :aliases => '-a',
+                                 :desc => 'Select account.'}}
+
+      def initialize(*args)
+        super
+        @@debugging = false
+        @@error = nil
+        @exit_status = HP::Cloud::CliStatus.new
+        @log = HP::Cloud::Log.new(self)
+      end
+
+      private
+      def self.add_common_options
+        GOPTS.each { |k,v| method_option(k, v) }
+      end
+
+      def self.add_report_options
+        method_option(Columns.option_name, Columns.option_args)
+        method_option(Tableizer.option_name, Tableizer.option_args)
+      end
+
+      # name of the running CLI script
+      def selfname
+        ENV['HPCLOUD_CLI_NAME'] || 'hpcloud'
+      end
+
+      class << self
+        def exit_on_failure?
+          true
+        end
+      end
+
+      ### Thor extensions
+    
+      def ask_with_default(statement, default, color = nil)
+        response = ask("#{statement} [#{default}]")
+        return response.empty? ? default : response
+      end
+    
+      def cli_command(options)
+        unless options[:debug].nil?
+          if options[:debug] > '1'
+            ENV['EXCON_STANDARD_INSTRUMENTOR']='1'
+          end
+          @@debugging = true
+        end
+        Connection.instance.set_options(options)
+        sub_command { yield }
+        checker = Checker.new
+        if checker.process
+          warn "A new version v#{checker.latest} of the Unix CLI is available at https://docs.hpcloud.com/cli/unix/install"
+        end
+        exit @exit_status.get
+      end
+    
+      def sub_command(action=nil)
+        error_status = nil
+        begin
+          yield
+        rescue HP::Cloud::Exceptions::Base => error
+          @@error = error.to_s
+          error_status = error.status
+        rescue Excon::Errors::BadRequest => error
+          @@error = ErrorResponse.new(error).to_s
+          error_status = :incorrect_usage
+        rescue Excon::Errors::InternalServerError => error
+          @@error = ErrorResponse.new(error).to_s
+          error_status = :general_error
+        rescue Fog::HP::Errors::ServiceError => error
+          @@error = error
+          error_status = :general_error
+        rescue Fog::HP::BlockStorage::NotFound => error
+          @@error = error
+          error_status = :not_found
+        rescue Fog::CDN::HP::NotFound => error
+          @@error = error
+          error_status = :not_found
+        rescue Fog::Compute::HP::NotFound => error
+          @@error = error
+          error_status = :not_found
+        rescue Fog::Storage::HP::NotFound => error
+          @@error = error
+          error_status = :not_found
+        rescue Fog::HP::BlockStorage::Error => error
+          @@error = error
+          error_status = :general_error
+        rescue Fog::CDN::HP::Error => error
+          @@error = error
+          error_status = :general_error
+        rescue Fog::Compute::HP::Error => error
+          @@error = error
+          error_status = :general_error
+        rescue Fog::Storage::HP::Error => error
+          @@error = error
+          error_status = :general_error
+        rescue Excon::Errors::Unauthorized, Excon::Errors::Forbidden => error
+          @@error = ErrorResponse.new(error).to_s
+          error_status = :permission_denied
+        rescue Excon::Errors::Conflict => error
+          @@error = ErrorResponse.new(error).to_s
+          error_status = :conflicted
+        rescue Excon::Errors::NotFound => error
+          @@error = ErrorResponse.new(error).to_s
+          error_status = :not_found
+        rescue Excon::Errors::RequestEntityTooLarge => error
+          @@error = ErrorResponse.new(error).to_s
+          error_status = :rate_limited
+        rescue SystemExit => error
+          @@error = error
+        rescue Exception => error
+          @@error = error
+          error_status = :general_error
+        end
+        unless error_status.nil?
+          if action.nil?
+            @log.error(@@error, error_status)
+          else
+            @@error = "Error #{action}: #{@@error.to_s}"
+            @log.error(@@error, error_status)
+          end
+        end
+        if @@debugging == true
+          unless @@error.nil?
+            if @@error.kind_of?(Exception)
+              puts @@error.backtrace
+            end
+          end
+        end
+        @exit_status.get
+      end
+    end
+  end
+end

data/lib/hpcloud/cli_status.rb

@@ -0,0 +1,80 @@
+# encoding: utf-8
+#
+# © Copyright 2013 Hewlett-Packard Development Company, L.P.
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+module HP
+  module Cloud
+    class CliStatus
+      attr_accessor :message, :exit_code, :error_code
+
+      TYPES = { :success              => 0,
+                :general_error        => 1,
+                :not_supported        => 3,
+                :not_found            => 4,
+                :conflicted           => 5,
+                :incorrect_usage      => 64,
+                :permission_denied    => 77,
+                :rate_limited         => 88,
+                :partial_error        => 98,
+                :unknown_status       => 99
+              }
+
+      def initialize(message = nil, code = :success)
+        @message = message
+        @error_code = :success
+        @exit_code = 0
+        set(code)
+      end
+
+      def set(code)
+        unless code.is_a?(Symbol)
+          if code.is_a?(CliStatus)
+            @message = code.message
+            code = code.error_code
+          else
+            warn "Incorrect error code: #{code.to_s}"
+            code = :unknown_status
+          end
+        end
+        exit_code = TYPES[code]
+        if exit_code.nil?
+          warn "Unknown error code: #{code.to_s}"
+          exit_code = TYPES[:unknown_status]
+        end
+        if exit_code > @exit_code
+          @error_code = code
+          @exit_code = exit_code 
+        end
+      end
+
+      def is_success?
+        return @error_code == :success
+      end
+
+      def get
+        return @exit_code
+      end
+
+      def to_s
+        return @message.to_s
+      end
+    end
+  end
+end

data/lib/hpcloud/columns.rb

@@ -0,0 +1,46 @@
+# encoding: utf-8
+#
+# © Copyright 2013 Hewlett-Packard Development Company, L.P.
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+module HP
+  module Cloud
+    class Columns
+
+      attr_reader :keys
+    
+      def initialize(options, keys)
+        if options[:columns].nil?
+          @keys = keys
+        else
+          @keys = options[:columns].split(',')
+        end
+      end
+
+      def self.option_name
+        return :columns
+      end
+
+      def self.option_args
+        return { :type => :string, :aliases => '-c',
+           :desc => 'Comma separated list of columns in report.'}
+      end
+    end
+  end
+end

data/lib/hpcloud/commands/account/catalog.rb

@@ -0,0 +1,57 @@
+# encoding: utf-8
+#
+# © Copyright 2013 Hewlett-Packard Development Company, L.P.
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+require 'yaml'
+require 'hpcloud/accounts'
+
+module HP
+  module Cloud
+    class CLI < Thor
+    
+      desc 'account:catalog <account_to_catalog> [service]', "Print the service catalog of the specified account."
+      long_desc <<-DESC
+  Print the service catalog of the specified account.  Optionally, you may specify a particular service to print such as `Compute`.
+  
+Examples:
+  hpcloud account:catalog useast # Print the service catalog of `useast`:
+  hpcloud account:catalog useast Compute # Print the compute catalog of `useast`:
+      DESC
+      method_option :debug, :type => :string, :alias => '-x',
+                    :desc => 'Debug logging 1,2,3,...'
+      define_method "account:catalog" do |name, *service|
+        cli_command(options) {
+          @log.display "Service catalog '#{name}':"
+          HP::Cloud::Accounts.new().read(name)
+          begin
+            cata = Connection.instance.catalog(name, service)
+            @log.display cata.to_yaml.gsub(/--- \n/,'').gsub(/\{\}/,'').gsub(/\n\n/, "\n")
+          rescue Exception => e
+            unless options[:debug].nil?
+              puts e.backtrace
+            end
+            e = ErrorResponse.new(e).to_s
+            @log.error "Account verification failed. Please check your account credentials. \n Exception: #{e}"
+          end
+        }
+      end
+    end
+  end
+end

data/lib/hpcloud/commands/account/copy.rb

@@ -0,0 +1,44 @@
+# encoding: utf-8
+#
+# © Copyright 2013 Hewlett-Packard Development Company, L.P.
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+require 'hpcloud/accounts'
+
+module HP
+  module Cloud
+    class CLI < Thor
+    
+      desc 'account:copy <from_account> <to_account>', "Copy account data to the specified account."
+      long_desc <<-DESC
+  The copy command overwrites the destination account with the source account information.
+  
+Examples:
+  hpcloud account:copy useast backup  # Copy account `useast` to account `backup`
+      DESC
+      define_method "account:copy" do |src, dest|
+        cli_command(options) {
+          accounts = HP::Cloud::Accounts.new()
+          accounts.copy(src, dest)
+          @log.display("Account '#{src}' copied to '#{dest}'")
+        }
+      end
+    end
+  end
+end