arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added add_systemX function

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@110 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2007-11-30 18:15:01 +00:00
parent bc25ec637f
commit e9727f8d19
1 changed files with 70 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
perl-xCAT-2.0/xCAT/PPCdb.pm
View File

@ -38,7 +38,6 @@ sub add_ppc {
$profile,
$parent,
$ips ) = split /,/;
###############################
# Update ppc table
@ -158,6 +157,75 @@ sub rm_ppc {
##########################################################################
# Adds a Management-Module or RSA to the appropriate tables
##########################################################################
sub add_systemX {
my $type = shift;
my $data = shift;
my @tabs = qw(mpa mp nodehm nodelist);
my %db = ();
###################################
# Open database needed
###################################
foreach ( @tabs ) {
$db{$_} = xCAT::Table->new( $_, -create=>1, -autocommit=>0 );
if ( !$db{$_} ) {
return( "Error opening '$_'" );
}
}
###################################
# Update mpa table
###################################
my ($k1,$u1);
my $name = @$data[4];
####################################
# N/A Values
####################################
my $uid = undef;
my $pw = undef;
$k1->{mpa} = $name;
$u1->{username} = $uid;
$u1->{password} = $pw;
$db{mpa}->setAttribs( $k1, $u1 );
$db{mpa}->commit;
###################################
# Update mp table
###################################
my ($k2,$u2);
$k2->{node} = $name;
$u2->{mpa} = $name;
$u2->{id} = "0";
$db{mp}->setAttribs( $k2, $u2 );
$db{mp}->commit;
###################################
# Update nodehm table
###################################
my ($k3,$u3);
$k3->{node} = $name;
$u3->{mgt} = "blade";
$db{nodehm}->setAttribs( $k3, $u3 );
$db{nodehm}->commit;
###################################
# Update nodelist table
###################################
my ($k4,$u4);
$k4->{node} = $name;
$u4->{groups} = lc($type).",all";
$db{nodelist}->setAttribs( $k4, $u4 );
$db{nodelist}->commit;
}
##########################################################################
# Get userids and passwords from tables
##########################################################################
@ -206,3 +274,4 @@ sub credentials {
1;