xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-05-29 09:13:08 +00:00
Code Issues Releases Wiki Activity

polish

Browse Source
This commit is contained in:
bybai 2016-06-17 03:01:39 -04:00
parent 4d5734558b
commit 705a45b6d9
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
perl-xCAT/xCAT/DBobjUtils.pm
View File

@ -2458,9 +2458,22 @@ sub expandnicsattr()
# Value: eth0!1.1.1.1|2.1.1.1,eth1!3.1.1.1|4.1.1.1
my $nicval=$2;
#In the lsdef, remove the ^| and |$ before displaying
$nicval=~s/(^\||\|$)//g;
#if there is regrex in nicips
if (($nicval) && ($nicval =~ /^\|(.*?)\|$/)) {
#$nicval Value: |node(d+)|eth0!192.1.1.($1+10)| or
# |eth0!192.1.1.($1+10),bond0!10.28.41.($1+10)|
#In the lsdef, remove the ^| and |$ before displaying
$nicval=~s/(^\||\|$)//g;
#$nicval Value: node(d+)|eth0!192.1.1.($1+10)
if (($nicval) && ($nicval =~ /\|/)) {
my ($str1,$str2)=split('\|', $nicval);
#$nivval Value: eth0!192.1.1.($1+10)
$nicval=$str2;
}
}
# $nicarr[0]: eth0!1.1.1.1|2.1.1.1
# $nicarr[1]: eth1!3.1.1.1|4.1.1.1