mirror of
https://github.com/bklang/ldap2dns.git
synced 2025-10-31 08:03:12 -04:00
* Fixed off-by-one when null-terminating password strings which could have led
to LDAP connection errors * Only print startup message when in daemon mode * Fix regex when computing the domain name of a FQDN (now properly supports FQDNs more than two levels deep) * Create baseDN when converting data to ldif git-svn-id: https://svn.alkaloid.net/gpl/ldap2dns/trunk@314 06cd67b6-e706-0410-b29e-9de616bca6e9
This commit is contained in:
Ben Klang
@@ -339,7 +339,7 @@ static int parse_options()
|
|||||||
exit(0);
|
exit(0);
|
||||||
case 'w':
|
case 'w':
|
||||||
strncpy(options.password, optarg, sizeof(options.password));
|
strncpy(options.password, optarg, sizeof(options.password));
|
||||||
options.password[ sizeof( options.password ) ] = '\0';
|
options.password[ sizeof( options.password ) -1 ] = '\0';
|
||||||
memset(optarg, 'x', strlen(options.password));
|
memset(optarg, 'x', strlen(options.password));
|
||||||
break;
|
break;
|
||||||
case 'e':
|
case 'e':
|
||||||
@@ -1030,8 +1030,6 @@ int main(int argc, char** argv)
|
|||||||
main_argv = argv;
|
main_argv = argv;
|
||||||
parse_options();
|
parse_options();
|
||||||
|
|
||||||
fprintf(stdout, "ldap2dns v%s starting up", VERSION);
|
|
||||||
|
|
||||||
/* Initialization complete. If we're in daemon mode, fork and continue */
|
/* Initialization complete. If we're in daemon mode, fork and continue */
|
||||||
if (options.is_daemon) {
|
if (options.is_daemon) {
|
||||||
if (options.is_daemon==1 && fork()) {
|
if (options.is_daemon==1 && fork()) {
|
||||||
@@ -1039,6 +1037,8 @@ int main(int argc, char** argv)
|
|||||||
fprintf(stdout, "Sending process to background.");
|
fprintf(stdout, "Sending process to background.");
|
||||||
exit(0);
|
exit(0);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
fprintf(stdout, "ldap2dns v%s starting up", VERSION);
|
||||||
/* lowest priority */
|
/* lowest priority */
|
||||||
nice(19);
|
nice(19);
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,433 +0,0 @@
|
|||||||
#!/usr/bin/perl
|
|
||||||
# $Id$
|
|
||||||
use strict;
|
|
||||||
use warnings;
|
|
||||||
use POSIX qw(strftime);
|
|
||||||
|
|
||||||
my $file = $ARGV[0];
|
|
||||||
my $output = $ARGV[1];
|
|
||||||
my $rejout;
|
|
||||||
my $basedn = $ARGV[2];
|
|
||||||
my %domains; # Keep track of which domains for which we have
|
|
||||||
# already written an SOA
|
|
||||||
my $outfh;
|
|
||||||
my $rejfh;
|
|
||||||
my $newserial = strftime("%Y%m%d01", localtime);
|
|
||||||
my $errorrecs = 0;
|
|
||||||
|
|
||||||
if (!defined($file)) {
|
|
||||||
print STDERR "\n";
|
|
||||||
print STDERR " Must specify path to 'data' file to read\n";
|
|
||||||
print STDERR "\n";
|
|
||||||
usage();
|
|
||||||
die("Should never get here\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
if (!defined($output)) {
|
|
||||||
print STDERR "\n";
|
|
||||||
print STDERR " Must specify path to output LDIF data\n";
|
|
||||||
print STDERR "\n";
|
|
||||||
usage();
|
|
||||||
die("Should never get here\n");
|
|
||||||
}
|
|
||||||
if (!defined($basedn)) {
|
|
||||||
print STDERR "\n";
|
|
||||||
print STDERR " Must specify a base DN as the third argument\n";
|
|
||||||
print STDERR "\n";
|
|
||||||
usage();
|
|
||||||
die("Should never get here\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($output eq '-') {
|
|
||||||
$output = "/dev/stdout";
|
|
||||||
# Rejects are already printed to STDERR by default. No need to duplicate
|
|
||||||
$rejout = "/dev/null";
|
|
||||||
} else {
|
|
||||||
$rejout = "$output.rej";
|
|
||||||
}
|
|
||||||
open($outfh, ">$output") or die ("Unable to open $output for writing!");
|
|
||||||
open($rejfh, ">$rejout") or die ("Unable to open $rejout for writing");
|
|
||||||
|
|
||||||
# We run in two iterations. The first attempts to enumerate all zones
|
|
||||||
# for which we have records and create SOAs in LDAP. The reason for this is
|
|
||||||
# zones are used as a container for all records so they must be in place before
|
|
||||||
# we start to add any zone data. While it takes longer, this mechanism ensures
|
|
||||||
# the proper sequence.
|
|
||||||
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 {
|
|
||||||
# Found a disabled A record
|
|
||||||
print STDERR "Ignoring disabled record: $_\n";
|
|
||||||
$errorrecs++;
|
|
||||||
print $rejfh "$_\n";
|
|
||||||
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) && $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: $domain\n";
|
|
||||||
print $outfh "dnszonemaster: $master\n";
|
|
||||||
print $outfh "dnsadminmailbox: $admin\n";
|
|
||||||
if ($serial) {
|
|
||||||
print $outfh "dnsserial: $serial\n";
|
|
||||||
} else {
|
|
||||||
print $outfh "dnsserial: $newserial\n";
|
|
||||||
}
|
|
||||||
if ($refresh) { print $outfh "dnsrefresh: $refresh\n"; }
|
|
||||||
if ($retry) { print $outfh "dnsretry: $retry\n"; }
|
|
||||||
if ($expire) { print $outfh "dnsexpire: $expire\n"; }
|
|
||||||
if ($minimum) { print $outfh "dnsminimum: $minimum\n"; }
|
|
||||||
if ($ttl) { print $outfh "dnsttl: $ttl\n"; }
|
|
||||||
if ($timestamp) { print $outfh "dnstimestamp: $timestamp\n"; }
|
|
||||||
if ($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/^\.//;
|
|
||||||
|
|
||||||
# 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 =~ /^\.*([A-Za-z0-9-]+\.[A-Za-z0-9-]+)\.*$/;
|
|
||||||
if (!defined($1)) {
|
|
||||||
die ("Unable to find domain name for $fqdn!\n");
|
|
||||||
}
|
|
||||||
my $domain = getdomain($fqdn);
|
|
||||||
if (defined($domains{$domain})) {
|
|
||||||
# We've already generated an SOA for this domain
|
|
||||||
next LINE;
|
|
||||||
}
|
|
||||||
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: $domain\n";
|
|
||||||
print $outfh "dnszonemaster: $x\n";
|
|
||||||
print $outfh "dnsadminmailbox: hostmaster.$domain\n";
|
|
||||||
print $outfh "dnsserial: $newserial\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";
|
|
||||||
$domains{$domain} = 1;
|
|
||||||
next LINE;
|
|
||||||
};
|
|
||||||
} # End for($_) block
|
|
||||||
} # End LINE while(<DATA>)
|
|
||||||
|
|
||||||
# Done with zone SOAs, being with resource records
|
|
||||||
|
|
||||||
seek(DATA, 0, 0) or die ("Unable to seek $file for reading\n");
|
|
||||||
LINE: while(<DATA>) {
|
|
||||||
chomp;
|
|
||||||
for ($_) {
|
|
||||||
/^\s*#/ && do {
|
|
||||||
# Found a comment
|
|
||||||
next LINE;
|
|
||||||
};
|
|
||||||
|
|
||||||
/^-/ && do {
|
|
||||||
# Found a disabled. User was warned above
|
|
||||||
next LINE;
|
|
||||||
};
|
|
||||||
|
|
||||||
/^\./ && do {
|
|
||||||
# Found NS + A + SOA (SOA handled above)
|
|
||||||
my ($fqdn, $ip, $x, $ttl, $timestamp, $loc) = split /:/;
|
|
||||||
$fqdn =~ s/^\.//;
|
|
||||||
if (!defined($ip)) { $ip = ""; }
|
|
||||||
if (!defined($x)) { $x = ""; }
|
|
||||||
if (!defined($ttl)) { $ttl = ""; }
|
|
||||||
if (!defined($timestamp)) { $timestamp = ""; }
|
|
||||||
if (!defined($loc)) { $loc = ""; }
|
|
||||||
my $id = "NSA-$fqdn-$ip-$x-$ttl-$timestamp-$loc";
|
|
||||||
my $domain = getdomain($fqdn);
|
|
||||||
|
|
||||||
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";
|
|
||||||
print $outfh "dnsdomainname: $fqdn.\n";
|
|
||||||
if ($x) { print $outfh "dnscname: $x.\n"; }
|
|
||||||
if ($ip) { print $outfh "dnsipaddr: $ip\n"; }
|
|
||||||
if ($ttl) { print $outfh "dnsttl: $ttl\n"; }
|
|
||||||
if ($timestamp) { print $outfh "dnstimestamp: $timestamp\n"; }
|
|
||||||
if ($loc) { print $outfh "dnsloc: $loc\n"; }
|
|
||||||
print $outfh "\n";
|
|
||||||
next LINE;
|
|
||||||
};
|
|
||||||
|
|
||||||
/^&/ && do {
|
|
||||||
# Found NS
|
|
||||||
my ($fqdn, $ip, $x, $ttl, $timestamp, $loc) = split /:/;
|
|
||||||
$fqdn =~ s/^&//;
|
|
||||||
if (!defined($ip)) { $ip = ""; }
|
|
||||||
if (!defined($x)) { $x = ""; }
|
|
||||||
if (!defined($ttl)) { $ttl = ""; }
|
|
||||||
if (!defined($timestamp)) { $timestamp = ""; }
|
|
||||||
if (!defined($loc)) { $loc = ""; }
|
|
||||||
my $id = "NS-$fqdn-$ip-$x-$ttl-$timestamp-$loc";
|
|
||||||
my $domain = getdomain($fqdn);
|
|
||||||
|
|
||||||
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";
|
|
||||||
print $outfh "dnsdomainname: $fqdn.\n";
|
|
||||||
if ($ip) { print $outfh "dnsipaddr: $ip\n"; }
|
|
||||||
if ($x) { print $outfh "dnscname: $x.\n"; }
|
|
||||||
if ($ttl) { print $outfh "dnsttl: $ttl\n"; }
|
|
||||||
if ($timestamp) { print $outfh "dnstimestamp: $timestamp\n"; }
|
|
||||||
if ($loc) { print $outfh "dnsloc: $loc\n"; }
|
|
||||||
print $outfh "\n";
|
|
||||||
next LINE;
|
|
||||||
};
|
|
||||||
|
|
||||||
/^=/ && do {
|
|
||||||
# Found an A + PTR
|
|
||||||
my ($fqdn, $ip, $ttl, $timestamp, $loc) = split /:/;
|
|
||||||
$fqdn =~ s/^=//;
|
|
||||||
if (!defined($ip)) { $ip = ""; }
|
|
||||||
if (!defined($ttl)) { $ttl = ""; }
|
|
||||||
if (!defined($timestamp)) { $timestamp = ""; }
|
|
||||||
if (!defined($loc)) { $loc = ""; }
|
|
||||||
my $id = "APTR-$fqdn-$ip-$ttl-$timestamp-$loc";
|
|
||||||
my $domain = getdomain($fqdn);
|
|
||||||
|
|
||||||
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: a\n";
|
|
||||||
print $outfh "dnsdomainname: $fqdn.\n";
|
|
||||||
if ($ip) { print $outfh "dnscipaddr: $ip\n"; }
|
|
||||||
if ($ttl) { print $outfh "dnsttl: $ttl\n"; }
|
|
||||||
if ($timestamp) { print $outfh "dnstimestamp: $timestamp\n"; }
|
|
||||||
if ($loc) { print $outfh "dnsloc: $loc\n"; }
|
|
||||||
print $outfh "\n";
|
|
||||||
next LINE;
|
|
||||||
};
|
|
||||||
|
|
||||||
/^\+/ && do {
|
|
||||||
# Found an A
|
|
||||||
my ($fqdn, $ip, $ttl, $timestamp, $loc) = split /:/;
|
|
||||||
$fqdn =~ s/^\+//;
|
|
||||||
if (!defined($ip)) { $ip = ""; }
|
|
||||||
if (!defined($ttl)) { $ttl = ""; }
|
|
||||||
if (!defined($timestamp)) { $timestamp = ""; }
|
|
||||||
if (!defined($loc)) { $loc = ""; }
|
|
||||||
my $id = "A-$fqdn-$ip-$ttl-$timestamp-$loc";
|
|
||||||
my $domain = getdomain($fqdn);
|
|
||||||
|
|
||||||
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: a\n";
|
|
||||||
print $outfh "dnsdomainname: $fqdn.\n";
|
|
||||||
if ($ip) { print $outfh "dnsipaddr: $ip\n"; }
|
|
||||||
if ($ttl) { print $outfh "dnsttl: $ttl\n"; }
|
|
||||||
if ($timestamp) { print $outfh "dnstimestamp: $timestamp\n"; }
|
|
||||||
if ($loc) { print $outfh "dnsloc: $loc\n"; }
|
|
||||||
print $outfh "\n";
|
|
||||||
next LINE;
|
|
||||||
};
|
|
||||||
|
|
||||||
/^@/ && do {
|
|
||||||
# Found an MX
|
|
||||||
my ($fqdn, $ip, $x, $dist, $ttl, $timestamp, $loc) = split /:/;
|
|
||||||
$fqdn =~ s/^@//;
|
|
||||||
if (!defined($ip)) { $ip = ""; }
|
|
||||||
if (!defined($x)) { $x = ""; }
|
|
||||||
if (!defined($dist)) { $dist = ""; }
|
|
||||||
if (!defined($ttl)) { $ttl = ""; }
|
|
||||||
if (!defined($timestamp)) { $timestamp = ""; }
|
|
||||||
if (!defined($loc)) { $loc = ""; }
|
|
||||||
my $id = "MX-$fqdn-$ip-$x-$dist-$ttl-$timestamp-$loc";
|
|
||||||
my $domain = getdomain($fqdn);
|
|
||||||
|
|
||||||
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: mx\n";
|
|
||||||
print $outfh "dnsdomainname: $fqdn.\n";
|
|
||||||
if ($ip) { print $outfh "dnsipaddr: $ip\n" };
|
|
||||||
if ($x) { print $outfh "dnscname: $x.\n"; }
|
|
||||||
if ($dist) { print $outfh "dnspreference: $dist\n"; }
|
|
||||||
if ($ttl) { print $outfh "dnsttl: $ttl\n"; }
|
|
||||||
if ($timestamp) { print $outfh "dnstimestamp: $timestamp\n"; }
|
|
||||||
if ($loc) { print $outfh "dnsloc: $loc\n"; }
|
|
||||||
print $outfh "\n";
|
|
||||||
next LINE;
|
|
||||||
};
|
|
||||||
|
|
||||||
/^'/ && do {
|
|
||||||
# Currently unsupported
|
|
||||||
print STDERR "Ignoring unsupported TXT record: $_\n";
|
|
||||||
$errorrecs++;
|
|
||||||
print $rejfh "$_\n";
|
|
||||||
next LINE;
|
|
||||||
# Found an MX
|
|
||||||
my ($fqdn, $s, $ttl, $timestamp, $loc) = split /:/;
|
|
||||||
$fqdn =~ s/^'//;
|
|
||||||
if (!defined($ttl)) { $ttl = ""; }
|
|
||||||
if (!defined($timestamp)) { $timestamp = ""; }
|
|
||||||
if (!defined($loc)) { $loc = ""; }
|
|
||||||
my $id = "TXT-$fqdn-$ttl-$timestamp-$loc";
|
|
||||||
my $domain = getdomain($fqdn);
|
|
||||||
|
|
||||||
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: txt\n";
|
|
||||||
print $outfh "dnsdomainname: $fqdn.\n";
|
|
||||||
# FIXME Add TXT support to ldap2dns
|
|
||||||
# print $outfh "dnstxt: $s\n";
|
|
||||||
if ($ttl) { print $outfh "dnsttl: $ttl\n"; }
|
|
||||||
if ($timestamp) { print $outfh "dnstimestamp: $timestamp\n"; }
|
|
||||||
if ($loc) { print $outfh "dnsloc: $loc\n"; }
|
|
||||||
print $outfh "\n";
|
|
||||||
next LINE;
|
|
||||||
};
|
|
||||||
|
|
||||||
/^\^/ && do {
|
|
||||||
# Found an PTR
|
|
||||||
my ($fqdn, $ptr, $ttl, $timestamp, $loc) = split /:/;
|
|
||||||
$fqdn =~ s/^\^//;
|
|
||||||
if (!defined($ttl)) { $ttl = ""; }
|
|
||||||
if (!defined($timestamp)) { $timestamp = ""; }
|
|
||||||
if (!defined($loc)) { $loc = ""; }
|
|
||||||
my $id = "$fqdn-$ptr-$ttl-$timestamp-$loc";
|
|
||||||
my $domain = getdomain($fqdn);
|
|
||||||
|
|
||||||
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: ptr\n";
|
|
||||||
print $outfh "dnscname: $fqdn.\n";
|
|
||||||
print $outfh "dnsipaddr: $ptr\n";
|
|
||||||
if ($ttl) { print $outfh "dnsttl: $ttl\n"; }
|
|
||||||
if ($timestamp) { print $outfh "dnstimestamp: $timestamp\n"; }
|
|
||||||
if ($loc) { print $outfh "dnsloc: $loc\n"; }
|
|
||||||
print $outfh "\n";
|
|
||||||
next LINE;
|
|
||||||
};
|
|
||||||
|
|
||||||
/^C/ && do {
|
|
||||||
# Found a CNAME
|
|
||||||
my ($fqdn, $p, $ttl, $timestamp, $loc) = split /:/;
|
|
||||||
$fqdn =~ s/^C//;
|
|
||||||
if (!defined($ttl)) { $ttl = ""; }
|
|
||||||
if (!defined($timestamp)) { $timestamp = ""; }
|
|
||||||
if (!defined($loc)) { $loc = ""; }
|
|
||||||
my $id = "CNAME-$fqdn-$p-$ttl-$timestamp-$loc";
|
|
||||||
my $domain = getdomain($fqdn);
|
|
||||||
|
|
||||||
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: cname\n";
|
|
||||||
print $outfh "dnsdomainname: $fqdn.\n";
|
|
||||||
print $outfh "dnscname: $p.\n";
|
|
||||||
if ($ttl) { print $outfh "dnsttl: $ttl\n"; }
|
|
||||||
if ($timestamp) { print $outfh "dnstimestamp: $timestamp\n"; }
|
|
||||||
if ($loc) { print $outfh "dnsloc: $loc\n"; }
|
|
||||||
print $outfh "\n";
|
|
||||||
next LINE;
|
|
||||||
};
|
|
||||||
|
|
||||||
/^:/ && do {
|
|
||||||
# Found unsupported "unknown record"
|
|
||||||
print STDERR "Ignoring \"unknown record\": $_\n";
|
|
||||||
$errorrecs++;
|
|
||||||
print $rejfh "$_\n";
|
|
||||||
next LINE;
|
|
||||||
}
|
|
||||||
} # End for($_) block
|
|
||||||
} # End LINE while(<DATA>)
|
|
||||||
print STDERR "\n";
|
|
||||||
if ($errorrecs) {
|
|
||||||
print STDERR "$errorrecs records were found containing errors. Please inspect $rejout\n";
|
|
||||||
print STDERR "for details. DNS TXT and TinyDNS \"unknown record\" formats are not supported\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
print STDERR "Completed successfully\n";
|
|
||||||
exit 0;
|
|
||||||
|
|
||||||
sub getdomain
|
|
||||||
{
|
|
||||||
my $fqdn = shift(@_);
|
|
||||||
$fqdn =~ /\.*([A-Za-z0-9\-]+\.[A-Za-z0-9\-]+)\.*$/;
|
|
||||||
return $1;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub usage
|
|
||||||
{
|
|
||||||
print STDERR "Usage: $0 <input> <output> <basedn>\n";
|
|
||||||
print STDERR "\n";
|
|
||||||
print STDERR "This script takes a standard TinyDNS \"data\" file as input\n";
|
|
||||||
print STDERR "and generates an LDIF format output suitable for use with\n";
|
|
||||||
print STDERR "this \"ldap2dns\" package. If any unsupported or otherwise erroring records\n";
|
|
||||||
print STDERR "are found in the input, they are printed to both STDERR as well as\n";
|
|
||||||
print STDERR "\"<output>.rej\" , Currently unsupported are DNS TXT and the\n";
|
|
||||||
print STDERR "TinyDNS \"unknown record\" format. There is planned support for\n";
|
|
||||||
print STDERR "DNS TXT and DNS SRV (in \"unknown record\" format) in the near future\n";
|
|
||||||
print STDERR "\n";
|
|
||||||
print STDERR "<output> may be either a filename or \"-\" for STDOUT. If STDOUT is used\n";
|
|
||||||
print STDERR "as the output then no <output>.rej file is created and error records\n";
|
|
||||||
print STDERR "are only printed to STDERR\n";
|
|
||||||
print STDERR "\n";
|
|
||||||
print STDERR "Example: $0 data data.ldif ou=DNS,dc=example,dc=com\n";
|
|
||||||
print STDERR "\n";
|
|
||||||
exit 1;
|
|
||||||
}
|
|
||||||
@@ -48,6 +48,25 @@ if ($output eq '-') {
|
|||||||
open($outfh, ">$output") or die ("Unable to open $output for writing!");
|
open($outfh, ">$output") or die ("Unable to open $output for writing!");
|
||||||
open($rejfh, ">$rejout") or die ("Unable to open $rejout for writing");
|
open($rejfh, ">$rejout") or die ("Unable to open $rejout for writing");
|
||||||
|
|
||||||
|
$basedn =~ /^ou=([^,]+)/;
|
||||||
|
my $baserdn = $1;
|
||||||
|
|
||||||
|
if (!$baserdn) {
|
||||||
|
die("Unable to determine branch node from supplied DN");
|
||||||
|
}
|
||||||
|
|
||||||
|
# Create the base DN for DNS entries
|
||||||
|
print $outfh "
|
||||||
|
# Generated by data2ldif.pl, part of the ldap2dns package
|
||||||
|
# (C) 2005-2006 Ben Klang <ben\@alkaloid.net>
|
||||||
|
# http://projects.alkaloid.net
|
||||||
|
dn: $basedn
|
||||||
|
objectClass: top
|
||||||
|
objectClass: organizationalUnit
|
||||||
|
ou: $baserdn
|
||||||
|
|
||||||
|
";
|
||||||
|
|
||||||
# We run in two iterations. The first attempts to enumerate all zones
|
# We run in two iterations. The first attempts to enumerate all zones
|
||||||
# for which we have records and create SOAs in LDAP. The reason for this is
|
# for which we have records and create SOAs in LDAP. The reason for this is
|
||||||
# zones are used as a container for all records so they must be in place before
|
# zones are used as a container for all records so they must be in place before
|
||||||
@@ -205,7 +224,7 @@ LINE: while(<DATA>) {
|
|||||||
if (!defined($timestamp)) { $timestamp = ""; }
|
if (!defined($timestamp)) { $timestamp = ""; }
|
||||||
if (!defined($loc)) { $loc = ""; }
|
if (!defined($loc)) { $loc = ""; }
|
||||||
my $id = "NS-$fqdn-$ip-$x-$ttl-$timestamp-$loc";
|
my $id = "NS-$fqdn-$ip-$x-$ttl-$timestamp-$loc";
|
||||||
my $domain = getdomain($fqdn);
|
my $domain = $fqdn;
|
||||||
|
|
||||||
print $outfh "dn: cn=$id,cn=$domain,$basedn\n";
|
print $outfh "dn: cn=$id,cn=$domain,$basedn\n";
|
||||||
print $outfh "objectClass: top\n";
|
print $outfh "objectClass: top\n";
|
||||||
@@ -407,7 +426,7 @@ exit 0;
|
|||||||
sub getdomain
|
sub getdomain
|
||||||
{
|
{
|
||||||
my $fqdn = shift(@_);
|
my $fqdn = shift(@_);
|
||||||
$fqdn =~ /\.*([A-Za-z0-9\-]+\.[A-Za-z0-9\-]+)\.*$/;
|
$fqdn =~ /[^\.]*\.(.*)/;
|
||||||
return $1;
|
return $1;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user