Changeset 847

Timestamp:

09/01/22 12:24:43 (20 months ago)

Author:

Kris Deugau

Message:

/trunk

Add bare skeleton of BIND export

Location:

trunk

Files:

• DNSDB (added)
• DNSDB.pm (modified) (2 diffs)
• DNSDB/ExportBIND.pm (added)

trunk/DNSDB.pm

@@ -6276 +6276 @@
   my $target = shift;
 
+  if (!$target) {
+    $errstr = "Can't export nothing";
+    return;
+  }
+
   if ($target eq 'tiny') {
     eval {
@@ -6285 +6290 @@
     }
   }
+
+  # BIND and NSD (and possibly others) could be merged, or partially
+  # merged, since pretty much everyone uses BIND-style zone files
+  elsif ($target eq 'bind') {
+    require DNSDB::ExportBIND;
+    eval {
+      # there are probably better ways to structure this
+      DNSDB::ExportBIND::export($self, @_);
+    };
+    if ($@) {
+      $errstr = $@;
+      return undef;
+    }
+  }
+
 # elsif ($target eq 'foo') {
 #   __export_foo(@_);