waz-cmd 0.1.0

data/.gitignore

@@ -0,0 +1,4 @@
+*.gem
+.bundle
+Gemfile.lock
+pkg/*

data/Gemfile

@@ -0,0 +1,4 @@
+source "http://rubygems.org"
+
+# Specify your gem's dependencies in waz-cmd.gemspec
+gemspec

data/LICENSE

@@ -0,0 +1,31 @@
+Microsoft Public License (Ms-PL)
+
+This license governs use of the accompanying software. If you use the software, you accept this license. If you do not accept the license, do not use the software.
+
+1. Definitions
+
+The terms "reproduce," "reproduction," "derivative works," and "distribution" have the same meaning here as under U.S. copyright law.
+
+A "contribution" is the original software, or any additions or changes to the software.
+
+A "contributor" is any person that distributes its contribution under this license.
+
+"Licensed patents" are a contributor's patent claims that read directly on its contribution.
+
+2. Grant of Rights
+
+(A) Copyright Grant- Subject to the terms of this license, including the license conditions and limitations in section 3, each contributor grants you a non-exclusive, worldwide, royalty-free copyright license to reproduce its contribution, prepare derivative works of its contribution, and distribute its contribution or any derivative works that you create.
+
+(B) Patent Grant- Subject to the terms of this license, including the license conditions and limitations in section 3, each contributor grants you a non-exclusive, worldwide, royalty-free license under its licensed patents to make, have made, use, sell, offer for sale, import, and/or otherwise dispose of its contribution in the software or derivative works of the contribution in the software.
+
+3. Conditions and Limitations
+
+(A) No Trademark License- This license does not grant you rights to use any contributors' name, logo, or trademarks.
+
+(B) If you bring a patent claim against any contributor over patents that you claim are infringed by the software, your patent license from such contributor to the software ends automatically.
+
+(C) If you distribute any portion of the software, you must retain all copyright, patent, trademark, and attribution notices that are present in the software.
+
+(D) If you distribute any portion of the software in source code form, you may do so only under this license by including a complete copy of this license with your distribution. If you distribute any portion of the software in compiled or object code form, you may only do so under a license that complies with this license.
+
+(E) The software is licensed "as-is." You bear the risk of using it. The contributors give no express warranties, guarantees or conditions. You may have additional consumer rights under your local laws which this license cannot change. To the extent permitted under your local laws, the contributors exclude the implied warranties of merchantability, fitness for a particular purpose and non-infringement.

data/README.md

@@ -0,0 +1,28 @@
+Waz-Cmd
+=======
+
+Installation
+------------
+
+To install, just `gem install waz-cmd`
+
+Basic usage
+-----------
+
+    c:\>waz generate certificates
+    Writing certificate to 'c:\users\smarx/.waz/cert.pem'
+    Writing certificate in .cer form to 'c:\users\smarx/.waz/cert.cer'
+    Writing key to 'c:\users\smarx/.waz/key.pem'
+
+    To use the new certificate, upload 'c:\users\smarx/.waz/cert.cer' as a management certificate in the Windows Azure portal (https://windows.azure.com)
+
+    c:\>waz set subscriptionId XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX
+
+    c:\>waz deploy blobedit staging c:\repositories\smarxrole\packages\ExtraSmall.cspkg c:\repositories\smarxrole\packages\ServiceConfiguration.blobedit.cscfg
+    Waiting for operation to complete...
+    Operation succeeded (200)
+
+Documentation
+-------------
+
+Just run `waz help` for full documentation.

data/Rakefile

@@ -0,0 +1,2 @@
+require 'bundler'
+Bundler::GemHelper.install_tasks

data/bin/waz

@@ -0,0 +1,492 @@
+#!/usr/bin/env ruby
+require 'waz-cmd'
+require 'commander/import'
+require 'waz-blobs'
+require 'uri'
+require 'uuidtools'
+require 'fileutils'
+
+include Waz::Cmd
+
+program :name, 'waz'
+program :version, '1.0'
+program :description, 'Windows Azure Command-line Tool'
+program :help, 'Author', 'Steve Marx (http://blog.smarx.com, Steve.Marx@microsoft.com, @smarx)'
+
+global_option '--pem FILE', 'Name of the .pem file containing the management certificate, deafault $HOME/.waz/cert.pem'
+global_option '--key FILE', 'Name of the .pem file containing the private key, default $HOME/.waz/key.pem'
+global_option '--subscriptionId STRING', 'Subscription ID (a GUID) to operate on'
+global_option '--expand', 'Expand details where possible (like individual role instances). Default is false'
+
+begin
+  $config = YAML::load(File.read("#{ENV['HOME']}/.wazrc"))
+rescue
+  $config = {}
+end
+
+def template(name)
+  File.join(File.dirname(__FILE__), '../lib/waz-cmd/templates', name)
+end
+
+command 'set' do |c|
+  c.syntax = 'waz set <variable> <value>'
+  c.description = 'Set a default value for a variable (like "subscriptionId") in $HOME/.wazrc'
+  c.action do |args, options|
+    $config[args[0]] = args[1]
+    File.open("#{ENV['HOME']}/.wazrc", 'w') do |f|
+      f.write($config.to_yaml)
+    end
+  end
+end
+
+command 'get' do |c|
+  c.syntax = 'waz get <variable>'
+  c.description = 'Get the default value for a variable (like "subscriptionId") in $HOME/.wazrc'
+  c.action do |args, options|
+    puts $config[args[0]]
+  end
+end
+
+command 'get-all' do |c|
+  c.syntax = 'waz get-all'
+  c.description = 'Get the default values for all variables (like "subscriptionId") in $HOME/.wazrc'
+  c.action do |args, options|
+    $config.each do |k,v|
+      puts "#{k} = #{v}"
+    end
+  end
+end
+
+command 'generate certificate' do |c|
+  c.syntax = 'waz generate certificate [options]'
+  c.description = 'Generate a public/private key pair to use with the Windows Azure Service Management API'
+  c.option '--cer FILE', 'Name of the .cer file to write the public certificate, default $HOME/.waz/cert.cer'
+  c.action do |args, options|
+    set_defaults options
+    rsa = OpenSSL::PKey::RSA.new 1024
+    cert = OpenSSL::X509::Certificate.new
+    cert.version = 3
+    cert.serial = 0
+    name = OpenSSL::X509::Name.new([['CN', 'waz']])
+    cert.subject = name
+    cert.issuer = name
+    cert.not_before = 0
+    cert.not_after = 2147483647 #LONG_MAX
+    cert.public_key = rsa.public_key
+
+    ef = OpenSSL::X509::ExtensionFactory.new(nil,cert)
+    ef.issuer_certificate = cert
+    cert.extensions = [
+      ef.create_extension("basicConstraints","CA:FALSE"),
+      ef.create_extension("keyUsage", "keyEncipherment"),
+      ef.create_extension("subjectKeyIdentifier", "hash"),
+      ef.create_extension("extendedKeyUsage", "serverAuth"),
+    ]
+    aki = ef.create_extension("authorityKeyIdentifier", "keyid:always,issuer:always")
+    cert.add_extension(aki)
+    cert.sign(rsa, OpenSSL::Digest::SHA1.new)
+
+    puts "Writing certificate to '#{options.pem}'"
+    FileUtils.makedirs(File.dirname(options.pem))
+    File.open(options.pem, "w") {|f| f.puts cert}
+    puts "Writing certificate in .cer form to '#{options.cer}'"
+    FileUtils.makedirs(File.dirname(options.cer))
+    File.open(options.cer, "wb") {|f| f.write cert.to_der}
+    puts "Writing key to '#{options.key}'"
+    FileUtils.makedirs(File.dirname(options.key))
+    File.open(options.key, "w") {|f| f.puts rsa}
+    puts
+    puts "To use the new certificate, upload '#{options.cer}' as a management certificate in the Windows Azure portal (https://windows.azure.com)"
+  end
+end
+
+command 'list applications' do |c|
+  c.syntax = 'waz list applications [options]'
+  c.description = 'List all Windows Azure applications under the given subscription'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    apps = arrayize(make_call("services/hostedservices", :get, options)['HostedServices']['HostedService'])
+    puts Tilt.new(template('list_applications.erb'), 1, :trim => '%').render(nil, :apps => apps)
+  end
+end
+
+command 'list storage' do |c|
+  c.syntax = 'waz list storage'
+  c.description = 'List all Windows Azure storage accounts under the given subscription'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    apps = arrayize(make_call("services/storageservices", :get, options)['StorageServices']['StorageService'])
+    puts Tilt.new(template('list_applications.erb'), 1, :trim => '%').render(nil, :apps => apps)
+  end
+end
+
+command 'show application' do |c|
+  c.syntax = 'waz show application <name> [options]'
+  c.description = 'Show the details of an application'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Application name is required' unless args.first
+    app = make_call("services/hostedservices/#{args.first}?embed-detail=true", :get, options)['HostedService']
+    puts Tilt.new(template('show_application.erb'), 1, :trim => '%').render(nil, :app => app, :expand => options.expand)
+  end
+end
+
+command 'show storage' do |c|
+  c.syntax = 'waz show storage <name> [options]'
+  c.description = 'Show the details of a storage account'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Storage account name is required' unless args.first
+    account = make_call("services/storageservices/#{args.first}", :get, options)['StorageService']
+    puts Tilt.new(template('show_storage.erb'), 1, :trim => '%').render(nil, :account => account)
+  end
+end
+
+command 'delete storage' do |c|
+  c.syntax = 'was delete storage <name> [options]'
+  c.description = 'Delete a storage account'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Storage account name is required' unless args.first
+    make_call("services/storageservices/#{args.first}", :delete, options) do |response|
+      wait_for_completion options, response.headers[:x_ms_request_id]
+    end
+  end
+end
+
+command 'get keys' do |c|
+  c.syntax = 'waz get keys <name> [options]'
+  c.description = 'Get the keys for a storage account'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Storage account name is required' unless args.first
+    keys = make_call("services/storageservices/#{args.first}/keys", :get, options)['StorageService']['StorageServiceKeys']
+    puts Tilt.new(template('get_keys.erb'), 1, :trim => '%').render(nil, :keys => keys)
+  end
+end
+
+command 'connection string' do |c|
+  c.syntax = 'waz get connection string <name> [options]'
+  c.description = 'Get a connection string for a storage account'
+  c.option '--http', 'Use HTTP in the connection string instead of (the default) HTTPS'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Storage account name is required' unless args.first
+    keys = make_call("services/storageservices/#{args.first}/keys", :get, options)['StorageService']['StorageServiceKeys']
+    puts "DefaultEndpointsProtocol=#{options.http ? 'http' : 'https'};AccountName=#{args.first};AccountKey=#{keys['Primary']}"
+  end
+end
+
+alias_command 'cs', 'connection string'
+
+command 'create storage' do |c|
+  c.syntax = 'waz create storage <name> <location|affinity group> [options]'
+  c.description = 'Create a storage account'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Storage account name is required' unless args.first
+    raise 'Location or affinity group is required' unless args[1]
+    make_call("services/storageservices", :post, options,
+      Nokogiri::XML::Builder.new(:encoding => 'utf-8') { |xml|
+        xml.CreateStorageServiceInput('xmlns' => 'http://schemas.microsoft.com/windowsazure') {
+          xml.ServiceName args[0]
+          xml.Description args[0]
+          xml.Label Base64.encode64(args[0]).rstrip
+          if args[1].length > 20
+            xml.AffinityGroup args[1]
+          else
+            xml.Location args[1]
+          end
+        }
+      }.to_xml) do |response|
+      wait_for_completion options, response.headers[:x_ms_request_id]
+    end
+  end
+end
+
+command 'create application' do |c|
+  c.syntax = 'waz create application <name> <location|affinity group> [options]'
+  c.description = 'Create a storage account'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Application name is required' unless args.first
+    raise 'Location or affinity group is required' unless args[1]
+    make_call("services/hostedservices", :post, options,
+      Nokogiri::XML::Builder.new(:encoding => 'utf-8') { |xml|
+        xml.CreateHostedService(:xmlns => 'http://schemas.microsoft.com/windowsazure') {
+          xml.ServiceName args[0]
+          xml.Label Base64.encode64(args[0]).rstrip
+          if args[1].length > 20
+            xml.AffinityGroup args[1]
+          else
+            xml.Location args[1]
+          end
+        }
+      }.to_xml) do |response|
+      wait_for_completion options, response.headers[:x_ms_request_id]
+    end
+  end
+end
+
+command 'delete application' do |c|
+  c.syntax = 'waz delete application <name> [options]'
+  c.description = 'Delete an application'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Application name is required' unless args.first
+    make_call("services/hostedservices/#{args.first}", :delete, options) do |response|
+      wait_for_completion options, response.headers[:x_ms_request_id]
+    end
+  end
+end
+
+command 'list locations' do |c|
+  c.syntax = 'waz list locations [options]'
+  c.description = 'List data center locations'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    locations = arrayize(make_call("locations", :get, options)['Locations']['Location'])
+    puts Tilt.new(template('list_locations.erb'), 1, :trim => '%').render(nil, :locations => locations)
+  end
+end
+
+command 'list affinity groups' do |c|
+  c.syntax = 'waz list affinity groups [options]'
+  c.description = 'List affinity groups'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    groups = arrayize(make_call("affinitygroups", :get, options)['AffinityGroups']['AffinityGroup'])
+    puts Tilt.new(template('list_affinity_groups.erb'), 1, :trim => '%').render(nil, :groups => groups)
+  end
+end
+
+command 'create affinity group' do |c|
+  c.syntax = 'waz create affinity group <name> <location> [options]'
+  c.description = 'Create an affinity group'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Affinity group name is required' unless args.first
+    raise 'Location is required' unless args[1]
+    make_call("affinitygroups", :post, options,
+      Nokogiri::XML::Builder.new(:encoding => 'utf-8') { |xml|
+        xml.CreateAffinityGroup(:xmlns => 'http://schemas.microsoft.com/windowsazure') {
+          xml.Name args[0]
+          xml.Label Base64.encode64(args[0]).rstrip
+          xml.Location args[1]
+        }
+      }.to_xml) do |response|
+      wait_for_completion options, response.headers[:x_ms_request_id]
+    end
+  end
+end
+
+command 'show affinity group' do |c|
+  c.syntax = 'waz show affinity group <name> [options]'
+  c.description = 'Show the details of an affinity group'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Affinity group name is required' unless args.first
+    group = make_call("affinitygroups/#{args[0]}", :get, options)['AffinityGroup']
+    puts Tilt.new(template('show_affinity_group.erb'), 1, :trim => '%').render(nil, :group => group)
+  end
+end
+
+command 'delete affinity group' do |c|
+  c.syntax = 'waz delete affinity group <name> [options]'
+  c.description = 'Delete an affinity group'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+      raise 'Affinity group name is required' unless args.first
+      make_call("affinitygroups/#{args[0]}", :delete, options) do |response|
+        wait_for_completion options, response.headers[:x_ms_request_id]
+      end		
+  end
+end
+
+command 'show deployment' do |c|
+  c.syntax = 'waz show deployment <application> <staging|production> [options]'
+  c.description = 'Show the details of a deployment'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Application name is required' unless args.first
+    raise 'Deployment slot is required' unless args[1]
+    deployment = make_call("services/hostedservices/#{args[0]}/deploymentslots/#{args[1]}", :get, options)['Deployment']
+    puts Tilt.new(template('show_deployment.erb'), 1, :trim => '%').render(nil, :expand => options.expand, :deployment => deployment)
+  end
+end
+
+command 'show history' do |c|
+  c.syntax = 'waz show history <application> <deployment-name> [options]'
+  c.description = 'Show the history of operations on a deployment. Note that deployment name is the GUID of the deployment (find it with something like "waz show deployment <application> production")'
+  c.option '--startTime STRING', 'Earliest time to retrieve history, in a form like YYYY-MM-DD or YYYY-MM-DDTHH:MM:SSZ (defaults to yesterday)'
+  c.option '--endTime STRING', 'Latest time to retrieve history, in a form like YYYY-MM-DD or YYYY-MM-DDTHH:MM:SSZ (defaults to infinity)'
+  c.action do |args, options|
+    set_defaults options
+    options.default :startTime => (Time.now-24*60*60).strftime("%Y-%m-%d"), :endTime => Time.at(2147483647).strftime("%Y-%m-%d") #LONG_MAX
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Application name is required' unless args.first
+    raise 'Deployment name is required' unless args[1]
+    history = make_call("operations?StartTime=#{options.startTime}&EndTime=#{options.endTime}&ObjectIdFilter=/#{options.subscriptionId}/services/hostedservices/#{args[0]}/deployments/#{args[1]}", :get, options)['SubscriptionOperationCollection']['SubscriptionOperations']
+    puts Tilt.new(template('show_history.erb'), 1, :trim => '%').render(nil, :history => history)
+  end
+end
+
+restar_instance 'boot'
+restar_instance 'image'
+
+command 'swap' do |c|
+  c.syntax = 'waz swap <application> [options]'
+  c.description = 'Perform a VIP swap between staging and production of the specified application'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Application name is required' unless args[0]
+    deployments = arrayize(make_call("services/hostedservices/#{args[0]}?embed-detail=true", :get, options)['HostedService']['Deployments']['Deployment'])
+    prodidx = deployments.index{|d| d['DeploymentSlot'] == 'Production'}
+    stageidx = deployments.index{|d| d['DeploymentSlot'] == 'Staging'}
+    raise 'No staging deployment to swap.' unless stageidx
+    production = prodidx ? deployments[prodidx]['Name'] : nil
+    staging = stageidx ? deployments[stageidx]['Name'] : nil
+    make_call("services/hostedservices/#{args[0]}", :post, options,
+      Nokogiri::XML::Builder.new(:encoding => 'utf-8') { |xml|
+        xml.Swap('xmlns' => 'http://schemas.microsoft.com/windowsazure') {
+          if production
+            xml.Production production
+          end
+          xml.SourceDeployment staging
+        }
+      }.to_xml) do |response|
+      wait_for_completion options, response.headers[:x_ms_request_id]
+    end
+  end
+end
+
+startstop('start', 'Running')
+startstop('stop', 'Suspended')
+
+command 'delete deployment' do |c|
+  c.syntax = 'waz delete deployment <application> <production|staging> [options]'
+  c.description = 'Delete a deployment'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Application name is required' unless args[0]
+    raise 'Deployment slot is required' unless args[1]
+
+    make_call("services/hostedservices/#{args[0]}/deploymentslots/#{args[1]}", :delete, options) do |response|
+      wait_for_completion options, response.headers[:x_ms_request_id]
+    end
+  end
+end
+
+command 'show configuration' do |c|
+  c.syntax = 'waz show configuration <application> <production|staging> [options]'
+  c.description = 'Show deployment configuration'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Application name is required' unless args[0]
+    raise 'Deployment slot is required' unless args[1]
+
+    roles = arrayize(Crack::XML.parse(Iconv.conv('utf-16', 'utf-8', Base64.decode64(make_call("services/hostedservices/#{args[0]}/deploymentslots/#{args[1]}", :get, options)['Deployment']['Configuration'])))['ServiceConfiguration']['Role'])
+
+    puts Tilt.new(template('show_configuration.erb'), 1, :trim => '%').render(nil, :roles => roles)
+  end
+end
+
+command 'configure' do |c|
+  c.syntax = 'waz configure <application> <production|staging> <role> <setting-name> <setting-value> [options]'
+  c.description = 'Change a configuration setting for a role of a deployment'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Application name is required' unless args[0]
+    raise 'Deployment slot is required' unless args[1]
+    raise 'Role name is required' unless args[2]
+    raise 'Setting name is required' unless args[3]
+    raise 'Setting value is required' unless args[4]
+
+    doc = REXML::Document.new(Iconv.conv('utf-16', 'utf-8', Base64.decode64(make_call("services/hostedservices/#{args[0]}/deploymentslots/#{args[1]}", :get, options)['Deployment']['Configuration'])))
+    role = REXML::XPath.first(doc, "//Role[@name='#{args[2]}']")
+    raise "Couldn't find role '#{args[2]}'" if role.nil?
+    setting = REXML::XPath.first(role, "//Setting[@name='#{args[3]}']")
+    raise "Couldn't find setting '#{args[3]}'" if setting.nil?
+    setting.attributes['value'] = args[4]
+
+    make_call("services/hostedservices/#{args[0]}/deploymentslots/#{args[1]}/?comp=config", :post, options,
+      Nokogiri::XML::Builder.new(:encoding => 'utf-8') { |xml|
+        xml.ChangeConfiguration('xmlns' => 'http://schemas.microsoft.com/windowsazure') {
+          xml.Configuration Base64.encode64(Iconv.conv('utf-8', 'utf-16', doc.to_s)).rstrip
+        }
+      }.to_xml) do |response|
+      wait_for_completion options, response.headers[:x_ms_request_id]
+    end
+  end
+end
+
+command 'deploy' do |c|
+  c.syntax = 'waz deploy <application> <production|staging> <path/to/.cspkg> <path/to/.cscfg> [options]'
+  c.description = 'Deploy to an existing Windows Azure application'
+  c.option '--deploymentAccount STRING', 'Name of the storage account to deploy through (temporarily hold the .cspkg), defaults to the first storage account in the subscription'
+  c.action do |args, options|
+    set_defaults options
+    raise 'Subscription ID is required' unless options.subscriptionId
+    raise 'Application name is required' unless args[0]
+    raise 'Deployment slot is required' unless args[1]
+    raise 'Package (.cspkg) is required' unless args[2]
+    raise 'Configuration file (.cscfg) is required' unless args[3]
+
+    if options.account.nil?
+      accounts = arrayize(make_call("services/storageservices", :get, options)['StorageServices']['StorageService'])
+      raise 'Must have at least one storage account' unless accounts.length > 0
+      options.account = accounts[0]['ServiceName']
+    end
+
+    key = make_call("services/storageservices/#{options.account}/keys", :get, options)['StorageService']['StorageServiceKeys']['Primary']
+
+    WAZ::Storage::Base.establish_connection!(:account_name => options.account, :access_key => key)
+    begin
+      container = WAZ::Blobs::Container.create('deployments')
+    rescue
+      container = WAZ::Blobs::Container.find('deployments')
+    end
+
+    name = File.basename(args[2]).gsub(' ', '') + Time.new.utc.strftime('%Y-%m-%d%H:%M:%S')
+    blob = nil
+    open(args[2]) do |f|
+      blob = container.upload(URI::escape(name), f, 'application/octet-stream')
+    end
+
+    make_call("services/hostedservices/#{args[0]}/deploymentslots/#{args[1]}", :post, options,
+      Nokogiri::XML::Builder.new(:encoding => 'utf-8') { |xml|
+        xml.CreateDeployment('xmlns' => 'http://schemas.microsoft.com/windowsazure') {
+          xml.Name UUIDTools::UUID.random_create.to_s.gsub '-', ''
+          xml.PackageUrl URI::unescape blob.url
+          xml.Label Base64.encode64 name
+          xml.Configuration Base64.encode64 File.read args[3]
+          xml.StartDeployment 'true'
+          xml.TreatWarningsAsError 'false'
+        }
+      }.to_xml) do |response|
+      wait_for_completion options, response.headers[:x_ms_request_id]
+    end
+
+    blob.destroy!
+  end
+end

data/lib/waz-cmd/templates/get_keys.erb

@@ -0,0 +1,2 @@
+Primary:   <%= keys['Primary'] %>
+Secondary: <%= keys['Secondary'] %>

data/lib/waz-cmd/templates/list_affinity_groups.erb

@@ -0,0 +1,3 @@
+% groups.each do |group|
+<%= Tilt.new('show_affinity_group.erb', 1, :trim => '%').render(nil, :group => group) %>
+% end

data/lib/waz-cmd/templates/list_applications.erb

@@ -0,0 +1,3 @@
+% apps.each do |app|
+<%= app['ServiceName'] %>
+% end

data/lib/waz-cmd/templates/list_locations.erb

@@ -0,0 +1,3 @@
+% locations.each do |location|
+<%= location['Name'] %>
+% end

data/lib/waz-cmd/templates/show_affinity_group.erb

@@ -0,0 +1,3 @@
+<%= Base64.decode64 group['Label'] %>
+	Name:     <%= group['Name'] %>
+	Location: <%= group['Location'] %>

data/lib/waz-cmd/templates/show_application.erb

@@ -0,0 +1,11 @@
+<%= app['ServiceName'] %>
+% props = app['HostedServiceProperties']
+% unless app['Deployments']['Deployment'].nil?
+% deployments = app['Deployments']['Deployment']
+% deployments = [deployments] unless deployments.kind_of? Array
+% deployments.each do |deployment|
+<%= Tilt.new(template('show_deployment.erb'), 1, :trim => '%').render(nil, :deployment => deployment, :expand => expand).gsub(/^/, '    ') %>
+% end
+% else
+Nothing deployed.
+% end

data/lib/waz-cmd/templates/show_configuration.erb

@@ -0,0 +1,6 @@
+% roles.each do |role|
+<%= $terminal.color role['name'], :bold %>
+% arrayize(role['ConfigurationSettings']['Setting']).each do |setting|
+    <%= setting['name'] %>: <%= setting['value'] %>
+% end
+% end

data/lib/waz-cmd/templates/show_deployment.erb

@@ -0,0 +1,33 @@
+<%= $terminal.color deployment['DeploymentSlot'].upcase, :bold %>
+    Label:          <%= Base64.decode64 deployment['Label'] %>
+    Name:           <%= deployment['Name'] %>
+    Status:         <%= deployment['Status'] %>
+    Url:            <%= deployment['Url'] %>
+% if deployment['SdkVersion']
+    SDK version:    <%= deployment['SdkVersion'] %>
+% end
+% if deployment['UpgradeStatus']
+    Upgrade status: <%= deployment['UpgradeStatus']['UpgradeType'] %> upgrade in progress, on upgrade domain <%= deployment['UpgradeStatus'][0]['CurrentUpgradeDomain'] %>/<%= deployment['UpgradeDomainCount'] %>
+% end
+% instances = deployment['RoleInstanceList']['RoleInstance']
+% instances = [instances] unless instances.kind_of? Array
+% instances = instances.group_by {|i| i['RoleName']}
+<%= $terminal.color "ROLES", :bold %>
+% roles = deployment['RoleList']['Role']
+% roles = [roles] unless roles.kind_of? Array
+% roles.each do |role|
+    <%= role['RoleName'] %> (<%= role['OsVersion'] %>)
+% if not expand
+        <%= instances[role['RoleName']].group_by{|i| i['InstanceStatus']}.map{|key, value| "#{value.count} #{key}"}.join(', ') %> (use --expand to see details)
+% else
+% instances[role['RoleName']].each do |instance|
+        <%= instance['InstanceName'] %> (<%= instance['InstanceStatus'] %>)
+% end
+% end
+% end
+<%= $terminal.color "ENDPOINTS", :bold %>
+% endpoints = deployment['InputEndpointList']['InputEndpoint']
+% endpoints = [endpoints] unless endpoints.kind_of? Array
+% endpoints.each do |endpoint|
+    <%= endpoint['Vip'] %>:<%= endpoint['Port'] %> on <%= endpoint['RoleName'] %>
+% end

data/lib/waz-cmd/templates/show_history.erb

@@ -0,0 +1,21 @@
+% if history['SubscriptionOperation'].nil?
+No history to display.
+% else
+% operations = history['SubscriptionOperation']
+% operations = [operations] unless operations.kind_of? Array
+% operations.each do |operation|
+<%= $terminal.color operation['OperationName'], :bold %>
+    ID:         <%= operation['OperationId'] %>
+    Parameters: <%= operation['OperationParameters']['OperationParameter'].sort{|a,b| a['a:Name'] <=> b['a:Name']}.map{|p| "#{p['a:Name']}=#{p['a:Value'].length > 30 ? '...' : p['a:Value']}"}.join ', ' %>
+    Status:     <%= operation['OperationStatus']['Status'] %> (<%= operation['OperationStatus']['HttpStatusCode'] %>)
+    Start:      <%= operation['OperationStartedTime'] %>
+% if operation['OperationCompletedTime']
+    Completed:  <%= operation['OperationCompletedTime'] %>
+% end
+% if operation['OperationCaller']['UsedServiceManagementApi'] == 'true'
+    Caller:     <%= operation['OperationCaller']['ClientIP'] %> (<%= operation['OperationCaller']['SubscriptionCertificateThumbprint'] %>)
+% else
+    Caller:     <%= operation['OperationCaller']['UserEmailAddress'] %>
+% end
+% end
+% end

data/lib/waz-cmd/templates/show_storage.erb

@@ -0,0 +1,8 @@
+<%= account['ServiceName'] %>
+% props = account['StorageServiceProperties']
+% unless props['Location'].nil?
+Location:       <%= props['Location'] %>
+% end
+% unless props['AffinityGroup'].nil?
+Affinity Group: <%= props['AffinityGroup'] %>
+% end

data/lib/waz-cmd/version.rb

@@ -0,0 +1,5 @@
+module Waz
+  module Cmd
+    VERSION = "0.1.0"
+  end
+end

data/lib/waz-cmd.rb

@@ -0,0 +1,105 @@
+module Waz
+  module Cmd
+    require 'faster_require'
+    require 'rexml/document'
+    require 'rexml/xpath'
+    require 'iconv'
+    begin
+      require 'Win32/Console/ANSI' if RUBY_PLATFORM =~ /win32|mingw32/
+    rescue
+      puts 'WARNING: Output will look weird on Windows unless you install the "win32console" gem.'
+    end
+    require 'openssl'
+    require 'RestClient'
+    require 'tilt'
+    require 'base64'
+    require 'yaml'
+    require 'crack'
+    require 'nokogiri'
+
+    def set_defaults(options)
+      options.default :pem => "#{ENV['HOME']}/.waz/cert.pem", :cer => "#{ENV['HOME']}/.waz/cert.cer", :key => "#{ENV['HOME']}/.waz/key.pem"
+      options.default :subscriptionId => $config['subscriptionId'] if $config['subscriptionId']
+    end
+
+    def make_call(path, method, options, body=nil)
+      headers = { 'x-ms-version' => '2011-06-01' }
+      headers['Content-Type'] = 'application/xml' unless body.nil?
+      options = {
+        :url => "https://management.core.windows.net/#{options.subscriptionId}/#{path}",
+        :method => method,
+        :headers => headers,
+        :ssl_client_cert => OpenSSL::X509::Certificate.new(File.read(options.pem)),
+        :ssl_client_key => OpenSSL::PKey::RSA.new(File.read(options.key))
+      }
+      options[:payload] = body unless body.nil?
+      if block_given?
+        yield RestClient::Request.execute options
+      else
+        Crack::XML.parse RestClient::Request.execute options
+      end
+    end
+
+    def arrayize(x)
+      return [] if x.nil?
+      return x if x.kind_of?(Array)
+      return [x]
+    end
+
+    def restar_instance(star)
+      command "re#{star} instance" do |c|
+        c.syntax = "waz re#{star} instance <application> <production|staging> <instance> [options]"
+        c.description = "Re#{star} the specified instance"
+        c.action do |args, options|
+          set_defaults options
+          raise 'Subscription ID is required' unless options.subscriptionId
+          raise 'Application name is required' unless args[0]
+          raise 'Deployment name is required' unless args[1]
+          raise 'Instance name is required' unless args[2]
+          make_call("services/hostedservices/#{args[0]}/deploymentslots/#{args[1]}/roleinstances/#{args[2]}?comp=re#{star}", :post, options, '') do |response|
+            wait_for_completion options, response.headers[:x_ms_request_id]
+          end
+        end
+      end
+    end
+
+    def startstop(verb, status)
+      command verb do |c|
+        c.syntax = "waz #{verb} <application> <production|staging> [options]"
+        c.description = "#{verb.capitalize} the deployment in the specified slot of the specified application"
+        c.action do |args, options|
+          set_defaults options
+          raise 'Subscription ID is required' unless options.subscriptionId
+          raise 'Application name is required' unless args[0]
+          raise 'Deployment slot is required' unless args[1]
+
+          make_call("services/hostedservices/#{args[0]}/deploymentslots/#{args[1]}/?comp=status", :post, options,
+            Nokogiri::XML::Builder.new(:encoding => 'utf-8') { |xml|
+              xml.UpdateDeploymentStatus('xmlns' => 'http://schemas.microsoft.com/windowsazure') {
+                xml.Status status
+              }
+            }.to_xml) do |response|
+            wait_for_completion options, response.headers[:x_ms_request_id]
+          end
+        end
+      end
+    end
+
+    def wait_for_completion(options, requestId)
+      puts 'Waiting for operation to complete...'
+      done = false
+      while not done
+        status = make_call("operations/#{requestId}", :get, options)['Operation']
+        done = status['Status'] != 'InProgress'
+        if done
+          puts "Operation #{status['Status'].downcase} (#{status['HttpStatusCode']})"
+          if status['Error']
+              puts "#{status['Error']['Code']}: #{status['Error']['Message']}"
+          end
+        else
+          sleep 10
+        end
+      end
+    end
+  end
+end

data/waz-cmd.gemspec

@@ -0,0 +1,27 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "waz-cmd/version"
+
+Gem::Specification.new do |s|
+  s.name        = "waz-cmd"
+  s.version     = Waz::Cmd::VERSION
+  s.platform    = Gem::Platform::RUBY
+  s.authors     = ["Steve Marx"]
+  s.email       = ["Steve.Marx@microsoft.com"]
+  s.homepage    = "http://blog.smarx.com"
+  s.summary     = %q{Command-line tool to manage Windows Azure applications and storage accounts.}
+  s.description = %q{This gem allows you to perform most of the available operations in the Windows Azure Service Management API from a friendly commandline tool.}
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+
+  s.add_dependency('commander')
+  s.add_dependency('faster_require')
+  s.add_dependency('tilt')
+  s.add_dependency('crack')
+  s.add_dependency('nokogiri')
+  s.add_dependency('waz-storage')
+  s.add_dependency('uuidtools')
+end

metadata

@@ -0,0 +1,143 @@
+--- !ruby/object:Gem::Specification
+name: waz-cmd
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+  prerelease: 
+platform: ruby
+authors:
+- Steve Marx
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2011-07-01 00:00:00.000000000Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: commander
+  requirement: &25037928 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *25037928
+- !ruby/object:Gem::Dependency
+  name: faster_require
+  requirement: &25037316 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *25037316
+- !ruby/object:Gem::Dependency
+  name: tilt
+  requirement: &25036848 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *25036848
+- !ruby/object:Gem::Dependency
+  name: crack
+  requirement: &25036296 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *25036296
+- !ruby/object:Gem::Dependency
+  name: nokogiri
+  requirement: &25035756 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *25035756
+- !ruby/object:Gem::Dependency
+  name: waz-storage
+  requirement: &25035240 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *25035240
+- !ruby/object:Gem::Dependency
+  name: uuidtools
+  requirement: &21821088 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *21821088
+description: This gem allows you to perform most of the available operations in the
+  Windows Azure Service Management API from a friendly commandline tool.
+email:
+- Steve.Marx@microsoft.com
+executables:
+- waz
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- LICENSE
+- README.md
+- Rakefile
+- bin/waz
+- lib/waz-cmd.rb
+- lib/waz-cmd/templates/get_keys.erb
+- lib/waz-cmd/templates/list_affinity_groups.erb
+- lib/waz-cmd/templates/list_applications.erb
+- lib/waz-cmd/templates/list_locations.erb
+- lib/waz-cmd/templates/show_affinity_group.erb
+- lib/waz-cmd/templates/show_application.erb
+- lib/waz-cmd/templates/show_configuration.erb
+- lib/waz-cmd/templates/show_deployment.erb
+- lib/waz-cmd/templates/show_history.erb
+- lib/waz-cmd/templates/show_storage.erb
+- lib/waz-cmd/version.rb
+- waz-cmd.gemspec
+homepage: http://blog.smarx.com
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.5
+signing_key: 
+specification_version: 3
+summary: Command-line tool to manage Windows Azure applications and storage accounts.
+test_files: []