move getTypeOfHcp from Utils.pm to FSPUtils.pm

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6937 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

perl-xCAT/xCAT/FSPUtils.pm

@@ -248,6 +248,26 @@ sub fsp_state_action {
     return( [$Rc,@res] ); 
 }
 
+sub getTypeOfHcp
+{
+    my $class      = shift;
+    my $hcp        = shift;
+    
+    my $nodetypetab = xCAT::Table->new( 'nodetype');
+
+    xCAT::MsgUtils->message('E', "Failed to open table 'nodetype'.") if ( ! $nodetypetab);
+    my $nodetype_hash    = $nodetypetab->getNodeAttribs( $hcp,[qw(nodetype)]);
+    my $nodetype    = $nodetype_hash->{nodetype};
+    if ( !$nodetype) {
+	    xCAT::MsgUtils->message('E', "Not found the $hcp\'s  nodetype");	
+        return undef;
+    }
+    return $nodetype;    
+    
+}
+
+
+
 
 
 1;