MuranoCLI 2.0.0

data/lib/MrMurano/commands/cors.rb

@@ -0,0 +1,30 @@
+require 'yaml'
+require 'MrMurano/Solution-Cors'
+
+command :cors do |c|
+  c.syntax = %{murano cors}
+  c.summary = %{Get the CORS for the project.}
+  c.description = %{Get the CORS for the project.
+
+  Set the CORS with `murano cors set`
+  }
+
+  c.action do |args,options|
+    sol = MrMurano::Cors.new
+    ret = sol.fetch()
+    sol.outf ret
+  end
+end
+
+command 'cors set' do |c|
+  c.syntax = %{murano cors set [<file>]}
+  c.summary = %{Set the CORS for the project.}
+
+  c.action do |args,options|
+    crs = MrMurano::Cors.new
+    file = args.shift
+    crs.upload(file)
+  end
+end
+
+#  vim: set ai et sw=2 ts=2 :

data/lib/MrMurano/commands/domain.rb

@@ -0,0 +1,17 @@
+require 'MrMurano/Solution'
+command :domain do |c|
+  c.syntax = %{murano domain}
+  c.summary = %{Print the domain for this solution}
+  c.option '--[no-]raw', %{Don't add scheme}
+  c.action do |args,options|
+    options.default :raw=>true
+    sol = MrMurano::Solution.new
+    ret = sol.info()
+    if options.raw then
+      say ret[:domain]
+    else
+      say "https://#{ret[:domain]}"
+    end
+  end
+end
+#  vim: set ai et sw=2 ts=2 :

data/lib/MrMurano/commands/gb.rb

@@ -0,0 +1,33 @@
+require 'pp'
+
+# You don't need this.
+# To use this:
+# - mkdir -p ~/.mrmurano/plugins
+# - ln gb.rb ~/.mrmurano/plugins
+
+command :_gb do |c|
+  c.syntax = %{murano _gb <class> <method> (<args>)}
+  c.summary = %{Call internal class methods directly.}
+  c.description = %{Call internal class methods directly.}
+
+  c.action do |args, options|
+    cls = args[0]
+    meth = args[1].to_sym
+    args.shift(2)
+
+    begin
+      gb = Object::const_get("MrMurano::#{cls}").new
+      if gb.respond_to? meth then
+        pp gb.__send__(meth, *args)
+      else
+        say_error "'#{cls}' doesn't '#{meth}'"
+      end
+    rescue Exception => e
+      say_error e.message
+      pp e
+    end
+  end
+end
+
+
+#  vim: set ai et sw=2 ts=2 :

data/lib/MrMurano/commands/init.rb

@@ -0,0 +1,138 @@
+require 'MrMurano/Account'
+require 'MrMurano/Config-Migrate'
+require 'erb'
+
+
+command :init do |c|
+  c.syntax = %{murano init}
+  c.summary = %{The easy way to start a project}
+  c.description = %{}
+
+  c.option '--force', %{Override existing business, solution, or product ids}
+  c.option '--[no-]mkdirs', %{Create default directories}
+
+  c.action do |args, options|
+    options.default :force=>false, :mkdirs=>true
+    acc = MrMurano::Account.new
+    puts ''
+
+    if Pathname.new(Dir.pwd).realpath == Pathname.new(Dir.home).realpath then
+      acc.error "Cannot init a project in your HOME directory."
+      exit 2
+    end
+
+    say "Found project base directory at #{$cfg['location.base'].to_s}"
+    puts ''
+
+    # Try to import a .Solutionfile.secret
+    MrMurano::ConfigMigrate.new.import_secret
+
+    # If they have never logged in, then asking for the business.id will also ask
+    # for their username and password.
+    say "Using account #{$cfg['user.name']}"
+    say ''
+
+    # 1. Get business id
+    if not options.force and not $cfg['business.id'].nil? then
+      say "Using Business ID already set to #{$cfg['business.id']}"
+    else
+      bizz = acc.businesses
+      if bizz.count == 1 then
+        bizid = bizz.first
+        say "You are only part of one business; using #{bizid[:name]}"
+        $cfg.set('businesses.id', bizid[:bizid], :project)
+
+      else
+        choose do |menu|
+          menu.prompt = "Select which Business to use:"
+          menu.flow = :columns_across
+          bizz.sort{|a,b| a[:name]<=>b[:name]}.each do |b|
+            menu.choice(b[:name]) do
+              $cfg.set('business.id', b[:bizid], :project)
+            end
+          end
+        end
+      end
+    end
+    puts '' # blank line
+
+    # 2. Get Solution id
+    if not options.force and not $cfg['solution.id'].nil? then
+      say "Using Solution ID already set to #{$cfg['solution.id']}"
+    else
+      solz = acc.solutions
+      if solz.count == 1 then
+        sol = solz.first
+        say "You only have one solution; using #{sol[:domain]}"
+        $cfg.set('solution.id', sol[:apiId], :project)
+      else
+        choose do |menu|
+          menu.prompt = "Select which Solution to use:"
+          menu.flow = :columns_across
+          solz.sort{|a,b| a[:domain]<=>b[:domain]}.each do |s|
+            menu.choice(s[:domain].sub(/\..*$/,'')) do
+              $cfg.set('solution.id', s[:apiId], :project)
+            end
+          end
+        end
+      end
+    end
+    puts '' # blank line
+
+    # 3. Get Product id
+    if not options.force and not $cfg['product.id'].nil? then
+      say "Using Product ID already set to #{$cfg['product.id']}"
+    else
+      podz = acc.products
+      if podz.count == 1 then
+        prd = podz.first
+        say "You only have one product; using #{prd[:label]}"
+        $cfg.set('product.id', prd[:modelId], :project)
+      else
+        choose do |menu|
+          menu.prompt = "Select which Product to use:"
+          menu.flow = :columns_across
+          podz.sort{|a,b| a[:label]<=>b[:label]}.each do |p|
+            menu.choice(p[:label]) do
+              $cfg.set('product.id', p[:modelId], :project)
+            end
+          end
+        end
+      end
+    end
+
+    puts ''
+    say "Ok, In business ID: #{$cfg['business.id']} using Solution ID: #{$cfg['solution.id']} with Product ID: #{$cfg['product.id']}"
+
+    # If no ProjectFile or Solutionfile, then write a ProjectFile
+    if $project.project_file.nil? then
+      tmpl = File.read(File.join(File.dirname(__FILE__),'..','template','projectFile.murano.erb'))
+      tmpl = ERB.new(tmpl)
+      res = tmpl.result($project.data_binding)
+      prFile = $project['info.name'] + '.murano'
+      say "Writing an initial Project file: #{prFile}"
+      File.open(prFile, 'w') {|io| io << res}
+    end
+
+    if options.mkdirs then
+      base = $cfg['location.base']
+      base = Pathname.new(base) unless base.kind_of? Pathname
+      %w{
+        location.files
+        location.endpoints
+        location.modules
+        location.eventhandlers
+        location.specs
+      }.each do |cfgi|
+        path = $cfg[cfgi]
+        path = Pathname.new(path) unless path.kind_of? Pathname
+        path = base + path
+        path.mkpath unless path.exist?
+      end
+      say "Default directories created"
+    end
+
+  end
+end
+
+#  vim: set ai et sw=2 ts=2 :

data/lib/MrMurano/commands/keystore.rb

@@ -0,0 +1,157 @@
+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
+
+    def clearall()
+      call(:clear, :post, {})
+    end
+
+  end
+end
+
+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|
+    ::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|
+    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|
+    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|
+    sol = MrMurano::Keystore.new
+    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|
+    sol = MrMurano::Keystore.new
+    ret = sol.getkey(args[0])
+    sol.outf ret
+  end
+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|
+    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|
+    sol = MrMurano::Keystore.new
+    sol.delkey(args[0])
+  end
+end
+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.
+
+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|
+    sol = MrMurano::Keystore.new
+    if args.count < 2 then
+      sol.error "Not enough params"
+    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
+    end
+  end
+end
+alias_command 'keystore cmd', 'keystore command'
+
+# A bunch of common REDIS commands that are suported in Murano
+alias_command 'keystore lpush', 'keystore command', 'lpush'
+alias_command 'keystore lindex', 'keystore command', 'lindex'
+alias_command 'keystore llen', 'keystore command', 'llen'
+alias_command 'keystore linsert', 'keystore command', 'linsert'
+alias_command 'keystore lrange', 'keystore command', 'lrange'
+alias_command 'keystore lrem', 'keystore command', 'lrem'
+alias_command 'keystore lset', 'keystore command', 'lset'
+alias_command 'keystore ltrim', 'keystore command', 'ltrim'
+alias_command 'keystore rpop', 'keystore command', 'rpop'
+alias_command 'keystore rpush', 'keystore command', 'rpush'
+alias_command 'keystore sadd', 'keystore command', 'sadd'
+alias_command 'keystore srem', 'keystore command', 'srem'
+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/logs.rb

@@ -0,0 +1,78 @@
+require 'MrMurano/Solution'
+require 'MrMurano/makePretty'
+
+command :logs do |c|
+  c.syntax = %{murano logs [options]}
+  c.description = %{Get the logs for a solution}
+  c.option '-f','--follow', %{Follow logs from server}
+  c.option('--[no-]color', %{Toggle colorizing of logs}) {
+    Rainbow.enabled = false
+  }
+  c.option '--[no-]pretty', %{Reformat JSON blobs in logs.}
+  c.option '--[no-]localtime', %{Adjust Timestamps to be in local time}
+  c.option '--raw', %{Don't do any formating of the log data}
+
+  c.action do |args,options|
+    options.default :pretty=>true, :localtime=>true, :raw => false
+
+    sol = MrMurano::Solution.new
+
+    if options.follow then
+      # open a lasting connection and continueally feed makePretty()
+      begin
+        sol.get('/logs?polling=true') do |request, http|
+          request["Accept-Encoding"] = "None"
+          http.request(request) do |response|
+            remainder=''
+            response.read_body do |chunk|
+              chunk = remainder + chunk unless remainder.empty?
+
+              # for all complete JSON blobs, make them pretty.
+              chunk.gsub!(/\{(?>[^}{]+|\g<0>)*\}/m) do |m|
+                if options.raw then
+                  puts m
+                else
+                  begin
+                    js = JSON.parse(m, {:allow_nan=>true,
+                                        :symbolize_names => true,
+                                        :create_additions=>false})
+                    puts MrMurano::Pretties::makePretty(js, options)
+                  rescue
+                    sol.error '=== JSON parse error, showing raw instead ==='
+                    puts m
+                  end
+                end
+                '' #remove (we're kinda abusing gsub here.)
+              end
+
+              # is there an incomplete one?
+              if chunk.match(/(\{.*$)/m) then
+                remainder = $1
+              end
+
+            end
+          end
+        end
+      rescue Interrupt => _
+      end
+
+    else
+      ret = sol.get('/logs')
+
+      if ret.kind_of?(Hash) and ret.has_key?(:items) then
+        ret[:items].reverse.each do |line|
+          if options.raw then
+            puts line
+          else
+            puts MrMurano::Pretties::makePretty(line, options)
+          end
+        end
+      else
+        sol.error "Couldn't get logs: #{ret}"
+        break
+      end
+
+    end
+  end
+end
+#  vim: set ai et sw=2 ts=2 :