MuranoCLI 2.2.4 → 3.0.0

data/lib/MrMurano/commands/keystore.rb

@@ -1,88 +1,83 @@
-require 'MrMurano/Solution-ServiceConfig'
-
-module MrMurano
-  class Keystore < ServiceConfig
-    def initialize
-      super
-      @serviceName = 'keystore'
-    end
-
-    def keyinfo
-      call(:info)
-    end
-
-    def listkeys
-      ret = call(:list)
-      ret[:keys]
-    end
-
-    def getkey(key)
-      ret = call(:get, :post, {:key=>key})
-      ret[:value]
-    end
-
-    def setkey(key, value)
-      call(:set, :post, { :key=>key, :value=>value })
-    end
-
-    def delkey(key)
-      call(:delete, :post, {:key=>key})
-    end
-
-    def command(key, cmd, args)
-      call(:command, :post, {:key=>key, :command=>cmd, :args=>args})
-    end
+# Last Modified: 2017.08.16 /coding: utf-8
+# frozen_string_literal: true
 
-    def clearall()
-      call(:clear, :post, {})
-    end
+# Copyright © 2016-2017 Exosite LLC.
+# License: MIT. See LICENSE.txt.
+#  vim:tw=0:ts=2:sw=2:et:ai
 
-  end
-end
+require 'MrMurano/Keystore'
+require 'MrMurano/ReCommander'
+require 'MrMurano/Solution-ServiceConfig'
 
 command :keystore do |c|
-  c.syntax = %{murano keystore}
-  c.summary = %{About Keystore}
-  c.description = %{The Keystore sub-commands let you interact directly with the Keystore instance
-in a solution.  This allows for easier debugging, being able to quickly get and
-set data.  As well as calling any of the other supported REDIS commands.}
-  c.action do |args, options|
+  c.syntax = %(murano keystore)
+  c.summary = %(About Keystore)
+  c.description = %(
+The Keystore sub-commands let you interact directly with the Keystore instance
+in a solution. This allows for easier debugging, being able to quickly get and
+set data. As well as calling any of the other supported REDIS commands.
+  ).strip
+  c.project_not_required = true
+
+  c.action do |_args, _options|
     ::Commander::UI.enable_paging
     say MrMurano::SubCmdGroupHelp.new(c).get_help
   end
 end
 
 command 'keystore clearAll' do |c|
-  c.syntax = %{murano keystore clearAll}
-  c.description = %{Delete all keys in the keystore}
-  c.action do |args,options|
+  c.syntax = %(murano keystore clearAll)
+  c.summary = %(Delete all keys in the keystore)
+  c.description = %(
+Delete all keys in the keystore.
+  ).strip
+
+  c.action do |args, _options|
+    c.verify_arg_count!(args)
     sol = MrMurano::Keystore.new
     sol.clearall
   end
 end
 
 command 'keystore info' do |c|
-  c.syntax = %{murano keystore info}
-  c.description = %{Show info about the Keystore}
-  c.action do |args,options|
+  c.syntax = %(murano keystore info)
+  c.summary = %(Show info about the Keystore)
+  c.description = %(
+Show info about the Keystore.
+  ).strip
+
+  c.action do |args, _options|
+    c.verify_arg_count!(args)
     sol = MrMurano::Keystore.new
     sol.outf sol.keyinfo
   end
 end
 
 command 'keystore list' do |c|
-  c.syntax = %{murano keystore list}
-  c.description = %{List all of the keys in the Keystore}
-  c.action do |args,options|
+  c.syntax = %(murano keystore list)
+  c.summary = %(List all of the keys in the Keystore)
+  c.description = %(
+List all of the keys in the Keystore.
+  ).strip
+
+  c.action do |args, _options|
+    c.verify_arg_count!(args)
     sol = MrMurano::Keystore.new
+    # FIXME/2017-06-14: This outputs nothing if not list, unlike other
+    #   list commands that say, e.g., "No solutions found"
     sol.outf sol.listkeys
   end
 end
 
 command 'keystore get' do |c|
-  c.syntax = %{murano keystore get <key>}
-  c.description = %{Get the value of a key in the Keystore}
-  c.action do |args,options|
+  c.syntax = %(murano keystore get <key>)
+  c.summary = %(Get the value of a key in the Keystore)
+  c.description = %(
+Get the value of a key in the Keystore.
+  ).strip
+
+  c.action do |args, _options|
+    c.verify_arg_count!(args, 1, ['Missing key'])
     sol = MrMurano::Keystore.new
     ret = sol.getkey(args[0])
     sol.outf ret
@@ -90,18 +85,31 @@ command 'keystore get' do |c|
 end
 
 command 'keystore set' do |c|
-  c.syntax = %{murano keystore set <key> <value...>}
-  c.description = %{Set the value of a key in the Keystore}
-  c.action do |args,options|
+  c.syntax = %(murano keystore set <key> <value...>)
+  c.summary = %(Set the value of a key in the Keystore)
+  c.description = %(
+Set the value of a key in the Keystore.
+  ).strip
+
+  c.action do |args, _options|
+    c.verify_arg_count!(args, nil, ['Missing key', 'Missing value(s)'])
     sol = MrMurano::Keystore.new
     sol.setkey(args[0], args[1..-1].join(' '))
   end
 end
 
 command 'keystore delete' do |c|
-  c.syntax = %{murano keystore delete <key>}
-  c.description = %{Delete a key from the Keystore}
-  c.action do |args,options|
+  c.syntax = %(murano keystore delete <key>)
+  c.summary = %(Delete a key from the Keystore)
+  c.description = %(
+Delete a key from the Keystore.
+  ).strip
+
+  # MAYBE?/2017-08-16: Verify on delete.
+  #c.option('-y', '--[no-]yes', %(Answer "yes" to all prompts and run non-interactively))
+
+  c.action do |args, _options|
+    c.verify_arg_count!(args, 1, ['Missing key'])
     sol = MrMurano::Keystore.new
     sol.delkey(args[0])
   end
@@ -110,28 +118,31 @@ alias_command 'keystore rm', 'keystore delete'
 alias_command 'keystore del', 'keystore delete'
 
 command 'keystore command' do |c|
-  c.syntax = %{murano keystore command <command> <key> <args...>}
-  c.summary = %{Call some Redis commands in the Keystore}
-  c.description = %{Call some Redis commands in the Keystore.
+  c.syntax = %(murano keystore command <command> <key> [<args...>])
+  c.summary = %(Call some Redis commands in the Keystore)
+  c.description = %(
+Call some Redis commands in the Keystore.
 
 Only a subset of all Redis commands is supported.
-See http://docs.exosite.com/murano/services/keystore/#command for current list.
-  }
-  c.example %{murano keystore command lpush mykey myvalue}, %{Push a value onto list}
-  c.example %{murano keystore command lpush mykey A B C}, %{Push three values onto list}
-  c.example %{murano keystore command lrem mykey 0 B}, %{Remove all B values from list}
-  c.action do |args,options|
+
+For current list, see:
+
+  http://docs.exosite.com/murano/services/keystore/#command
+  ).strip
+  c.example %(murano keystore command lpush mykey myvalue), %(Push a value onto list)
+  c.example %(murano keystore command lpush mykey A B C), %(Push three values onto list)
+  c.example %(murano keystore command lrem mykey 0 B), %(Remove all B values from list)
+
+  c.action do |args, _options|
+    #c.verify_arg_count!(args, nil, ['Missing command', 'Missing key', 'Missing value(s)'])
+    c.verify_arg_count!(args, nil, ['Missing command', 'Missing key'])
     sol = MrMurano::Keystore.new
-    if args.count < 2 then
-      sol.error "Not enough params"
+    ret = sol.command(args[1], args[0], args[2..-1])
+    if ret.key?(:value)
+      sol.outf ret[:value]
     else
-      ret = sol.command(args[1], args[0], args[2..-1])
-      if ret.has_key?(:value) then
-        sol.outf ret[:value]
-      else
-        sol.error "#{ret[:code]}: #{ret.message}"
-        sol.outf ret[:error] if ($cfg['tool.debug'] and ret.has_key?(:error))
-      end
+      sol.error "#{ret[:code]}: #{ret.message}"
+      sol.outf ret[:error] if $cfg['tool.debug'] && ret.key?(:error)
     end
   end
 end
@@ -154,4 +165,3 @@ alias_command 'keystore scard', 'keystore command', 'scard'
 alias_command 'keystore smembers', 'keystore command', 'smembers'
 alias_command 'keystore spop', 'keystore command', 'spop'
 
-#  vim: set ai et sw=2 ts=2 :

data/lib/MrMurano/commands/link.rb

@@ -0,0 +1,300 @@
+# Last Modified: 2017.08.17 /coding: utf-8
+# frozen_string_literal: true
+
+# Copyright © 2016-2017 Exosite LLC.
+# License: MIT. See LICENSE.txt.
+#  vim:tw=0:ts=2:sw=2:et:ai
+
+require 'MrMurano/Account'
+require 'MrMurano/ReCommander'
+require 'MrMurano/Solution'
+require 'MrMurano/Solution-ServiceConfig'
+require 'MrMurano/SolutionId'
+
+MSG_SERVICE_LINKS_NONE_FOUND = 'No service links found' unless defined? MSG_SERVICE_LINKS_NONE_FOUND
+
+command 'link' do |c|
+  c.syntax = %(murano link)
+  c.summary = %(Use the link commands to manage solution links)
+  c.description = %(
+Use the link commands to manage solution links.
+  ).strip
+  c.project_not_required = true
+
+  c.action do |_args, _options|
+    ::Commander::UI.enable_paging
+    say(MrMurano::SubCmdGroupHelp.new(c).get_help)
+  end
+end
+
+command 'link list' do |c|
+  c.syntax = 'murano link list [--options]'
+  c.summary = %(List the solutions that are linked)
+  c.description = %(
+List the solutions that are linked.
+  ).strip
+
+  # MAYBE: Here and elsewhere: hyphenate, e.g., --id-only
+  c.option '--idonly', 'Only return the ids'
+  #c.option '--[no-]brief', 'Show fewer fields: only name, key, and service'
+  c.option '--[no-]full', 'Show all fields, not just name, key, and service'
+  c.option '--[no-]all', 'Show links for all Solutions in Business, not just Project'
+
+  c.action do |args, options|
+    c.verify_arg_count!(args)
+
+    MrMurano::Verbose.whirly_start('Fetching product list...')
+    biz = MrMurano::Business.new
+    products = biz.products
+    MrMurano::Verbose.whirly_stop
+    pids = products.map(&:apiId)
+
+    sol_opts = { biz: biz, type: :application }
+    sol_opts[:match_sid] = $cfg['application.id'] unless options.all
+    appl = solution_find_or_create(**sol_opts)
+
+    if !appl.nil?
+      MrMurano::Verbose.whirly_msg('Fetching application services...')
+      sercfg = MrMurano::ServiceConfig.new(appl.sid)
+      #scfgs = sercfg.list('?select=service,id,solution_id,script_key,alias')
+      scfgs = sercfg.list
+      MrMurano::Verbose.whirly_stop
+    else
+      sercfg = MrMurano::ServiceConfig.new(MrMurano::SolutionId::INVALID_SID)
+      scfgs = []
+    end
+
+    scfgs.select! { |s| pids.include? s[:service] }
+    # MAYBE/2017-08-16: filter by $cfg['product.id'] if !options.all
+
+    io = File.open(options.output, 'w') if options.output
+
+    if options.idonly
+      headers = [:service]
+      scfgs = scfgs.map { |row| [row[:service]] }
+    elsif !options.full
+      headers = %i[name script_key service]
+      scfgs = scfgs.map { |r| headers.map { |h| r[h] } }
+    else
+      headers = (scfgs.first || {}).keys
+      scfgs = scfgs.map { |r| headers.map { |h| r[h] } }
+    end
+
+    sercfg.outf(scfgs, io) do |dd, ios|
+      if options.idonly
+        ios.puts dd.join(' ')
+      elsif dd.any?
+        MrMurano::Verbose.tabularize(
+          {
+            headers: headers.map(&:to_s),
+            rows: dd,
+          },
+          ios,
+        )
+      else
+        MrMurano::Verbose.error(MSG_SERVICE_LINKS_NONE_FOUND)
+        exit 0
+      end
+    end
+    io.close unless io.nil?
+  end
+end
+alias_command 'assign list', 'link list'
+alias_command 'links list', 'link list'
+
+command 'link set' do |c|
+  c.syntax = 'murano link set [--options] [<product-id> [<application-id>]]'
+  c.summary = %(Link a solution to an event handler)
+  c.description = %(
+Link a solution to an event handler of another solution.
+  ).strip
+
+  # Add soln pickers: --application* and --product*
+  cmd_option_application_pickers(c)
+  cmd_option_product_pickers(c)
+
+  c.action do |args, options|
+    c.verify_arg_count!(args, 2)
+    pid = args.shift
+    aid = args.shift
+    sol_a, sol_b = get_two_solutions!(aid, pid, **options.__hash__, skip_verify: false)
+    link_opts = { warn_on_conflict: true }
+    link_solutions(sol_a, sol_b, link_opts)
+  end
+end
+alias_command 'assign set', 'link set'
+
+command 'link unset' do |c|
+  c.syntax = 'murano link unset [--options] [<product-id> [<application-id>]]'
+  c.summary = %(Unlink a solution from an event handler)
+  c.description = %(
+Unlink a solution from an event handler of another solution.
+  ).strip
+
+  # Add soln pickers: --application* and --product*
+  cmd_option_application_pickers(c)
+  cmd_option_product_pickers(c)
+
+  c.action do |args, options|
+    c.verify_arg_count!(args, 2)
+    pid = args.shift
+    aid = args.shift
+    sol_a, sol_b = get_two_solutions!(aid, pid, **options.__hash__, skip_verify: false)
+    unlink_solutions(sol_a, sol_b)
+  end
+end
+alias_command 'assign unset', 'link unset'
+
+def link_solutions(sol_a, sol_b, options)
+  warn_on_conflict = options[:warn_on_conflict] || false
+  verbose = options[:verbose] || false
+
+  if sol_a.nil? || sol_a.sid.to_s.empty? || sol_b.nil? || sol_b.sid.to_s.empty?
+    msg = 'Missing Solution(s) (Applications or Products): Nothing to link'
+    if warn_on_conflict
+      sercfg.warning msg
+    else
+      say(msg)
+    end
+    return
+  end
+
+  if sol_a.is_a?(MrMurano::Product) && sol_b.is_a?(MrMurano::Application)
+    # If the order is backwards, Murano will return
+    #   Net::HTTPFailedDependency/424 "No such Service XXX"
+    tmp = sol_a
+    sol_a = sol_b
+    sol_b = tmp
+    # MAYBE/2017-08-16: Are there plans for linking other types of things?
+    #   What about Application to Application, or Product to Product?
+  end
+
+  # Get services for solution to which being linked (application),
+  # and look for linkee (product) service.
+  sercfg = MrMurano::ServiceConfig.new(sol_a.sid)
+  MrMurano::Verbose.whirly_msg 'Fetching services...'
+  scfgs = sercfg.search(sol_b.sid)
+  svc_cfg_exists = scfgs.any?
+  MrMurano::Verbose.whirly_stop
+
+  # Create the service configuration.
+  unless svc_cfg_exists
+    MrMurano::Verbose.whirly_msg 'Linking solutions...'
+    # Call Murano.
+    _ret = sercfg.create(sol_b.sid, sol_b.name) do |request, http|
+      response = http.request(request)
+      MrMurano::Verbose.whirly_stop
+      if response.is_a?(Net::HTTPSuccess)
+        say("Linked #{sol_b.quoted_name} to #{sol_a.quoted_name}")
+      elsif response.is_a?(Net::HTTPConflict)
+        svc_cfg_exists = true
+      else
+        MrMurano::Verbose.error(
+          "Unable to link solutions: ‘#{Rainbow(response.message).underline}’"
+        )
+        sercfg.showHttpError(request, response)
+      end
+    end
+  end
+  if svc_cfg_exists
+    msg = 'Solutions already linked'
+    if warn_on_conflict
+      sercfg.warning msg
+    else
+      say(msg)
+    end
+  end
+  puts '' if verbose
+
+  # Get event handlers for application, and look for product event handler.
+  MrMurano::Verbose.whirly_msg 'Fetching handlers...'
+  evthlr = MrMurano::EventHandlerSolnApp.new(sol_a.sid)
+  hdlrs = evthlr.search(sol_b.sid)
+  evt_hlr_exists = hdlrs.any?
+  MrMurano::Verbose.whirly_stop
+
+  # Create the event handler, using a simple script,
+  # like the web UI does (yeti yeti spaghetti).
+  unless evt_hlr_exists
+    MrMurano::Verbose.whirly_msg 'Setting default event handler...'
+    # Call Murano.
+    evthlr.default_event_script(sol_b.sid) do |request, http|
+      response = http.request(request)
+      MrMurano::Verbose.whirly_stop
+      if response.is_a?(Net::HTTPSuccess)
+        say('Created default event handler')
+      elsif response.is_a?(Net::HTTPConflict)
+        evt_hlr_exists = true
+      else
+        MrMurano::Verbose.error(
+          "Failed to create default event handler: ‘#{Rainbow(response.message).underline}’"
+        )
+        evthlr.showHttpError(request, response)
+      end
+    end
+  end
+  if evt_hlr_exists
+    msg = 'Event handler already created'
+    if warn_on_conflict
+      sercfg.warning msg
+    else
+      say(msg)
+    end
+  end
+  puts '' if verbose
+end
+
+def unlink_solutions(sol_a, sol_b)
+  sercfg = MrMurano::ServiceConfig.new(sol_a.sid)
+  MrMurano::Verbose.whirly_msg 'Fetching services...'
+  #scfgs = sercfg.list('?select=service,id,solution_id,script_key,alias')
+  scfgs = sercfg.search(sol_b.sid)
+  MrMurano::Verbose.whirly_stop
+
+  if scfgs.length > 1
+    sercfg.warning "More than one service configuration found: #{scfgs}"
+  elsif scfgs.empty?
+    sercfg.warning 'No matching service configurations found; nothing to unlink'
+    #exit 1
+  end
+
+  sercfg.debug "Found #{scfgs.length} configurations to unlink from the Application"
+
+  scfgs.each do |svc|
+    sercfg.debug "Deleting #{svc[:service]} : #{svc[:script_key]} : #{svc[:id]}"
+    ret = sercfg.remove(svc[:id])
+    if !ret.nil?
+      msg = "Unlinked ‘#{svc[:script_key]}’"
+      msg += " from #{sol_a.quoted_name}" unless sol_a.quoted_name.to_s.empty?
+      say(msg)
+    else
+      sercfg.warning "Failed to unlink ‘#{svc[:id]}’"
+    end
+  end
+
+  MrMurano::Verbose.whirly_msg 'Fetching handlers...'
+  evthlr = MrMurano::EventHandlerSolnApp.new(sol_a.sid)
+  hdlrs = evthlr.search(sol_b.sid)
+  #evt_hlr_exists = hdlrs.any?
+  MrMurano::Verbose.whirly_stop
+
+  if hdlrs.length > 1
+    sercfg.warning "More than one event handler found: #{hdlrs}"
+  elsif hdlrs.empty?
+    sercfg.warning 'No matching event handlers found; nothing to delete'
+    #exit 1
+  end
+
+  hdlrs.each do |evth|
+    evthlr.debug "Deleting #{evth[:service]} : #{evth[:alias]} : #{evth[:id]}"
+    ret = evthlr.remove(evth[:id])
+    if !ret.nil?
+      msg = "Removed ‘#{evth[:alias]}’"
+      msg += " from #{sol_a.quoted_name}" unless sol_a.quoted_name.to_s.empty?
+      say(msg)
+    else
+      MrMurano::Verbose.warning "Failed to remove handler ‘#{svc[:id]}’"
+    end
+  end
+end
+