[vcloud_director] Add ability to undeploy vApp

lib/fog/vcloud_director/compute.rb

@@ -109,6 +109,7 @@ module Fog
      request :get_vms_by_metadata
      request :get_vm
      request :post_task_cancel
+     request :undeploy
 
      class Model < Fog::Model
        def initialize(attrs={})

lib/fog/vcloud_director/models/compute/vapp.rb

@@ -5,10 +5,10 @@ module Fog
     class VcloudDirector
 
       class Vapp < Model
-        
-        
+
+
         identity  :id
-                  
+
         attribute :name
         attribute :type
         attribute :href
@@ -20,7 +20,7 @@ module Fog
         attribute :network_config, :aliases => :NetworkConfigSection, :squash => :NetworkConfig
         attribute :owner, :aliases => :Owner, :squash => :User
         attribute :InMaintenanceMode, :type => :boolean
-        
+
         def vms
           requires :id
           service.vms(:vapp => self)
@@ -30,9 +30,12 @@ module Fog
           requires :id
           service.tags(:vm => self)
         end
-        
-        
+
+        def undeploy
+          service.undeploy(id)
+        end
+
       end
     end
   end
-end
+end

lib/fog/vcloud_director/requests/compute/undeploy.rb

@@ -0,0 +1,22 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        def undeploy(vapp_id)
+          body = <<EOF
+                        <UndeployVAppParams xmlns="http://www.vmware.com/vcloud/v1.5">
+                        <UndeployPowerAction>shutdown</UndeployPowerAction>
+                        </UndeployVAppParams>
+EOF
+          request(
+            :body    => body,
+            :expects => 202,
+            :method  => 'POST',
+            :headers => {'Content-Type' => 'application/vnd.vmware.vcloud.undeployVAppParams+xml' },
+            :path    => "vApp/#{vapp_id}/action/undeploy"
+          )
+        end
+      end
+    end
+  end
+end