From e88e7e3880204d8cff85940e33187fefbd89f441 Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 29 Nov 2007 19:16:24 +0000
Subject: [PATCH] Return error messages in database functions

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@93 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT-2.0/xCAT/PPCdb.pm | 37 +++++++++++++++++++++++++++++++++----
 1 file changed, 33 insertions(+), 4 deletions(-)

diff --git a/perl-xCAT-2.0/xCAT/PPCdb.pm b/perl-xCAT-2.0/xCAT/PPCdb.pm
index 7269986fb..ad8b513b9 100644
--- a/perl-xCAT-2.0/xCAT/PPCdb.pm
+++ b/perl-xCAT-2.0/xCAT/PPCdb.pm
@@ -7,7 +7,7 @@ use xCAT::Table;
 
 
 ##########################################################################
-# Adds an LPAR to the xCAT databases
+# Adds a node to the xCAT databases
 ##########################################################################
 sub add_ppc {
 
@@ -22,7 +22,7 @@ sub add_ppc {
     foreach ( @tabs ) {
         $db{$_} = xCAT::Table->new( $_, -create=>1, -autocommit=>0 );
         if ( !$db{$_} ) {
-            return;
+            return( "Error opening '$_'" );
         }
     }
     ###################################
@@ -98,6 +98,7 @@ sub add_ppc {
            $db{$_}->commit;
         }
     }
+    return undef;
 }
 
 
@@ -118,7 +119,7 @@ sub add_ppch {
     ###################################
     my $tab = xCAT::Table->new( 'ppch', -create=>1, -autocommit=>0 );
     if ( !$tab ) {
-        return;
+        return( "Error opening 'ppch'" );
     }
     $k->{hcp}      = $name;
     $u->{username} = $uid;
@@ -126,10 +127,37 @@ sub add_ppch {
 
     $tab->setAttribs( $k, $u );
     $tab->commit;
-
+    return undef;
 }
 
 
+##########################################################################
+# Removes a node from the xCAT databases
+##########################################################################
+sub rm_ppc {
+
+    my $node = shift;
+    my @tabs = qw(ppc nodehm nodelist);
+
+    foreach ( @tabs ) {
+        ###################################
+        # Open table
+        ###################################
+        my $tab = xCAT::Table->new($_);
+
+        if ( !$tab ) {
+            return( "Error opening '$_'" );
+        }
+        ###############################
+        # Remove entry
+        ###############################
+        $tab->delEntries( {'node'=>$node} );
+    }
+    return undef;
+}
+
+
+
 ##########################################################################
 # Get userids and passwords from tables
 ##########################################################################
@@ -177,3 +205,4 @@ sub credentials {
 
 1;
 
+