From 8f888d71819bba422e96efdbf5b17984bf7c5ec0 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 30 Sep 2009 21:14:24 +0000
Subject: [PATCH] -Add currently unused method to find a cluster in a vCenter
 by name

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4271 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/xcat/plugins/esx.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/xCAT-server/lib/xcat/plugins/esx.pm b/xCAT-server/lib/xcat/plugins/esx.pm
index c0d280b73..75466b774 100644
--- a/xCAT-server/lib/xcat/plugins/esx.pm
+++ b/xCAT-server/lib/xcat/plugins/esx.pm
@@ -417,6 +417,23 @@ sub connecthost_callback {
     }
 }
 
+sub get_clusterview {
+    my %args = @_;
+    my $clustname = $args{clustname};
+    my %subargs = (
+        view_type=>'ClusterComputeResource',
+    );
+    if ($args{properties}) {
+        $subargs{properties}=$args{properties};
+    }
+    foreach (@{$args{conn}->find_entity_views(%subargs)}) {
+       if ($_->name =~ /$clustname/) {
+           return $_;
+           last;
+       }
+    }
+}
+
 sub get_hostview {
     my %args = @_;
     my $host = $args{hypname};