From 6f091ec77fb0b4916d80494e27a879b1bf43ae56 Mon Sep 17 00:00:00 2001
From: Ben Klang <ben@alkaloid.net>
Date: Thu, 8 Dec 2005 06:18:16 +0000
Subject: [PATCH] Added data2ldap.  Tool to import tinydns data file into ldap
 tree. This is the just the beginning, it doesn't even pretend to work yet.

git-svn-id: https://svn.alkaloid.net/gpl/ldap2dns/trunk@134 06cd67b6-e706-0410-b29e-9de616bca6e9
---
 data2ldap.pl | 126 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 126 insertions(+)
 create mode 100644 data2ldap.pl

diff --git a/data2ldap.pl b/data2ldap.pl
new file mode 100644
index 0000000..18cacb5
--- /dev/null
+++ b/data2ldap.pl
@@ -0,0 +1,126 @@
+#!/usr/bin/perl
+# To use this script, your tinydns data file must define dns zones
+# before any records associated with that zone.  For instance, to define the
+# alkaloid.net zone the first record found by this script must either be a
+# "Z" or "." record so that the tree is created in the proper order.  Not
+# following this rule will result in LDAP errors when importing the resulting
+# dataset.  To correct such an error just find all zone definitions and import
+# those first, then add all records.  This script may be extended to do that
+# automatically for you at some point in the future but until that day follow
+# this simple procedure and you shouldn't have any problems.
+use strict;
+use warnings;
+
+my $file = $ARGV[0];
+my $output = $ARGV[1];
+my $basedn = $ARGV[2];
+my $outfh;
+
+if (!defined($file)) {
+    print STDERR "Must specify path to 'data' file to read\n";
+    exit 1;
+}
+
+if (!defined($output) || $file eq '-') {
+    $output = "/dev/stdout";
+}
+open($outfh, ">$output") or die ("Unable to open $output for writing!");
+
+if (!defined($basedn)) {
+    print STDERR "Must specify a base DN as the third argument\n";
+    exit 1;
+}
+
+open(DATA, $file) or die ("Unable to open $file for reading\n");
+LINE: while(<DATA>) {
+    chomp;
+    for ($_) {
+        /^\s*#/ && do {
+            # Found a comment
+            next LINE;
+        };
+
+        /^%/ && do {
+            # Location definition: %code:1.2.3.4
+            my ($loc, $ip) = split /:/;
+            $loc =~ s/^%//;
+
+            print $outfh "dn: dnslocation=$loc,$basedn\n";
+            print $outfh "objectClass: top\n";
+            print $outfh "objectClass: dnsloccodes\n";
+            print $outfh "dnslocation: $loc\n";
+            if (defined($ip)) {
+                print $outfh "dnsipaddr: $ip\n";
+            } else {
+                print $outfh "dnsipaddr: :\n";
+            }
+            print $outfh "\n";
+
+            next LINE;
+        }; # End location definition
+
+        /^Z/ && do {
+            my ($domain, $master, $admin, $serial, $refresh, $retry, $expire,
+                $minimum, $ttl, $timestamp, $loc) = split /:/;
+            $domain =~ s/^Z//;
+
+            print $outfh "dn: cn=$domain,$basedn\n";
+            print $outfh "objectClass: top\n";
+            print $outfh "objectClass: dnszone\n";
+            print $outfh "cn: $domain\n";
+            print $outfh "dnszonename: v-office.biz\n";
+            if (defined($master)) { print $outfh "dnszonemaster: $master\n"; }
+            if (defined($admin)) { print $outfh "dnsadminmailbox: $admin\n"; }
+            if (defined($serial)) { print $outfh "dnsserial: $serial\n"; }
+            if (defined($refresh)) { print $outfh "dnsrefresh: $refresh\n"; }
+            if (defined($retry)) { print $outfh "dnsretry: $retry\n"; }
+            if (defined($expire)) { print $outfh "dnsexpire: $expire\n"; }
+            if (defined($minimum)) { print $outfh "dnsminimum: $minimum\n"; }
+            if (defined($ttl)) { print $outfh "dnsttl: $ttl\n"; }
+            if (defined($timestamp)) { print $outfh "dnstimestamp: $timestamp\n"; }
+            if (defined($loc)) { print $outfh "dnslocation: $loc\n"; }
+            print $outfh "\n";
+        }; # End SOA record
+
+        /^\./ && do {
+            # NS+SOA+A Record
+            my ($fqdn, $ip, $x, $ttl, $timestamp, $loc) = split /:/;
+            $fqdn =~ s/^\.//;
+
+            my $id = "$fqdn-$ip-$x-$ttl-$timestamp-$loc";
+            # To find the domain name, the fqdn must have two words of any
+            # characters with one period somehere in the middle and an optional
+            # trailing period (which is trimmed) just before the end of the line
+            $fqdn =~ /.\.*(.+\..+)\.*$/;
+print STDERR "$1\n";
+            if (!defined($1)) {
+                die ("Unable to find domain name for $fqdn!\n");
+            }
+            my $domain = $1;
+            print $outfh "dn: cn=$domain,$basedn\n";
+            print $outfh "objectClass: top\n";
+            print $outfh "objectClass: dnszone\n";
+            print $outfh "cn: $domain\n";
+            print $outfh "dnszonename: v-office.biz\n";
+            if (defined($ttl)) { print $outfh "dnsttl: $ttl\n"; }
+            if (defined($timestamp)) { print $outfh "dnstimestamp: $timestamp\n"; }
+            if (defined($loc)) { print $outfh "dnslocation: $loc\n"; }
+
+
+            print $outfh "dn: cn=$id,cn=$domain,$basedn\n";
+            print $outfh "objectClass: top\n";
+            print $outfh "objectClass: dnszone\n";
+            print $outfh "objectClass: dnsrrset\n";
+            print $outfh "cn: $id\n";
+            print $outfh "dnstype: ns\n";
+            if (index($x, /\./) > -1) {
+                print $outfh "dnsdomainname: $x.\n";
+            } else {
+                print $outfh "dnsdomainname: $x.ns.$fqdn.\n";
+            }
+            if (defined($ip)) { print $outfh "dnscipaddr: $ip\n"; }
+            print $outfh "\n";
+            next LINE;
+        };
+    } # End for($_) block
+} # End LINE while(<DATA>)