From ab013de4e79b4f96e440711189a1c5f155549319 Mon Sep 17 00:00:00 2001
From: Ben Klang <ben@alkaloid.net>
Date: Mon, 20 Mar 2006 02:03:28 +0000
Subject: [PATCH] Applied fix from Adrian Goins (http://www.arces.net) to fix
 TXT records

git-svn-id: https://svn.alkaloid.net/gpl/ldap2dns/trunk@297 06cd67b6-e706-0410-b29e-9de616bca6e9
---
 scripts/axfr2ldap.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/axfr2ldap.pl b/scripts/axfr2ldap.pl
index b1f1d74..ef7c34f 100755
--- a/scripts/axfr2ldap.pl
+++ b/scripts/axfr2ldap.pl
@@ -206,7 +206,7 @@ sub read_zone
 			$attr{'DNScname'} = lc $5;
 			add_attrs(\%attr, $zonename);
 		} elsif ($rr->type eq "CNAME" || $rr->type eq "TXT") {
-			die "Invalid ", $rr->type, " record for ", $rr->name, "  " unless ($rr->string =~ /^([0-9a-zA-Z_.+-]+)\.\s+(\d+)\s+(\w+)\s+(\w+)\s+([0-9a-zA-Z_.+-]+)/);
+			die "Invalid ", $rr->type, " record for ", $rr->name, "  " unless ($rr->string =~ /^([0-9a-zA-Z_.+-]+)\.\s+(\d+)\s+(\w+)\s+(\w+)\s+([0-9a-zA-Z_.+-\s\"=:]+)/); 
 			die "Corrupt ", $rr->type, " record for ", $rr->name, "  " unless ($1 eq $rr->name && $2 eq $rr->ttl && $3 eq $rr->class && $4 eq $rr->type);
 
 			my %attr;