ispman/bin/functions dnsset.functions.pl, 1.7, 1.8 dnsshow.functions.pl, 1.3, 1.4

Update of /cvsroot/ispman/ispman/bin/functions
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv1806/bin/functions

Modified Files:
	dnsset.functions.pl dnsshow.functions.pl 
Log Message:
added TXT record support

Index: dnsshow.functions.pl
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/functions/dnsshow.functions.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- dnsshow.functions.pl	30 May 2004 23:35:33 -0000	1.3
+++ dnsshow.functions.pl	6 Jun 2006 22:15:31 -0000	1.4
@@ -40,6 +40,15 @@
     }
 }
 
+sub show_txt {
+    my $domain = shift;
+    my $txtrecords = $ispman->getDNStXTRecords( $domain, @ARGV );
+    for (@$txtrecords) {
+        print join "\t", ( $_->{'host'}, "IN", "TXT", $_->{'host'} );
+        print "\n";
+    }
+}
+
 sub show_soa {
     my $domain = shift;
     my $soa    = $ispman->getSOA($domain);
@@ -63,6 +72,8 @@
     print "\n\n";
     &show_a(@_);
     print "\n\n";
+    &show_txt(@_);
+    print "\n\n";
     &show_cname(@_);
 }
 

Index: dnsset.functions.pl
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/functions/dnsset.functions.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- dnsset.functions.pl	6 Jun 2006 09:47:08 -0000	1.7
+++ dnsset.functions.pl	6 Jun 2006 22:15:31 -0000	1.8
@@ -33,6 +33,11 @@
     #dns set cname alias host
 }
 
+sub set_txt {
+    print "$opts{'d'}: Adding TXT record @ARGV \n" if defined $opts{'v'};
+    $ispman->newDNSRecord( $opts{'d'}, "tXTRecord", @ARGV );
+}
+
 sub set_soa {
     my $soa;
     if ( $opts{'s'} ) {