-Implement host-relative site.dhcpinterfaces syntax

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1303 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2008-05-07 13:49:33 +00:00
parent aeaf1b94ba
commit b487dcd0c7

View File

@ -305,12 +305,25 @@ sub process_request
($href) = $sitetab->getAttribs({key => 'dhcpinterface'}, 'value');
}
if ($href and $href->{value})
#syntax should be like host|ifname1,ifname2;host2|ifname3,ifname2 etc or simply ifname,ifname2
#depending on complexity of network wished to be described
{
foreach (split /[,\s]+/, $href->{value})
{
$activenics{$_} = 1;
$querynics = 0;
}
my $dhcpinterfaces = $href->{value};
my $dhcpif;
foreach $dhcpif (split /;/,$dhcpinterfaces) {
if ($dhcpif =~ /\|/) {
(my $host,$dhcpif) = split /\|/,$dhcpif;
if (xCAT::Utils->thishostisnot($host)) {
next;
}
}
foreach (split /[,\s]+/, $dhcpif)
{
$activenics{$_} = 1;
$querynics = 0;
}
}
print Dumper(\%activenics);
}
($href) = $sitetab->getAttribs({key => 'domain'}, 'value');
unless ($href and $href->{value})