Index: trunk/DNSDB.pm
===================================================================
--- trunk/DNSDB.pm	(revision 638)
+++ trunk/DNSDB.pm	(revision 639)
@@ -5148,7 +5148,11 @@
         next if ($args{rwns} && ($host eq $zone));
 	$val = $rr->nsdname;
+        $warnmsg .= "Suspect record '".$rr->string."' may not be imported correctly: NS records may not be bare IP addresses\n"
+          if $val =~ /^(?:(?:\d+\.){3}\d+|[a-fA-F0-9:]+)$/;
 	$nsflag = 1;
       } elsif ($type eq 'CNAME') {
 	$val = $rr->cname;
+        $warnmsg .= "Suspect record '".$rr->string."' may not be imported correctly: CNAME records may not be bare IP addresses\n"
+          if $val =~ /^(?:(?:\d+\.){3}\d+|[a-fA-F0-9:]+)$/;
       } elsif ($type eq 'SOA') {
 	next if $args{rwsoa};
@@ -5181,4 +5185,6 @@
 	$weight = $rr->weight;
 	$port = $rr->port;
+        $warnmsg .= "Suspect record '".$rr->string."' may not be imported correctly: SRV records may not be bare IP addresses\n"
+          if $val =~ /^(?:(?:\d+\.){3}\d+|[a-fA-F0-9:]+)$/;
       } elsif ($type eq 'KEY') {
 	# we don't actually know what to do with these...