From bf195bec8ee54f4ef21f6012ebf7c4df1f0b5923 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Javier=20Font=C3=A1n=20Mui=C3=B1os?= <jfontan@fdi.ucm.es>
Date: Tue, 14 Jul 2009 12:57:02 +0000
Subject: [PATCH] oneuser delete checks for VM's defined by the user to delete

git-svn-id: http://svn.opennebula.org/one/trunk@685 3034c82b-c49b-4eb3-8279-a7acafdc01c0
---
 src/client/ruby/oneuser | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/client/ruby/oneuser b/src/client/ruby/oneuser
index 26be8f6dbe..691b0ad121 100755
--- a/src/client/ruby/oneuser
+++ b/src/client/ruby/oneuser
@@ -168,6 +168,21 @@ when "create"
 when "delete"
     check_parameters("delete", 1)
     user_id=get_user_id(ARGV[0])
+
+    # Check if the user has defined VM's
+    vms=false
+    vmpool=OpenNebula::VirtualMachinePool.new(
+        get_one_client, user_id)
+    vmpool.info
+    vmpool.each{ vms=true ; break }
+
+    if vms
+        puts "The user still has VM's defined, type YES if you are sure you"
+        print "want to delete this user: "
+        answer=STDIN.gets.strip
+        exit -1 if answer != 'YES'
+    end
+
     user=OpenNebula::User.new(
         OpenNebula::User.build_xml(user_id), get_one_client)
     result=user.delete