wakame-vdc-dcmgr 10.11.0 → 10.12.0

data/Rakefile

@@ -11,14 +11,14 @@ require 'rake/clean'
 require 'dcmgr'
 
 task :environment do
-  Dcmgr.configure 'dcmgr.conf'
+  Dcmgr.configure 'config/dcmgr.conf'
   Dcmgr.run_initializers
 end
 
 namespace :db do
   desc 'Create all database tables'
   task :init => [ :environment ] do
-    ::Kernel.load(File.expand_path('../conf/initializers/sequel.rb', __FILE__))
+    ::Kernel.load(File.expand_path('../config/initializers/sequel.rb', __FILE__))
     require 'isono'
     
     Dcmgr::Models::CREATE_TABLE_CLASSES.each { |c|

data/bin/collector

@@ -36,6 +36,7 @@ manifest.instance_eval do
   load_module Isono::NodeModules::NodeCollector
   load_module Isono::NodeModules::JobCollector
   load_module Dcmgr::NodeModules::HvaCollector
+  load_module Dcmgr::NodeModules::InstanceHA
 
   config do |c|
     conf = load_conf()

data/config/dcmgr.conf.example

@@ -7,3 +7,8 @@ database_url 'mysql://localhost/dcmgr?user=root'
 # AMQP broker to be connected.
 amqp_server_uri 'amqp://192.168.2.25/'
 
+# UUID for shared host pool.
+default_shared_host_pool 'tag-xxxxxxxx'
+
+# UUID for shared network pool.
+default_shared_network_pool 'tag-xxxxxxxx'

data/lib/dcmgr.rb

@@ -1,7 +1,7 @@
 # -*- coding: utf-8 -*-
 
 module Dcmgr
-  VERSION='10.11.0'
+  VERSION='10.12.0'
 
   class << self
     def conf
@@ -73,7 +73,9 @@ module Dcmgr
                           :StoragePool,:Volume,:VolumeSnapshot,
                           :InstanceNetfilterGroup,
                           :InstanceSpec, :InstanceNic, :Network, :IpLease,
-                          :SshKeyPair].freeze
+                          :SshKeyPair, :History, :HostnameLease, :MacLease,
+                          :VlanLease,
+                         ].freeze
     autoload :BaseNew, 'dcmgr/models/base_new'
     autoload :Account, 'dcmgr/models/account'
     autoload :Tag, 'dcmgr/models/tag'
@@ -95,6 +97,10 @@ module Dcmgr
     autoload :IpLease, 'dcmgr/models/ip_lease'
     autoload :InstanceNetfilterGroup, 'dcmgr/models/instance_netfilter_group'
     autoload :SshKeyPair, 'dcmgr/models/ssh_key_pair'
+    autoload :History, 'dcmgr/models/history'
+    autoload :HostnameLease, 'dcmgr/models/hostname_lease'
+    autoload :MacLease, 'dcmgr/models/mac_lease'
+    autoload :VlanLease, 'dcmgr/models/vlan_lease'
   end
 
   module Endpoints
@@ -105,6 +111,7 @@ module Dcmgr
   module NodeModules
     autoload :StaCollector, 'dcmgr/node_modules/sta_collector'
     autoload :HvaCollector, 'dcmgr/node_modules/hva_collector'
+    autoload :InstanceHA, 'dcmgr/node_modules/instance_ha'
   end
 
   module Stm
@@ -112,4 +119,10 @@ module Dcmgr
     autoload :SnapshotContext, 'dcmgr/stm/snapshot_context'
     autoload :Instance, 'dcmgr/stm/instance'
   end
+
+  module Helpers
+    autoload :CliHelper, 'dcmgr/helpers/cli_helper'
+  end
+
+  autoload :Tags, 'dcmgr/tags'
 end

data/lib/dcmgr/endpoints/core_api.rb

@@ -110,6 +110,7 @@ module Dcmgr
       def create_volume_from_snapshot(account_id, snapshot_id)
         vs = find_by_uuid(:VolumeSnapshot, snapshot_id)
         raise UnknownVolumeSnapshot if vs.nil?
+        raise InvalidRequestCredentials unless vs.state.to_s == 'available'
         vs.create_volume(account_id)
       end
         
@@ -131,9 +132,7 @@ module Dcmgr
         operation :show do
           control do
             a = find_account(params[:id])
-            respond_to { |f|
-              f.json { a.to_hash_document.to_json }
-            }
+            response_to(a.to_hash)
           end
         end
 
@@ -141,9 +140,7 @@ module Dcmgr
           description 'Register a new account'
           control do
             a = Models::Account.create()
-            respond_to { |f|
-              f.json { a.to_hash_document.to_json }
-            }
+            response_to(a.to_hash)
           end
         end
 
@@ -156,9 +153,7 @@ module Dcmgr
             a = find_account(params[:id])
             a.destroy
 
-            respond_to { |f|
-              f.json { {} }
-            }
+            response_to([a.canonical_uuid])
           end
         end
 
@@ -271,9 +266,7 @@ module Dcmgr
               :results=> partial_ds.all.map {|i| i.to_api_document }
             }]
             
-            respond_to { |f|
-              f.json {res.to_json}
-            }
+            response_to(res)
           end
         end
 
@@ -281,30 +274,94 @@ module Dcmgr
           description 'Runs a new VM instance'
           # param :image_id, string, :required
           # param :instance_spec_id, string, :required
-          # param :host_pool_id, string, :optional
+          # param :host_id, string, :optional
           # param :host_name, string, :optional
           # param :user_data, string, :optional
           # param :nf_group, array, :optional
           # param :ssh_key, string, :optional
+          # param :network_id, string, :optional
+          # param :ha_enabled, string, :optional
           control do
             Models::Instance.lock!
             
             wmi = find_by_uuid(:Image, params[:image_id])
             spec = find_by_uuid(:InstanceSpec, (params[:instance_spec_id] || 'is-kpf0pasc'))
 
-            if params[:host_pool_id]
-              hp = Models::HostPool[params[:host_pool_id]]
-              raise OutOfHostCapacity unless hp.check_capacity(spec)
+            # look up params[:host_id] in following order:
+            # 1. assume the host pool name.
+            # 2. assume hp-xxxxx or tag-xxxxx style uuid
+            # 3. assign default shared host pool.
+            params[:host_id] ||= params[:host_pool_id]
+            hostnode = pool = nil
+            if params[:host_id]
+              # TODO: smart way to preload model libs.
+              Models::HostPool; Tags::HostPool;
+              if pool = Tags::HostPool.find(:account_id=>@account.canonical_uuid,
+                                            :name=>params[:host_id])
+                # Pattern 1st
+              elsif hostnode = Models::Taggable.find(params[:host_id])
+                # Pattern 2nd
+                case hostnode
+                when Models::HostPool
+                when Tags::HostPool
+                  hostnode = hostnode.pick(spec)
+                else
+                  raise UnknownHostPool, "Could not find the host: #{params[:host_id]}"
+                end
+              end
             else
-              # TODO: schedule a host pool owned by SharedPool account.
+              # Pattern 3rd
+              pool = Tags::HostPool[Dcmgr.conf.default_shared_host_pool]
+              hostnode = pool.pick(spec)
             end
-            
-            raise UnknownHostPool, "Could not find host pool: #{params[:host_pool_id]}" if hp.nil?
+            raise UnknownHostPool, "Could not find host pool: #{params[:host_id]}" if hostnode.nil?
+            raise OutOfHostCapacity unless hostnode.check_capacity(spec)
+
+            # look up params[:network_id] in following order:
+            # 1. assume the network pool name.
+            # 2. assume nw-xxxxx or tag-xxxxx style uuid
+            # 3. assign default shared network pool.
+            # then randomly choose one network from the pool object.
+            network = pool = nil
+            if params[:network_id]
+              # TODO: smart way to preload model libs.
+              Models::Network; Tags::NetworkPool;
+              if pool = Tags::NetworkPool.find(:account_id=>@account.canonical_uuid,
+                                               :name=>params[:network_id])
+                # Pattern 1st
+                network = pool.pick
+              elsif network = Models::Taggable.find(params[:network_id])
+                # Pattern 2nd
+                case network
+                when Models::Network
+                when Tags::NetworkPool
+                  network = network.pick
+                else
+                  raise "Unknown network uuid: #{params[:network_id]}"
+                end
+              end
+            else
+              # Pattern 3rd
+              pool = Tags::NetworkPool[Dcmgr.conf.default_shared_network_pool]
+              network = pool.pick
+            end
+            raise "Can not find the network" if network.nil?
+            raise "Out of IP addresses in the network" unless network.available_ip_nums > 0
 
-            inst = hp.create_instance(@account, wmi, spec) do |i|
+            inst = hostnode.create_instance(@account, wmi, spec, network) do |i|
               # TODO: do not use rand() to decide vnc port.
               i.runtime_config = {:vnc_port=>rand(2000), :telnet_port=> (rand(2000) + 2000)}
               i.user_data = params[:user_data] || ''
+              # set only when not nil as the table column has not null
+              # condition.
+              if params[:hostname]
+                if Models::Instance::ValidationMethods.hostname_uniqueness(@account.canonical_uuid,
+                                                                           params[:hostname])
+                  i.hostname = params[:hostname]
+                else
+                  raise DuplicateHostname
+                end
+              end
 
               if params[:ssh_key]
                 ssh_key_pair = Models::SshKeyPair.find(:account_id=>@account.canonical_uuid,
@@ -315,6 +372,10 @@ module Dcmgr
                   i.ssh_key_pair_id = ssh_key_pair.canonical_uuid
                 end
               end
+
+              if params[:ha_enabled] == 'true'
+                i.ha_enabled = 1
+              end
             end
 
             unless params[:nf_group].is_a?(Array)
@@ -328,17 +389,17 @@ module Dcmgr
               snapshot_id = wmi.source[:snapshot_id]
               vol = create_volume_from_snapshot(@account.canonical_uuid, snapshot_id)
 
+              vol.boot_dev = 1
               vol.instance = inst
               vol.save
-              res = Dcmgr.messaging.submit("kvm-handle.#{hp.node_id}", 'run_vol_store', inst.canonical_uuid, vol.canonical_uuid)
+              res = Dcmgr.messaging.submit("kvm-handle.#{hostnode.node_id}", 'run_vol_store', inst.canonical_uuid, vol.canonical_uuid)
             when Models::Image::BOOT_DEV_LOCAL
-              res = Dcmgr.messaging.submit("kvm-handle.#{hp.node_id}", 'run_local_store', inst.canonical_uuid)
+              res = Dcmgr.messaging.submit("kvm-handle.#{hostnode.node_id}", 'run_local_store', inst.canonical_uuid)
             else
               raise "Unknown boot type"
             end
-            respond_to { |f|
-              f.json { inst.to_api_document.to_json }
-            }
+            
+            response_to(inst.to_api_document)
           end
         end
 
@@ -348,9 +409,7 @@ module Dcmgr
             i = find_by_uuid(:Instance, params[:id])
             raise UnknownInstance if i.nil?
             
-            respond_to { |f|
-              f.json { i.to_api_document.to_json }
-            }
+            response_to(i.to_api_document)
           end
         end
 
@@ -364,9 +423,7 @@ module Dcmgr
               raise OperationNotPermitted
             end
             res = Dcmgr.messaging.submit("kvm-handle.#{i.host_pool.node_id}", 'terminate', i.canonical_uuid)
-            respond_to { |f|
-              f.json { i.canonical_uuid }
-            }
+            response_to([i.canonical_uuid])
           end
         end
 
@@ -407,9 +464,7 @@ module Dcmgr
               :results=> partial_ds.all.map {|i| i.to_hash }
             }]
             
-            respond_to { |f|
-              f.json {res.to_json}
-            }
+            response_to(res)
           end
         end
 
@@ -421,9 +476,7 @@ module Dcmgr
             unless examine_owner(i)
               raise OperationNotPermitted
             end
-            respond_to { |f|
-              f.json { i.to_hash.to_json }
-            }
+            response_to(i.to_hash)
           end
         end
 
@@ -437,6 +490,7 @@ module Dcmgr
             else
               raise OperationNotPermitted
             end
+            response_to([i.canonical_uuid])
           end
         end
       end
@@ -461,9 +515,7 @@ module Dcmgr
               :results=> partial_ds.all.map {|i| i.to_hash }
             }]
             
-            respond_to { |f|
-              f.json {res.to_json}
-            }
+            response_to(res)
           end
         end
 
@@ -474,9 +526,7 @@ module Dcmgr
             hp = find_by_uuid(:HostPool, params[:id])
             raise OperationNotPermitted unless examine_owner(hp)
             
-            respond_to { |f|
-              f.json { hp.to_hash.to_json }
-            }
+            response_to(hp.to_hash)
           end
         end
       end
@@ -499,11 +549,9 @@ module Dcmgr
               :owner_total => total_v.count,
               :start => start,
               :limit => limit,
-              :results => partial_v.all.map { |v| v.to_hash_document}
+              :results => partial_v.all.map { |v| v.to_api_document}
             }]
-            respond_to { |f|
-              f.json { res.to_json}
-            }
+            response_to(res)
           end
         end
 
@@ -514,9 +562,7 @@ module Dcmgr
             volume_id = params[:id]
             raise UndefinedVolumeID if volume_id.nil?
             v = find_by_uuid(:Volume, volume_id)
-            respond_to { |f|
-              f.json { v.to_hash_document.to_json}
-            }
+            response_to(v.to_api_document)
           end
         end
 
@@ -531,8 +577,10 @@ module Dcmgr
               v = create_volume_from_snapshot(@account.canonical_uuid, params[:snapshot_id])
               sp = v.storage_pool
             elsif params[:volume_size]
-              raise InvalidVolumeSize if !(Dcmgr.conf.create_volume_max_size.to_i >= params[:volume_size].to_i) || !(params[:volume_size\
-].to_i >= Dcmgr.conf.create_volume_min_size.to_i)
+              if !(Dcmgr.conf.create_volume_max_size.to_i >= params[:volume_size].to_i) ||
+                  !(params[:volume_size].to_i >= Dcmgr.conf.create_volume_min_size.to_i)
+                raise InvalidVolumeSize
+              end
               if params[:storage_pool_id]
                 sp = find_by_uuid(:StoragePool, params[:storage_pool_id])
                 raise StoragePoolNotPermitted if sp.account_id != @account.canonical_uuid
@@ -552,9 +600,7 @@ module Dcmgr
             end
 
             res = Dcmgr.messaging.submit("zfs-handle.#{sp.values[:node_id]}", 'create_volume', v.canonical_uuid)
-            respond_to { |f|
-              f.json { v.to_hash_document.to_json}
-            }
+            response_to(v.to_api_document)
           end
         end
 
@@ -576,9 +622,7 @@ module Dcmgr
             sp = v.storage_pool
 
             res = Dcmgr.messaging.submit("zfs-handle.#{sp.values[:node_id]}", 'delete_volume', v.canonical_uuid)
-            respond_to { |f|
-              f.json { v.to_hash_document.to_json}
-            }
+            response_to([v.canonical_uuid])
           end
         end
 
@@ -592,17 +636,17 @@ module Dcmgr
             
             i = find_by_uuid(:Instance, params[:instance_id])
             raise UnknownInstance if i.nil?
+            raise InvalidInstanceState unless i.live? && i.state == 'running'
 
             v = find_by_uuid(:Volume, params[:id])
             raise UnknownVolume if v.nil?
+            raise AttachVolumeFailure, "Volume is attached to running instance." if v.instance
 
             v.instance = i
             v.save
             res = Dcmgr.messaging.submit("kvm-handle.#{i.host_pool.node_id}", 'attach', i.canonical_uuid, v.canonical_uuid)
 
-            respond_to { |f|
-              f.json { v.to_hash_document.to_json}
-            }
+            response_to(v.to_api_document)
           end
         end
 
@@ -614,11 +658,13 @@ module Dcmgr
 
             v = find_by_uuid(:Volume, params[:id])
             raise UnknownVolume if v.nil?
+            raise DetachVolumeFailure, "Volume is not attached to any instance." if v.instance.nil?
+            # the volume as the boot device can not be detached.
+            raise DetachVolumeFailure, "boot device can not be detached" if v.boot_dev == 1
             i = v.instance
+            raise InvalidInstanceState unless i.live? && i.state == 'running'
             res = Dcmgr.messaging.submit("kvm-handle.#{i.host_pool.node_id}", 'detach', i.canonical_uuid, v.canonical_uuid)
-            respond_to { |f|
-              f.json {v.to_hash_document.to_json}
-            }
+            response_to(v.to_api_document)
           end
         end
 
@@ -655,11 +701,9 @@ module Dcmgr
               :owner_total => total_vs.count,
               :start => start,
               :limit => limit,
-              :results => partial_vs.all.map { |vs| vs.to_hash_document}
+              :results => partial_vs.all.map { |vs| vs.to_api_document}
             }]
-            respond_to { |f|
-              f.json { res.to_json}
-            }
+            response_to(res)
           end
         end
 
@@ -670,9 +714,7 @@ module Dcmgr
             snapshot_id = params[:id]
             raise UndefinedVolumeSnapshotID if snapshot_id.nil?
             vs = find_by_uuid(:VolumeSnapshot, snapshot_id)
-            respond_to { |f|
-              f.json { vs.to_hash_document.to_json}
-            }
+            response_to(vs.to_api_document)
           end
         end
 
@@ -686,14 +728,13 @@ module Dcmgr
 
             v = find_by_uuid(:Volume, params[:volume_id])
             raise UnknownVolume if v.nil?
+            raise InvalidRequestCredentials unless v.state == "available"
 
             vs = v.create_snapshot(@account.canonical_uuid)
             sp = vs.storage_pool
 
             res = Dcmgr.messaging.submit("zfs-handle.#{sp.node_id}", 'create_snapshot', vs.canonical_uuid)
-            respond_to { |f|
-              f.json { vs.to_hash_document.to_json}
-            }
+            response_to(vs.to_api_document)
           end
         end
 
@@ -705,15 +746,17 @@ module Dcmgr
             snapshot_id = params[:id]
             raise UndefindVolumeSnapshotID if snapshot_id.nil?
 
-            vs = find_by_uuid(:VolumeSnapshot, snapshot_id)
+            begin
+              vs  = Models::VolumeSnapshot.delete_snapshot(@account.canonical_uuid, snapshot_id)
+            rescue Models::VolumeSnapshot::RequestError => e
+              logger.error(e)
+              raise InvalidDeleteRequest
+            end
             raise UnknownVolumeSnapshot if vs.nil?
-            vs = vs.delete_snapshot
             sp = vs.storage_pool
 
             res = Dcmgr.messaging.submit("zfs-handle.#{sp.node_id}", 'delete_snapshot', vs.canonical_uuid)
-            respond_to { |f|
-              f.json { vs.to_hash_document.to_json }
-            }
+            response_to([vs.canonical_uuid])
           end
         end
 
@@ -752,9 +795,7 @@ module Dcmgr
                      :results=> partial_ds.all.map {|i| i.to_hash }
                    }]
             
-            respond_to { |f|
-              f.json {res.to_json}
-            }
+            response_to(res)
           end
         end
 
@@ -762,12 +803,9 @@ module Dcmgr
           description 'Show the netfilter_groups'
           control do
             g = find_by_uuid(:NetfilterGroup, params[:id])
-            p params[:id]
             raise OperationNotPermitted unless examine_owner(g)
 
-            respond_to { |f|
-              f.json { g.to_hash.to_json }
-            }
+            response_to(g.to_hash)
           end
         end
 
@@ -788,9 +826,7 @@ module Dcmgr
             raise DuplicatedNetfilterGroup unless g.nil?
 
             g = Models::NetfilterGroup.create_group(@account.canonical_uuid, params)
-            respond_to { |f|
-              f.json { g.to_hash.to_json }
-            }
+            response_to(g.to_hash)
           end
         end
 
@@ -816,9 +852,7 @@ module Dcmgr
             # refresh netfilter_rules
             Dcmgr.messaging.event_publish('hva/netfilter_updated', :args=>[g.canonical_uuid])
 
-            respond_to { |f|
-              f.json { g.to_hash.to_json }
-            }
+            response_to(g.to_hash)
           end
         end
 
@@ -833,9 +867,8 @@ module Dcmgr
             raise UnknownNetfilterGroup if g.nil?
             raise NetfilterGroupNotPermitted if g.account_id != @account.canonical_uuid
 
-            respond_to { |f|
-              f.json { g.destroy_group.values.to_json }
-            }
+            g.destroy
+            response_to([g.canonical_uuid])
           end
         end
 
@@ -861,9 +894,7 @@ module Dcmgr
               }
             end
 
-            respond_to { |f|
-              f.json { rules.to_json }
-            }
+            response_to(rules)
           end
         end
       end
@@ -887,12 +918,10 @@ module Dcmgr
               :owner_total => total_ds.count,
               :start => start,
               :limit => limit,
-              :results=> partial_ds.all.map {|sp| sp.to_hash_document }
+              :results=> partial_ds.all.map {|sp| sp.to_hash }
             }]
 
-            respond_to { |f|
-              f.json { res.to_json}
-            }
+            response_to(res)
           end
         end
 
@@ -904,9 +933,7 @@ module Dcmgr
             raise UndefinedStoragePoolID if pool_id.nil?
             vs = find_by_uuid(:StoragePool, pool_id)
             raise UnknownStoragePool if vs.nil?
-            respond_to { |f|
-              f.json { vs.to_hash_document.to_json}
-            }
+            response_to(vs.to_hash)
           end
         end
       end
@@ -934,9 +961,7 @@ module Dcmgr
               :results=> partial_ds.all.map {|i| i.to_hash }
             }]
             
-            respond_to { |f|
-              f.json {res.to_json}
-            }
+            response_to(res)
           end
         end
         
@@ -947,9 +972,7 @@ module Dcmgr
           control do
             ssh = find_by_uuid(:SshKeyPair, params[:id])
             
-            respond_to { |f|
-              f.json {ssh.to_hash.to_json}
-            }
+            response_to(ssh.to_hash)
           end
         end
         
@@ -971,11 +994,9 @@ module Dcmgr
             end
             ssh = Models::SshKeyPair.create(savedata)
                                             
-            respond_to { |f|
-              # include private_key data in response even if
-              # it's not going to be stored on DB.
-              f.json {ssh.to_hash.merge(:private_key=>keydata[:private_key]).to_json}
-            }
+            # include private_key data in response even if
+            # it's not going to be stored on DB.
+            response_to(ssh.to_hash.merge(:private_key=>keydata[:private_key]))
           end
         end
         
@@ -991,14 +1012,155 @@ module Dcmgr
               raise OperationNotPermitted
             end
             
-            respond_to { |f|
-              f.json {ssh.to_hash.to_json}
-            }
+            response_to([ssh.canonical_uuid])
           end
         end
 
       end
 
+      collection :networks do
+        description "Networks for account"
+        operation :index do
+          description "List networks in account"
+          # params start, fixnum, optional 
+          # params limit, fixnum, optional
+          control do
+            start = params[:start].to_i
+            start = start < 1 ? 0 : start
+            limit = params[:limit].to_i
+            limit = limit < 1 ? nil : limit
+            
+            total_ds = Models::Network.where(:account_id=>@account.canonical_uuid)
+            partial_ds = total_ds.dup.order(:id)
+            partial_ds = partial_ds.limit(limit, start) if limit.is_a?(Integer)
+
+            res = [{
+              :owner_total => total_ds.count,
+              :filter_total => total_ds.count,
+              :start => start,
+              :limit => limit,
+              :results=> partial_ds.all.map {|i| i.to_hash }
+            }]
+            
+            response_to(res)
+          end
+        end
+        
+        operation :show do
+          description "Retrieve details about a network"
+          # params :id required
+          control do
+            nw = find_by_uuid(:Network, params[:id])
+            examine_owner(nw) || raise(OperationNotPermitted)
+            
+            response_to(nw.to_hash)
+          end
+        end
+        
+        operation :create do
+          description "Create new network"
+          # params :gw required default gateway address of the network
+          # params :prefix optional  netmask bit length. it will be
+          #               set 24 if none.
+          # params :description optional description for the network
+          control do
+            Models::Network.lock!
+            savedata = {
+              :account_id=>@account.canonical_uuid,
+              :ipv4_gw => params[:gw],
+              :prefix => params[:prefix].to_i,
+              :description => params[:description],
+            }
+            nw = Models::Network.create(savedata)
+                                            
+            response_to(nw.to_hash)
+          end
+        end
+        
+        operation :destroy do
+          description "Remove network information"
+          # params :id required
+          control do
+            Models::Network.lock!
+            nw = find_by_uuid(:Network, params[:id])
+            examine_owner(nw) || raise(OperationNotPermitted)
+            nw.destroy
+            
+            response_to([nw.canonical_uuid])
+          end
+        end
+
+        operation :reserve, :method =>:put, :member=>true do
+          description 'Register reserved IP address to the network'
+          # params id, string, required
+          # params ipaddr, [String,Array], required
+          control do
+            Models::IpLease.lock!
+            nw = find_by_uuid(:Network, params[:id])
+            examine_owner(nw) || raise(OperationNotPermitted)
+
+            (ipaddr.is_a?(Array) ? params[:ipaddr] : Array(params[:ipaddr])).each { |ip|
+              nw.add_reserved(ip)
+            }
+            response_to({})
+          end
+        end
+
+        operation :release, :method =>:put, :member=>true do
+          description 'Unregister reserved IP address from the network'
+          # params id, string, required
+          # params ipaddr, [String,Array], required
+          control do
+            Models::IpLease.lock!
+            nw = find_by_uuid(:Network, params[:id])
+            examine_owner(nw) || raise(OperationNotPermitted)
+
+            (ipaddr.is_a?(Array) ? params[:ipaddr] : Array(params[:ipaddr])).each { |ip|
+              nw.delete_reserved(ip)
+            }
+            response_to({})
+          end
+        end
+
+        operation :add_pool, :method=>:put, :member=>true do
+          description 'Label network pool name'
+           # param :name required
+          control do
+            Models::Tag.lock!
+            nw = find_by_uuid(:Network, params[:id])
+            examine_owner(nw) || raise(OperationNotPermitted)
+            nw.label_tag(:NetworkPool, params[:name], @account.canonical_uuid)
+            response_to({})
+          end
+        end
+        
+        operation :del_pool, :method=>:put, :member=>true do
+          description 'Unlabel network pool name'
+          # param :name required
+          control do
+            Models::Tag.lock!
+            nw = find_by_uuid(:Network, params[:id])
+            examine_owner(nw) || raise(OperationNotPermitted)
+            
+            nw.unlabel_tag(:NetworkPool, params[:name], @account.canonical_uuid)
+            response_to({})
+          end
+        end
+        
+        operation :get_pool, :method=>:get, :member=>true do
+          description 'List network pool name'
+          # param :name required
+          control do
+            Models::Tag.lock!
+             nw = find_by_uuid(:Network, params[:id])
+             examine_owner(nw) || raise(OperationNotPermitted)
+
+             res = nw.tags_dataset.filter(:type_id=>Tags.type_id(:NetworkPool)).all.map{|i| i.to_api_document }
+             response_to(res)
+           end
+         end
+      end
+      
     end
   end
 end