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

This addresses [ xcat-Feature Requests-2991347 ] chtab should be able to append a new value to an attribute

Browse Source 
allows += to be used to append values in a field instead of only being able to replace with =
fixed the version option


git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5880 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
cjhardee 2010-04-24 02:08:21 +00:00
parent 66ebab3df7
commit 2a9a5675ce
1 changed files with 45 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
xCAT-server/sbin/chtab
View File

@ -50,7 +50,8 @@ if ($::HELP) { &usage; exit(0);}
# display the version statement if -v or --verison is specified
if ($::VERSION)
{
print "chtab version 2.0\n";
my $version = xCAT::Utils->Version();
print "chtab $version\n";
exit(0);
}
@ -101,17 +102,50 @@ else {
my $table;
my $column;
my $value;
($table,$temp) = split('\.',$_,2);
($column,$value) = split("=",$temp,2);
unless ($tables{$table}) {
my $tab = xCAT::Table->new($table,-create => 1,-autocommit => 0);
if ($tab) {
$tables{$table}=$tab;
} else {
print "Table $table does not exist.\n";
exit(1);
}
}
#try to create the entry if it doesn't exist
unless ($tables{$table}) {
my $tab = xCAT::Table->new($table,-create => 1,-autocommit => 0);
if ($tab) {
$tables{$table}=$tab;
} else {
print "Table $table does not exist.\n";
exit(1);
}
}
#splice assignment
if(grep /\+=/, $temp) {
($column,$value) = split('\+=',$temp,2);
#grab the current values to check against
my ($attrHash) = $tables{$table}->getAttribs(\%keyhash, $column);
my @existing = split(",",$attrHash->{$column});
#if it has values, merge the new and old ones together so no dupes
if (@existing) {
my @values = split(",",$value);
my %seen = ();
my @uniq = ();
my $item;
foreach $item (@existing,@values) {
unless ($seen{$item}) {
# if we get here, we have not seen it before
$seen{$item} = 1;
push(@uniq, $item);
}
}
$value = join(",",@uniq);
}
}
#normal non-splicing assignment
else {
($column,$value) = split("=",$temp,2);
}
$tableupdates{$table}{$column}=$value;
}