azure-plus 0.6.5

data/lib/azure/virtual_network_management/serialization.rb

@@ -0,0 +1,186 @@
+#-------------------------------------------------------------------------
+# Copyright 2013 Microsoft Open Technologies, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#   http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#--------------------------------------------------------------------------
+require 'azure/virtual_network_management/virtual_network'
+
+module Azure
+  module VirtualNetworkManagement
+    module Serialization
+      def self.virtual_network_from_xml(network_xml)
+        virtual_networks = []
+        virtual_network_services_xml = network_xml.css(
+          'VirtualNetworkSites VirtualNetworkSite'
+        )
+
+        virtual_network_services_xml.each do |virtual_network_service_xml|
+          virtual_network = VirtualNetwork.new
+          virtual_network.name = xml_content(
+            virtual_network_service_xml,
+            'Name'
+          )
+          virtual_network.id = xml_content(
+            virtual_network_service_xml,
+            'Id'
+          )
+          virtual_network.affinity_group = xml_content(
+            virtual_network_service_xml,
+            'AffinityGroup'
+          )
+          virtual_network.state = xml_content(
+            virtual_network_service_xml,
+            'State'
+          )
+          address_prefixes = virtual_network_service_xml.css(
+            'AddressSpace AddressPrefixes AddressPrefix'
+          )
+          virtual_network.address_space = address_prefixes.map do |ap|
+            ap.content
+          end
+          subnets_xml = virtual_network_service_xml.css('Subnets Subnet')
+          virtual_network.subnets = subnets_xml.map do |sn|
+            {
+              name: xml_content(sn, 'Name'),
+              address_prefix: xml_content(sn, 'AddressPrefix')
+            }
+          end
+          dns_servers_xml = virtual_network_service_xml.css(
+            'Dns DnsServers DnsServer'
+          )
+          virtual_network.dns_servers = dns_servers_xml.map do |dns|
+            {
+              name: xml_content(dns, 'Name'),
+              ip_address: xml_content(dns, 'Address')
+            }
+          end
+
+          virtual_networks << virtual_network
+        end
+        virtual_networks.compact
+      end
+
+      def self.virtual_network_to_xml(vnet_name,
+                                      affinity_group,
+                                      address_spaces,
+                                      options = {})
+        options[:dns] ||= {}
+        options[:subnet] ||= {}
+        options[:subnet].each do |subnet|
+          IPAddr.validate_ip_and_prefix(subnet[:ip_address], subnet[:cidr])
+        end
+        address_spaces = address_spaces.compact.uniq.reject(&:empty?)
+        address_spaces.each do |address_space|
+          IPAddr.validate_address_space(address_space)
+        end
+        vnet_service = Azure::VirtualNetworkManagementService.new
+        vnets = vnet_service.list_virtual_networks
+        builder = Nokogiri::XML::Builder.new do |xml|
+          xml.NetworkConfiguration(
+            'xmlns' => 'http://schemas.microsoft.com/ServiceHosting'\
+                       '/2011/07/NetworkConfiguration') do
+            xml.VirtualNetworkConfiguration do
+              xml.Dns do
+                xml.DnsServers do
+                  dns = vnets.map(&:dns_servers)
+                  dns.flatten! unless dns.empty?
+                  dns_server_to_xml(xml, dns, options[:dns])
+                end
+              end
+              xml.VirtualNetworkSites do
+                vnets.each do |vnet|
+                  if vnet.name != vnet_name
+                    others = {
+                      subnet: vnet.subnets, dns: vnet.dns_servers
+                    }
+                    virtual_network_site(xml,
+                                         vnet.name,
+                                         vnet.affinity_group,
+                                         vnet.address_space,
+                                         others)
+                  end
+                end
+                virtual_network_site(xml,
+                                     vnet_name,
+                                     affinity_group,
+                                     address_spaces,
+                                     options)
+              end
+            end
+          end
+        end
+        builder.doc.to_xml
+      end
+
+      private
+
+      def self.virtual_network_site(xml,
+                                    vnet_name,
+                                    affinity_group,
+                                    address_spaces,
+                                    options)
+        xml.VirtualNetworkSite(
+          'name' => vnet_name,
+          'AffinityGroup' => affinity_group
+        ) do
+          xml.DnsServersRef do
+            options[:dns].each do |dns|
+              xml.DnsServerRef('name' => dns[:name])
+            end
+          end
+          xml.Subnets do
+            options[:subnet].each do |subnet|
+              xml.Subnet('name' => subnet[:name]) do
+                if subnet.key?(:cidr)
+                  address_prefix = IPAddr.address_prefix(subnet[:ip_address],
+                                                         subnet[:cidr])
+                else
+                  address_prefix = subnet[:address_prefix]
+                end
+                xml.AddressPrefix address_prefix
+              end
+            end
+          end
+          xml.AddressSpace do
+            address_spaces.each do |address_space|
+              xml.AddressPrefix address_space
+            end
+          end
+        end
+      end
+
+      def self.dns_server_to_xml(xml, dns_servers, new_dns_servers)
+        dns_names = []
+
+        dns_list = {}
+        dns_list.merge!(merge_dns(new_dns_servers))
+        dns_list.merge!(merge_dns(dns_servers))
+        
+        dns_list.each do |name, ip_address|
+          xml.DnsServer('name' => name, 'IPAddress' => ip_address)
+        end
+      end
+
+      def self.merge_dns(dns_list)
+        new_dns_list = {}
+        
+        dns_list.each do |dns|
+          unless dns_list.include?(dns[:name])
+            new_dns_list.merge!(dns[:name] => dns[:ip_address])
+          end
+        end
+
+        new_dns_list
+      end
+    end
+  end
+end

data/lib/azure/virtual_network_management/virtual_network.rb

@@ -0,0 +1,36 @@
+#-------------------------------------------------------------------------
+# Copyright 2013 Microsoft Open Technologies, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#   http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#--------------------------------------------------------------------------
+
+module Azure
+  module VirtualNetworkManagement
+    # Represents a Virtual Network
+    class VirtualNetwork
+      def initialize
+        yield self if block_given?
+        @address_space = []
+        @subnets = []
+        @dns_servers = []
+      end
+
+      attr_accessor :name
+      attr_accessor :state
+      attr_accessor :id
+      attr_accessor :address_space
+      attr_accessor :subnets
+      attr_accessor :dns_servers
+      attr_accessor :affinity_group
+    end
+  end
+end

data/lib/azure/virtual_network_management/virtual_network_management_service.rb

@@ -0,0 +1,109 @@
+#-------------------------------------------------------------------------
+# Copyright 2013 Microsoft Open Technologies, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#   http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#--------------------------------------------------------------------------
+require 'azure/virtual_network_management/serialization'
+
+module Azure
+  module VirtualNetworkManagement
+    # VirtualNetworkManagementService
+    class VirtualNetworkManagementService < BaseManagementService
+      def initialize
+        super()
+      end
+
+      # Public: Gets a list of virtual network services available under the
+      # current subscription.
+      #
+      # See http://msdn.microsoft.com/en-us/library/windowsazure/jj157185.aspx
+      #
+      # Returns an array of
+      # Azure::VirtualNetworkServiceManagement::VirtualNetwork objects
+      def list_virtual_networks
+        request_path = '/services/networking/virtualnetwork'
+        request = ManagementHttpRequest.new(:get, request_path, nil)
+        response = request.call
+        Serialization.virtual_network_from_xml(response)
+      end
+
+      def set_network_configuration(*args)
+        if args.length == 1
+          set_virtual_network_using_xml(args[0])
+        elsif args.length == 4 || args.length == 3
+          args[3] ||= { subnet: [], dns: [] }
+          set_virtual_network(args[0], args[1], args[2], args[3])
+        else
+          raise 'Wrong number of arguments'
+        end
+      end
+
+      private
+
+      # Private: Configures virtual network.
+      #
+      # ==== Attributes
+      #
+      # * +vnet+              - String. The name of the virtual network.
+      # * +affinity_group+    - String. The name of the affinity group.
+      # * +address_space+     - Array. Contains a collection of Classless
+      #   Inter-Domain Routing (CIDR) identifiers that specify the address
+      #   space that you will use for your local network site
+      # * +options+           - Hash. Optional parameters.
+      #
+      # ==== Options
+      #
+      # Accepted key/value pairs in options parameter are:
+      # * +:subnets+            - Array. A hash of the name/value pairs.
+      #   Contains the name, IPv4 address and Cidr of the DNS server.
+      # (optional)
+      # * +dns_servers+         - Array. A hash of the name/value pairs.
+      #   Contains the name and IPv4 address of the DNS server. (optional)
+      #
+      # See http://msdn.microsoft.com/en-us/library/windowsazure/jj157181.aspx
+      #
+      # Returns None
+      def set_virtual_network(vnet,
+                              affinity_group,
+                              address_space,
+                              options = {
+                                subnet: [],
+                                dns: []
+                              })
+        request_path = '/services/networking/media'
+        body = Serialization.virtual_network_to_xml(vnet,
+                                                    affinity_group,
+                                                    address_space,
+                                                    options)
+        request = ManagementHttpRequest.new(:put, request_path, body)
+        request.headers['Content-Type'] = 'text/plain'
+        Loggerx.info "Creating virtual network #{vnet}."
+        request.call
+      end
+
+      def set_virtual_network_using_xml(file)
+        request_path = '/services/networking/media'
+        if file !~ /(xml)$/
+          raise 'File expects a .xml extension.'
+        elsif !File.exist?(file)
+          raise "Could not read from file '#{file}'."
+        else
+          body = File.read(file)
+        end
+        request = ManagementHttpRequest.new(:put, request_path, body)
+        request.headers['Content-Type'] = 'text/plain'
+        Loggerx.info 'Creating virtual network.'
+        request.call
+      end
+    end
+  end
+end

data/test/fixtures/affinity_group.xml

@@ -0,0 +1,33 @@
+<?xml version="1.0"?>
+<AffinityGroup xmlns="http://schemas.microsoft.com/windowsazure" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
+  <Name>AG1</Name>
+  <Label>QUcx\n==</Label>
+  <Description>First Affinity Group</Description>
+  <Location>West US</Location>
+  <HostedServices>
+    <HostedService>
+      <Url>https://management.core.windows.net/abcd/services/hostedservices/vnet-1</Url>
+      <ServiceName>vnet-1</ServiceName>
+      <HostedServiceProperties>
+        <Description i:nil="true"/>
+        <AffinityGroup>Test</AffinityGroup>
+        <Label>dm5ldC0x</Label>
+        <Status>Created</Status>
+        <DateCreated>2013-09-11T06:06:42Z</DateCreated>
+        <DateLastModified>2013-09-11T06:06:49Z</DateLastModified>
+        <ExtendedProperties/>
+      </HostedServiceProperties>
+    </HostedService>
+  </HostedServices>
+  <StorageServices>
+    <StorageService>
+      <Url>https://management.core.windows.net/abcd/services/storageservices/mystorageservice</Url>
+      <ServiceName>mystorageservice</ServiceName>
+      <ExtendedProperties/>
+    </StorageService>
+  </StorageServices>
+  <Capabilities>
+    <Capability>PersistentVMRole</Capability>
+    <Capability>HighMemory</Capability>
+  </Capabilities>
+</AffinityGroup>

data/test/fixtures/all_containers.xml

@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="utf-8"?>
+<EnumerationResults AccountName="http://myaccount.blob.core.windows.net">
+  <Prefix>string-value</Prefix>
+  <Marker>string-value</Marker>
+  <MaxResults>int-value</MaxResults>
+  <Containers>
+    <Container>
+      <Name>container-name</Name>
+      <Url>http://myaccount.blob.core.windows.net/container-name</Url>
+      <Properties>
+        <Last-Modified>date/time-value</Last-Modified>
+        <Etag>etag</Etag>
+      </Properties>
+      <Metadata>
+        <metadata-name>value</metadata-name>
+      </Metadata>
+    </Container>
+  </Containers>
+  <NextMarker>marker-value</NextMarker>
+</EnumerationResults>

data/test/fixtures/all_tables.xml

@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="utf-8" standalone="yes"?>
+<feed xml:base="http://myaccount.table.core.windows.net/" xmlns:d="http://schemas.microsoft.com/ado/2007/08/dataservices" xmlns:m="http://schemas.microsoft.com/ado/2007/08/dataservices/metadata" xmlns="http://www.w3.org/2005/Atom">
+  <title type="text">Tables</title>
+  <id>http://myaccount.table.core.windows.net/Tables</id>
+  <updated>2009-01-04T17:18:54.7062347Z</updated>
+  <link rel="self" title="Tables" href="Tables" />
+  <entry>
+    <id>http://myaccount.table.core.windows.net/Tables('mytable')</id>
+    <title type="text"></title>
+    <updated>2009-01-04T17:18:54.7062347Z</updated>
+    <author>
+      <name />
+    </author>
+    <link rel="edit" title="Tables" href="Tables('mytable')" />
+    <category term="myaccount.Tables" scheme="http://schemas.microsoft.com/ado/2007/08/dataservices/scheme" />
+    <content type="application/xml">
+      <m:properties>
+        <d:TableName>mytable</d:TableName>
+      </m:properties>
+    </content>
+  </entry>
+</feed>

data/test/fixtures/certificate.pem

@@ -0,0 +1,21 @@
+-----BEGIN CERTIFICATE-----
+MIIDXTCCAkWgAwIBAgIJANykirZF/EsgMA0GCSqGSIb3DQEBBQUAMEUxCzAJBgNV
+BAYTAkFVMRMwEQYDVQQIDApTb21lLVN0YXRlMSEwHwYDVQQKDBhJbnRlcm5ldCBX
+aWRnaXRzIFB0eSBMdGQwHhcNMTMwNTIwMDkxNzI4WhcNMTQwNTIwMDkxNzI4WjBF
+MQswCQYDVQQGEwJBVTETMBEGA1UECAwKU29tZS1TdGF0ZTEhMB8GA1UECgwYSW50
+ZXJuZXQgV2lkZ2l0cyBQdHkgTHRkMIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIB
+CgKCAQEAvbyc1P9OVJmlvFLHLhoIAn0lZtJ5BhA5Y4xjVxTdSrbvfPuhifN0fZFx
+W5r/emW2IS9+eMkjTB6HuEMHU818At16TXTSIUiD6zjUs5a4zGbuOnfZXhmSgjqZ
+FfjpoOpq8BJwNymPyW8bjSzj/FFOxeQ1prIA8listYqm0cKMXYrxHzEm9mfNsiQO
+ZdR6AGPgBmBtgi2SgBRo5peidSHOWt1Hq09L4b8CvQhCunSMQaQbjaS4PEEiyAAy
+pNQwtlkbHxfae4pQ4mcNqaXisOIT/OFbF3ipBJZj0GsrdTw5aKBCa4+v4MrlHpIY
+0IGEst9VusNaHsgZ9fDo2AuHJxYYPwIDAQABo1AwTjAdBgNVHQ4EFgQUMe+pjlnP
+u45jWWGwDBHj/glY5+QwHwYDVR0jBBgwFoAUMe+pjlnPu45jWWGwDBHj/glY5+Qw
+DAYDVR0TBAUwAwEB/zANBgkqhkiG9w0BAQUFAAOCAQEAMIHvO+LuVq/e5Fesr6Q7
+p6PSyth4pfVLfx3tKosvfEzGmdVB7yryx4oVPVUygkmZyHwXqkgU0+k5QH2L0SjF
+fYS/T9RAke3zAHQ31O97aMj7ourjvOXwa87K4g8d/4y75zBewxtga51MZbZEguNy
+Edi/eyM7OuU1LFmoNyc0fakq0tBn68J3bDaNvCskptBASXvIGhlUNq1RT3agbGml
+f8x9SuJofXtqDACgLDQMUGrCWqklMhZohuApMg07Q4bIz/BhXhKETab55gGFX+Ow
+lroGwF29OCyUvpxWmXmcYxmFNlkVOuol6wJWKoeaGc1JphmyvbmS8qaeqgqxFTkP
+kw==
+-----END CERTIFICATE-----

data/test/fixtures/container_acl.xml

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="utf-8"?>
+<SignedIdentifiers>
+  <SignedIdentifier>
+    <Id>MTIzNDU2Nzg5MDEyMzQ1Njc4OTAxMjM0NTY3ODkwMTI=</Id>
+    <AccessPolicy>
+      <Start>2009-09-28T08:49:37.0000000Z</Start>
+      <Expiry>2009-09-29T08:49:37.0000000Z</Expiry>
+      <Permission>rwd</Permission>
+    </AccessPolicy>
+  </SignedIdentifier>
+</SignedIdentifiers>