Mirrors/ldap2dns
1
0
Fork 0
mirror of https://github.com/bklang/ldap2dns.git synced 2025-10-27 14:24:15 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix trouble with '.' records in data. Thanks to Fleischmann Bonaventura.

Browse Source 
git-svn-id: https://svn.alkaloid.net/gpl/ldap2dns/trunk@350 06cd67b6-e706-0410-b29e-9de616bca6e9
This commit is contained in:
Ben Klang
2006-07-08 22:35:41 +00:00
parent 80868c2b01
commit 930a669e2f
1 changed files with 24 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
scripts/data2ldif.pl
View File

@@ -52,7 +52,9 @@ $basedn =~ /^ou=([^,]+)/;
my $baserdn = $1; my $baserdn = $1;
if (!$baserdn) { if (!$baserdn) {
die("Unable to determine branch node from supplied DN"); print STDERR "Unable to determine branch node for DNS data from supplied DN\n";
print STDERR "Put an \"ou=foo\" branch in the DN\n";
die;
} }
# Create the base DN for DNS entries # Create the base DN for DNS entries
@@ -140,14 +142,14 @@ LINE: while(<DATA>) {
my ($fqdn, $ip, $x, $ttl, $timestamp, $loc) = split /:/; my ($fqdn, $ip, $x, $ttl, $timestamp, $loc) = split /:/;
$fqdn =~ s/^\.//; $fqdn =~ s/^\.//;
# To find the domain name, the fqdn must have two words of any if (!length($x)) {
# characters with one period somehere in the middle and an optional print STDERR "Missing hostname in NS/A/SOA record: $_\n";
# trailing period (which is trimmed) just before the end of the line $errorrecs++;
$fqdn =~ /^\.*([A-Za-z0-9-]+\.[A-Za-z0-9-]+)\.*$/; print $rejfh "$_\n";
if (!defined($1)) { next LINE;
die ("Unable to find domain name for $fqdn!\n");
} }
my $domain = getdomain($fqdn);
my $domain = $fqdn;
if (defined($domains{$domain})) { if (defined($domains{$domain})) {
# We've already generated an SOA for this domain # We've already generated an SOA for this domain
next LINE; next LINE;
@@ -157,7 +159,13 @@ LINE: while(<DATA>) {
print $outfh "objectClass: dnszone\n"; print $outfh "objectClass: dnszone\n";
print $outfh "cn: $domain\n"; print $outfh "cn: $domain\n";
print $outfh "dnszonename: $domain\n"; print $outfh "dnszonename: $domain\n";
print $outfh "dnszonemaster: $x\n"; print $outfh "dnszonemaster: $x";
# If $x contains a period treat it as fully qualified
if ($x =~ /\./) {
print $outfh ".";
}
print $outfh "\n";
print $outfh "dnsadminmailbox: hostmaster.$domain\n"; print $outfh "dnsadminmailbox: hostmaster.$domain\n";
print $outfh "dnsserial: $newserial\n"; print $outfh "dnsserial: $newserial\n";
if (defined($ttl)) { print $outfh "dnsttl: $ttl\n"; } if (defined($ttl)) { print $outfh "dnsttl: $ttl\n"; }
@@ -205,7 +213,12 @@ LINE: while(<DATA>) {
print $outfh "cn: $id\n"; print $outfh "cn: $id\n";
print $outfh "dnstype: ns\n"; print $outfh "dnstype: ns\n";
print $outfh "dnsdomainname: $fqdn.\n"; print $outfh "dnsdomainname: $fqdn.\n";
if ($x) { print $outfh "dnscname: $x.\n"; } if ($x) { print $outfh "dnscname: $x"; }
# If $x contains a period treat it as fully qualified
if ($x =~ /\./) {
print $outfh ".";
}
print $outfh "\n";
if ($ip) { print $outfh "dnsipaddr: $ip\n"; } if ($ip) { print $outfh "dnsipaddr: $ip\n"; }
if ($ttl) { print $outfh "dnsttl: $ttl\n"; } if ($ttl) { print $outfh "dnsttl: $ttl\n"; }
if ($timestamp) { print $outfh "dnstimestamp: $timestamp\n"; } if ($timestamp) { print $outfh "dnstimestamp: $timestamp\n"; }
@@ -426,6 +439,7 @@ exit 0;
sub getdomain sub getdomain
{ {
my $fqdn = shift(@_); my $fqdn = shift(@_);
# strip off characters up to the first '.' leaving the domain
$fqdn =~ /[^\.]*\.(.*)/; $fqdn =~ /[^\.]*\.(.*)/;
return $1; return $1;
} }