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

support DNS forwarder on AIX.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7516 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sjing 2010-09-20 10:32:39 +00:00
parent 77a01ef983
commit 95a29a9924
1 changed files with 41 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
xCAT-server/lib/xcat/plugins/bind.pm
View File

@ -852,17 +852,30 @@ sub FIXUP
{
print BOOT $line;
}
unless (@forwarders)
# hint zone is also needed for DNS forwarders on AIX
if (xCAT::Utils->isAIX())
{
print BOOT
qq|zone "." in {\n\ttype hint;\n\tfile "db.cache";\n};\n\n|;
}
else
{
unless (@forwarders)
{
print BOOT
qq|zone "." in {\n\ttype hint;\n\tfile "db.cache";\n};\n\n|;
}
}
if (-r "spcl.boot")
{
print BOOT qq|include "spcl.boot";\n\n|;
}
}
close(BOOT);
# Go ahead and start creating files and making SOA's
my $x1;
my $x2;
@ -875,6 +888,33 @@ sub FIXUP
my $file = "DB.127.0.0.1";
&MAKE_SOA($callback, $DBDir . "db.127.0.0", $file);
if (xCAT::Utils->isAIX())
{
# if forwarders is set, we need to create the hint file for root name servers.
if (@forwarders)
{
my $tmpfile = $DBDir . "db.cache";
my $cmd = qq~dig @"$forwarders[0]" . ns > $tmpfile~;
my $outref = xCAT::Utils->runcmd("$cmd", 0);
if ($::RUNCMD_RC != 0)
{
my $rsp = {};
$rsp->{data}->[0] = "Could not run command: $cmd.\n";
xCAT::MsgUtils->message("E", $rsp, $callback, 1);
exit 1;
}
}
else
{
my $nothing;
open($nothing, ">>", $DBDir . "db.cache");
}
}
else
{
my $nothing;
open($nothing, ">>", $DBDir . "db.cache");
}
my $nothing;
open($nothing, ">>", $DBDir . "db.cache");
close($nothing);