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

Fix multi-hostname dhcp definition deletion in dhcp plugin

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@262 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2008-01-14 20:29:15 +00:00
parent 45fe630583
commit a67083a316
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
xCAT-server-2.0/lib/xcat/plugins/dhcp.pm
View File

@ -28,6 +28,31 @@ sub delnode {
my $node = shift;
my $inetn = inet_aton($node);
my $mactab = xCAT::Table->new('mac');
if ($mactab) { $ent = $mactab->getNodeAttribs($node,[qw(mac)]); }
if ($ent and $ent->{mac}) {
my @macs = split(/\|/,$ent->{mac});
my $mace;
foreach $mace (@macs) {
my $mac;
my $hname;
($mac,$hname) = split (/!/,$mace);
print $omshell "new host\n";
print $omshell "set name = \"$hname\"\n"; #Find and destroy conflict name
print $omshell "open\n";
print $omshell "remove\n";
print $omshell "close\n";
if ($inetn) {
my $ip = inet_ntoa(inet_aton($hname));;
unless ($ip) { return; }
print $omshell "new host\n";
print $omshell "set ip-address = $ip\n"; #find and destroy ip conflict
print $omshell "open\n";
print $omshell "remove\n";
print $omshell "close\n";
}
}
}
print $omshell "new host\n";
print $omshell "set name = \"$node\"\n"; #Find and destroy conflict name
print $omshell "open\n";
@ -75,7 +100,7 @@ sub addnode {
return;
}
my $ip = inet_ntoa(inet_aton($hname));;
print "Setting $node ($hname|$ip) to ".$ent->{mac}."\n";
syslog("local4|err","Setting $node ($hname|$ip) to ".$mac);
print $omshell "new host\n";
print $omshell "set name = \"$hname\"\n"; #Find and destroy conflict name
print $omshell "open\n";