From 81da8e0552cf467a511fa0e2a9368475c2e22a8d Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 2 Apr 2010 18:09:58 +0000
Subject: [PATCH] -Fix reverse zone filenames

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5658 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/xcat/plugins/dns.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/xCAT-server/lib/xcat/plugins/dns.pm b/xCAT-server/lib/xcat/plugins/dns.pm
index b5ca0907a..b9e19cf42 100644
--- a/xCAT-server/lib/xcat/plugins/dns.pm
+++ b/xCAT-server/lib/xcat/plugins/dns.pm
@@ -266,11 +266,13 @@ sub update_zones {
     my $serial = ($mday * 100) + (($mon + 1) * 10000) + (($year + 1900) * 1000000);
     foreach $currzone (@neededzones) {
         my $zonefilename = $currzone;
-        $zonefilename =~ s/\..*//; #compatible with bind.pm
         if ($currzone =~ /IN-ADDR\.ARPA/) {
             $currzone =~ s/\.IN-ADDR\.ARPA.*//;
             my @octets = split/\./,$currzone;
             $currzone = join('.',reverse(@octets));
+            $zonefilename = $currzone;
+        } else {
+            $zonefilename =~ s/\..*//; #compatible with bind.pm
         }
         unless (-f $dbdir."/db.$zonefilename") {
             my $zonehdl;