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
This commit is contained in:
sakolish 2007-11-29 19:16:24 +00:00
parent 8e2e538d39
commit e88e7e3880

View File

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