Index: trunk/dns.cgi
===================================================================
--- trunk/dns.cgi	(revision 33)
+++ trunk/dns.cgi	(revision 34)
@@ -615,15 +615,14 @@
 my $rnum = 0;
     foreach my $domain (@domlist) {
+      my %row;
+      my ($code,$msg) = importAXFR($dbh, $webvar{ifrom}, $domain, $webvar{group},
+	$webvar{domstatus}, $webvar{rwsoa}, $webvar{rwns});
+  $row{domok} = 1 if $code eq 'OK';
+  $row{domwarn} = $msg if $code eq 'WARN';
+  $row{domerr} = $msg if $code eq 'FAIL';
+push @debugbits, "$domain: $code<br>\n";
       # do stuff!  DNSDB::importAXFR($webvar{ifrom}, $webvar{rwsoa}, $webvar{rwns}, $domain, <flags>)
-      my %row;
       $row{domain} = $domain;
 #      $row{row} = $rnum++;
-      if ($domain eq 'deepnet.cx' || $domain eq 'wh-int') {
-	$row{domok} = 0;  $row{domerr} = "foo!  hahahaha!";
-      } elsif ($domain eq 'waslokido.com') {
-	$row{domwarn} = 0;  $row{domwarn} = "foo!  hahahaha!";
-      } else {
-	$row{domok} = 1;
-      }
       push @results, \%row;
     }