-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

@@ -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};