Changeset 778 for trunk

Timestamp:

08/01/19 11:22:19 (5 years ago)

Author:

Kris Deugau

Message:

/trunk

Change up the SOA lookup in importAXFR() for compatibility with older Net::DNS versions

File:

• trunk/DNSDB.pm (modified) (1 diff)

trunk/DNSDB.pm

@@ -5660 +5660 @@
     my $res = Net::DNS::Resolver->new;
     $res->nameservers($ifrom);
-    my ($origsoa) = rr($res, $zone, 'SOA');
-    my $ser = $origsoa->{serial};
+    my $soaq = $res->query($zone, "SOA");
+    die "Error retrieving SOA for $zone: ".$res->errorstring."\n" if !$soaq;
+    my $ser = ($soaq->answer)[0]->{serial}
     if ($args{rwsoa}) {
       if (!$args{keepserial}) {