Changeset 777 for trunk

Timestamp:

07/31/19 17:02:44 (5 years ago)

Author:

Kris Deugau

Message:

/trunk

Import or generate SOA serial numbers in tiny-import.pl. See #24.

File:

• trunk/tiny-import.pl (modified) (3 diffs)

trunk/tiny-import.pl

@@ -569 +569 @@
       $loc = '' if !$loc;
       $loc = '' if $loc =~ /^:+$/;
+# Default to UNIX epoch for zones with no existing serial value
+      $serial = scalar(time) if !$serial;
 
       my $stampactive = 'n';
@@ -588 +590 @@
       if ($zone =~ /\.arpa$/) {
         ($code,$msg) = DNSDB::_zone2cidr($zone);
-        $dbh->do("INSERT INTO revzones (revnet,group_id,status,default_location) VALUES (?,?,1,?)",
-                undef, ($msg, $importcfg{group}, $loc));
+        $dbh->do("INSERT INTO revzones (revnet,group_id,status,default_location,zserial) VALUES (?,?,1,?,?)",
+                undef, ($msg, $importcfg{group}, $loc, $serial));
         my ($rdns) = $dbh->selectrow_array("SELECT currval('revzones_rdns_id_seq')");
         my $newttl;
@@ -597 +599 @@
                 $loc, $stamp, $expires, $stampactive);
       } else {
-        $dbh->do("INSERT INTO domains (domain,group_id,status,default_location) VALUES (?,?,1,?)",
-                undef, ($zone, $importcfg{group}, $loc));
+        $dbh->do("INSERT INTO domains (domain,group_id,status,default_location,zserial) VALUES (?,?,1,?,?)",
+                undef, ($zone, $importcfg{group}, $loc, $serial));
         my ($domid) = $dbh->selectrow_array("SELECT currval('domains_domain_id_seq')");
         my $newttl;