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

reduced duplication in postscropts.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2357 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
linggao 2008-10-17 15:11:26 +00:00
parent cd57082417
commit 6eb9250efc
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
perl-xCAT/xCAT/Postage.pm
View File

@ -252,12 +252,16 @@ sub makescript {
###Please do not remove or modify this line of code!!! xcatdsklspost depends on it
push @scriptd, "# postscripts-start-here\n";
my %post_hash=(); #used to reduce duplicates
# get the xcatdefaults entry in the postscripts table
my $et = $posttab->getAttribs({node=>"xcatdefaults"},'postscripts');
my $defscripts = $et->{'postscripts'};
if ($defscripts) {
foreach my $n (split(/,/, $defscripts)) {
push @scriptd, $n."\n";
if (! exists($post_hash{$n})) {
$post_hash{$n}=1;
push @scriptd, $n."\n";
}
}
}
@ -266,7 +270,10 @@ sub makescript {
$ps = $et->{'postscripts'};
if ($ps) {
foreach my $n (split(/,/, $ps)) {
push @scriptd, $n."\n";
if (! exists($post_hash{$n})) {
$post_hash{$n}=1;
push @scriptd, $n."\n";
}
}
}