ispman/bin ispman.dnsset, 1.14, 1.15 ispman.dnsunset, 1.14, 1.15

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

Modified Files:
	ispman.dnsset ispman.dnsunset 
Log Message:
added TXT record support

Index: ispman.dnsset
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.dnsset,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- ispman.dnsset	31 May 2006 22:03:36 -0000	1.14
+++ ispman.dnsset	6 Jun 2006 22:15:31 -0000	1.15
@@ -13,6 +13,7 @@
         print " $FindBin::Script -d example.com -t NS origin nameserver\n";
         print " $FindBin::Script -d example.com -t MX origin weight mailserver\n";
         print " $FindBin::Script -d example.com -t CNAME alias host\n";
+        print " $FindBin::Script -d example.com -t TXT hostname txt\n";
         print " $FindBin::Script -d example.com -t SOA primary rootmail refresh retry expire minimum\n";
         print " $FindBin::Script -d example.com -t SOA -s {primary|rootmail|refresh|retry|expirex|minimum}=val\n";
         print "\n";

Index: ispman.dnsunset
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.dnsunset,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- ispman.dnsunset	15 Jul 2004 11:40:39 -0000	1.14
+++ ispman.dnsunset	6 Jun 2006 22:15:32 -0000	1.15
@@ -13,6 +13,7 @@
         print "  $0 [-v] [-f] -d example.com -t A hostname [ipaddress]\n";
         print "  $0 [-v] [-f] -d example.com -t NS origin nameserver\n";
         print "  $0 [-v] [-f] -d example.com -t MX origin weight mailserver\n";
+        print "  $0 [-v] [-f] -d example.com -t TXT host text\n";
         print "  $0 [-v] [-f] -d example.com -t CNAME alias host\n";
         print
 "  $0 [-v] [-f] -d example.com -t SOA primary rootmail refresh retry expire minimum\n";
@@ -175,6 +176,18 @@
 
 }
 
+sub unset_txt {
+    my $domain = $opts{'d'};
+    my ( $host , $txt ) = @ARGV;
+    my $dn = $ispman->gettXTRecordDn( $domain, $host, $txt );
+
+    if ( $ispman->entryExists($dn) ) {
+        print "$domain: deleting TXT record $host $txt\n"
+          if defined $opts{'v'};
+        $ispman->deleteEntry($dn);
+    }
+}
+
 sub unset_soa {
     print "Sorry deleting of SOA is not supported\n";
 }