ispman/lib dns.bind8.lib,1.22,1.23
Joerg Delker <[email protected]>
| Newsgroups | gmane.comp.isp.ispman.cvs |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/ispman/ispman/lib
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv1806/lib
Modified Files:
dns.bind8.lib
Log Message:
added TXT record support
Index: dns.bind8.lib
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/dns.bind8.lib,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- dns.bind8.lib 6 Jun 2006 11:08:34 -0000 1.22
+++ dns.bind8.lib 6 Jun 2006 22:15:32 -0000 1.23
@@ -253,6 +253,21 @@
"\n";
}
+ # print TXT RECORDS
+ print ZONE "\n; TXT RECORDS\n";
+ my $txtrecords = $ispman->getDNStXTRecords($domain);
+ for (@$txtrecords) {
+ print ZONE join(
+ "\t",
+ (
+ $_->{'host'}, ( $_->{'ttl'} ) ? $_->{'ttl'} : "\t",
+ "IN", "TXT", $_->{'txt'}
+ )
+ ),
+ "\n";
+ }
+
+ # print CatchALL CNAME
if ( $ispman->getConf('catchAllCNAME')
&& $ispman->getConf('catchAllCNAME') ne "none" )
{