a4tools 1.2.7

data/lib/net_shell/builtin_commands/talk.rb

@@ -0,0 +1,90 @@
+require 'talk'
+
+category "Talk"
+description "Select a given version of Talk"
+usage "[branch_name]"
+help <<-EOS
+Selects a given version of Talk for use in netshell.
+EOS
+
+opt :repo, "Use the indicated local repository instead of default"
+opt :commit, "Select a Talk version in terms of a git commit hash instead of a branch", :type => :string
+opt :update, "Ensure that the acres4/talk repository is up-to-date"
+opt :jeb, "Select a Talk version in terms of a jeb instead of a branch", :type => :string
+opt :talkversion, "Use a specific version of maketalk", :type => :string
+
+tab :commit do
+  return list_commits.map { |commit| commit[:hash] }
+end
+
+tab :jeb do
+  return list_commits.map { |commit| commit[:jeb] }
+end
+
+tab 0 do
+  return list_branches
+end
+
+validate do
+  return true if args.length == 2 and !params[:jeb] and !params[:commit]
+  return true if args.length == 1 and (params[:jeb] or params[:commit])
+end
+
+run do
+  clone_repo unless repo_exists?
+  fetch if params[:update]
+  target = params[:jeb] || params[:commit] || args[1]
+  checkout(target)
+  make_talk
+  ""
+end
+
+###
+
+def repo
+  params[:repo] || @shell.shelldir("talk")
+end
+
+def talk_json_path
+  $localtalk
+end
+
+def repo_exists?
+  File.exist?(File.join(repo, ".git"))
+end
+
+def fetch
+  `cd #{repo} && git fetch`
+end
+
+def checkout(id)
+  id = Jebediah.new.process(id)[:result] if params[:jeb]
+  `cd #{repo} && git checkout origin/#{id}`
+end
+
+def make_talk
+  version = params[:talkversion] ? " _#{params[:talkversion]}_" : ""
+  `cd #{repo} && maketalk#{version} --upgrade --json info > #{talk_json_path}`
+  refresh_talk
+end
+
+def clone_repo
+  puts "Cloning respository into #{repo}"
+  `cd #{File.join(repo, "..")} && git clone git@github.com:acres4/talk`
+end
+
+def list_commits
+  return [] unless repo_exists?
+  jeb = Jebediah.new
+  `cd #{repo} && git log --pretty=format:"%an:%h:%s"`.split("\n").map do |commit|
+    components = commit.split(":")
+    { author:components[0], hash:components[1], jeb:jeb.process(components[1])[:result].join(" "), notes:components[2] }
+  end
+end
+
+def list_branches
+  return [] unless repo_exists?
+  branches = `cd #{repo} && git branch -a --no-color`.split("\n").map { |x| x.gsub(/^\*? */,"").gsub(/^.*-> /,"").gsub(/^(remotes\/)?origin\//,"") }
+  branches &= branches # remove dupes
+  branches.sort
+end

data/lib/net_shell/builtin_commands/translate.rb

@@ -0,0 +1,45 @@
+category "Talk"
+description "Find talk entities matching a constant value or string"
+usage "value"
+
+help <<-EOS
+Attempts to find a string or number in a Talk glossary or enumeration. All matching constants are displayed. Constants are case-sensitive.
+
+Example:
+Show all constants equal to 10
+  #{command} 10
+
+Show all terms equal to Mercury
+  #{command} Mercury
+
+EOS
+
+validate { args.length == 2 }
+
+tab 0 do
+  (talk.definition[:glossary].inject([]) { |terms, glossary| terms + glossary[:term] }).map { |t| t[:value] }
+end 
+
+run { translate(args[1]) }
+
+###
+
+def translate(value)
+  is_numeric = (not(value.is_a?(String)) or value.match(/^[-+]?[0-9]+(.[0-9]+)?$/) != nil)
+
+  candidates = case is_numeric
+  when true
+    talk.definition[:enumeration].inject([]) do |c, enum|
+      c + (enum[:constant].select { |constant| constant[:value] == value.to_f }).map { |x| { collection:enum, constant:x } }
+    end
+  when false
+    talk.definition[:glossary].inject([]) do |c, glossary|
+      c + (glossary[:term].select { |term| term[:value] == value }).map { |x| { collection:glossary, constant:x } }
+    end
+  end
+
+  return "No matches for #{value}" if candidates.empty?
+
+  (candidates.map { |item| "#{item[:constant][:name].style(:constant_name)} (#{talk.truncated_name item[:collection][:name].style(:collection_name)}): #{item[:constant][:description]}" }).join("\n")
+end
+

data/lib/net_shell/builtin_commands/unset.rb

@@ -0,0 +1,14 @@
+category "Shell management"
+description "Unset an environment variable"
+usage "variable"
+
+validate { args.length == 2 }
+
+tab 0 do
+  @shell.env.keys
+end
+
+run do
+  @shell.set_env(args[1], nil)
+  ""
+end

data/lib/net_shell/builtin_commands/usher.rb

@@ -0,0 +1,55 @@
+category "Usher"
+description "Determine usher information for current IP and serial number"
+usage "[serial_number]"
+
+help <<-EOS
+Prints usher information for clients requesting from the specified IP address and serial number.
+
+If no IP or serial number are supplied, #{command.style(:command)} uses the host's actual IP address and the "#{"serial".style(:environment)}" environment variable.
+EOS
+
+opt :full, "Instruct usher to give all possible hosts instead of trying to guess which host is appropriate. (e.g. use \"#{"usherAlt".style(:method_name)}\" method)"
+opt :json, "Print result as JSON"
+opt :url, "Use usher mirror at specified URL", :type => :string
+opt :ip, "Use usher as if coming from IP address", :type => :string
+
+tab 0 do
+  (usherm[:devSiteInfoSync][:devSiteInfoArray].map { |info| info[:serialNumber] }) rescue []
+end
+
+run do
+  params[:serial] = args[1] if args.length > 0
+  result = A4Tools::UsherClient.new(params[:url]).list_servers_raw(params)
+  return params[:json] ? result.body : render_result(result)
+end
+
+###
+
+def render_result(response)
+  return ("Unable to contact usher") if response.nil?
+  return "Usher returned status #{response.code}" if response.code.to_i < 200 or response.code.to_i >= 300
+  begin
+    payload = JSON.parse(response.body)
+    return ("Usher returned non-JSON RPC response") unless payload["jsonrpc"] == "2.0"
+    return ("Usher returned error: \"#{payload["error"]}\"") unless payload["error"].nil?
+    return ("Usher did not include result") if payload["result"].nil?
+    return ("Usher server returned non-usher response") unless payload["result"]["className"] == "com.acres4.common.info.usher.UsherResponse"
+    return ("Usher response did not include body") if payload["result"]["body"].nil?
+    return render_success(payload["result"]["body"])
+  rescue JSON::ParserError
+    return ("Usher returned non-JSON response")
+  end
+end
+
+def render_success(result)
+  s  = "       Site ID: #{result["siteID"]}\n"
+  s += "     Site name: #{result["siteName"]}\n"
+  s += "Remote address: #{result["remoteAddr"]}\n\n"
+
+  result["hosts"].each do |host|
+    s += "Product: #{host["product"]} (#{host["host"]}:#{host["port"]})\n\t#{host["url"]}, #{host["ctx"]}, System #{host["systemId"]}\n\n"
+  end
+
+  s
+end
+

data/lib/net_shell/builtin_commands/usher_device.rb

@@ -0,0 +1,39 @@
+category "Usher"
+description "Manage development devices in Usher"
+usage [
+  "[siteId]                   -- list development devices in usher",
+  "serial siteId [comment]    -- update development device with specified serial number"
+]
+
+help <<-EOS
+Updates the development device with the specified serial in UsherM to use the specified site ID. If a comment supplied, the device's comment field is updated to the supplied comment.
+
+If no such serial is registered, a new registration is created.
+
+Must have previously connected to UsherM using #{"usherm_connect".style(:environment)}.
+EOS
+
+validate do
+  return show_error("must connect usherm first") if usherm.nil?
+  args.length <= 4
+end
+
+tab 0 do
+  usherm[:devSiteInfoSync][:devSiteInfoArray].map { |info| info[:serialNumber] } rescue []
+end
+
+run do
+  if args.length == 1  or args.length == 2 then
+    usherm.ensure_fresh
+    devices = usherm[:devSiteInfoSync][:devSiteInfoArray]
+    devices = devices.reject { |info| info[:idSite].to_i != args[1].to_i } if args.length == 2
+    (devices.map do |info|
+      "#{sprintf("%3d", info[:idDevSiteInfo]).to_s.light_blue}  #{info[:serialNumber].red} -> Site ##{info[:idSite].to_s.bold}, #{info[:description]}"
+    end).join("\n")
+  else
+    description = args[3] rescue nil
+    usherm.update_device(args[1], description, args[2].to_i, "Added via netshell by #{`whoami`.chomp}@#{`hostname`.chomp}")
+    ""
+  end
+end
+

data/lib/net_shell/builtin_commands/usher_site.rb

@@ -0,0 +1,245 @@
+<<-EOS
+
+net> site --add
+
+What kind of site are we adding?
+1) Development
+2) Pulltab
+3) Arcade
+4) Production
+
+Property name (e.g. "Casino del Sol")
+> Casino del Sol
+
+Geographic State
+> AZ
+> Arizona
+
+Business day start (24-hour clock, e.g. 1300)   # (actually supports H, HH, HMM, HH:MM)
+> 12:35
+> 0500
+> 500
+> 12
+> 0
+
+Host
+> dev02.acres4.netx
+That doesn't seem to be a valid usher host.
+> dev02.acres4.net
+
+Casino del Sol will accept the following CIDR blocks:
+  No CIDR blocks registered
+
+You can A)dd or D)elete CIDR blocks, or C)ontinue with configuration
+> A
+
+CIDR block (e.g. 1.2.3.4/16):
+> 1.2.3.4/16
+Description for 1.2.3.4/16:
+> Local wireless
+
+Casino del Sol will accept the following CIDR blocks:
+  1.2.3.4/16 (Local wireless)
+
+You can A)dd or D)elete CIDR blocks, or C)ontinue with configuration
+> C
+
+Casino del Sol will advertise the following servers:
+ 1) Mercury (dev02.acres4.net)
+ 2) Central (dev02.acres4.net)
+ 3) Deployment (deployments.acres4.net)
+ C) Cancel
+
+You can A)dd or D)elete servers, or C)ontinue with configuration
+> D
+
+Which server would you like Casino del Sol to stop advertising?
+> 2
+
+Casino del Sol will advertise the following servers:
+ 1) Mercury (dev02.acres4.net)
+ 2) Deployment (deployments.acres4.net)
+
+You can A)dd or D)elete servers, or C)ontinue with configuration
+> A
+
+Which server would you like to advertise?
+ 1) Central. Central Database Server.
+ 2) Monitor.
+ 3) Promo. Promotional contest server.
+ 4) Switchboard. Switchboard server.
+ 5) Kaicheck. Kaicheck diagnostic server.
+ 6) Kaivoip. Voice server.
+ 7) PickPromo.
+ 8) Kailite.
+ C) Cancel
+
+> 6
+
+Which host would you like to use as a Kaivoip server?
+ 1) dev02.acres4.net
+ 2) example.com
+ C) Cancel
+
+> 2
+
+Casino del Sol will advertise the following servers:
+ 1) Mercury (dev02.acres4.net)
+ 2) Deployment (deployments.acres4.net)
+ 3) Kaivoip (example.com)
+
+You can A)dd or D)elete servers, or C)ontinue with configuration
+> C
+
+Casino del Sol has the following applications deployed:
+  No applications deployed
+
+You can A)dd an application, D)elete an application, or C)ontinue with configuration
+> A
+
+What application would you like to deploy to Casino del Sol?
+ 1) FrontLine
+ 2) Supervisor
+ 3) Kaicheck
+...
+> 3
+
+Here are recent versions of Kaicheck:
+ 1)     [rc/lima] strangely stroked slug
+ 2)   [rc/juliet] gently torched dog
+...
+
+Enter the number of the build you want to deploy, or the name of another build if you know it:
+> unsettlingly aroused llama
+
+There doesn't seem to a build named that for Front Line.
+> 2
+
+Casino del Sol has the following applications deployed:
+  1) Supervisor (rc/juliet): gently torched dog
+  2) FrontLine (rc/juliet): gently torched dog
+
+You can A)dd an application, D)elete an application, or C)ontinue with configuration
+> C
+
+CONGRATULATIONS!
+You've finished defining a new site. Here's what we've wound up with:
+
+Production site
+example ("example")
+Business day start: 02:00, US/Nevada
+Base host: ip-10-1-0-24.acres4.net
+
+CIDR blocks:
+  1.2.3.4/16   Local wifi
+
+Advertised servers:
+      Mercury  dev02.acres4.net
+   Deployment  deployments.acres4.net
+      Kaivoip  example.com
+
+Applications:
+    FrontLine  [rc/juliet] gently stroked dog
+   Supervisor  [rc/juliet] gently stroked dog
+
+Are these settings correct? [y/n]
+> 
+Are these settings correct? [y/n]
+> n
+
+Pick a section to edit:
+  1) Basic site info
+  2) CIDR blocks
+  3) Advertised servers
+  4) Applications
+  C) Cancel
+
+> C
+
+CONGRATULATIONS!
+You've finished defining a new site. Here's what we've wound up with:
+
+Production site
+casino-del-sol ("Casino del Sol")
+Business day start: 04:00, US/Arizona
+Base host: dev02.acres4.net
+
+CIDR blocks:
+  10.1.0.128/30   Home
+
+Advertised servers:
+      Mercury  dev02.acres4.net
+   Deployment  deployments.acres4.net
+
+Applications:
+    FrontLine  [rc/juliet] gently stroked dog
+   Supervisor  [rc/juliet] gently stroked dog
+
+Are these settings correct? [y/n]
+> y
+
+Creating site record...
+Updating CIDR preferences...
+Updating advertised server preferences...
+Publishing usher changes...
+Deploying applications...
+Done!
+
+NEW SITE ISSUED: example, site #36, system #1234
+
+EOS
+
+category "Usher"
+description "Add, update and delete sites in usher"
+usage [
+  "add",
+  "edit site_id",
+  "delete site_id"
+]
+
+tab 0 do
+  ["add", "edit", "delete"]
+end
+
+tab 1 do
+  usherm[:usherSystemId][:usherSites].map { |site| site[:idSite] } +
+    usherm[:usherSystemId][:usherSites].map { |site| site[:name] }
+end
+
+validate do
+  return show_error("must connect usherm first") if usherm.nil?
+  return false if args.length == 1
+  case args[1]
+  when "add"
+    args.length == 2
+  when "edit", "delete"
+    args.length == 3
+  end
+end
+
+run do
+  case args[1]
+  when "add"
+    prompt_add
+  when "edit"
+  when "delete"
+  end
+
+  ""
+end
+
+###
+
+def prompt_add
+end
+
+def prompt_edit
+end
+
+def prompt_delete
+end
+
+###
+
+def prompt(basis={})
+end