From e8f39c6866672527fb08272a526ad2bbab5bf47c Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 19 Aug 2011 11:32:43 +0000
Subject: [PATCH] add error process per defect 3393849

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

diff --git a/xCAT-server/lib/xcat/plugins/ddns.pm b/xCAT-server/lib/xcat/plugins/ddns.pm
index 1315ad2a9..d3fc38e49 100644
--- a/xCAT-server/lib/xcat/plugins/ddns.pm
+++ b/xCAT-server/lib/xcat/plugins/ddns.pm
@@ -975,6 +975,10 @@ sub add_or_delete_records {
         if ($numreqs != 300) { #either no entries at all to begin with or a perfect multiple of 300
             $update->sign_tsig("xcat_key",$ctx->{privkey});
             my $reply = $resolver->send($update);
+            if ($reply->header->rcode ne 'NOERROR') {
+                 xCAT::SvrUtils::sendmsg([1,"Failure encountered updating $zone, error was ".$reply->header->rcode], $callback);
+            }
+            
             # sometimes resolver does not work if the update zone request sent so quick
             sleep 1;
         }
@@ -1020,6 +1024,9 @@ sub find_nameserver_for_dns {
            } else {
                my $reply = $ctx->{resolver}->query($zone,'NS');
                if ($reply)  {
+                   if ($reply->header->rcode ne 'NOERROR') {
+                      xCAT::SvrUtils::sendmsg([1,"Failure encountered querying $zone, error was ".$reply->header->rcode], $callback);
+                    }
                     foreach my $record ($reply->answer) {
                         if ( $record->nsdname =~ /blackhole.*\.iana\.org/) {
                             $ctx->{nsmap}->{$zone} = 0;