ispman/bin ispman.dnsdump, 1.9, 1.10 ispman.dnsset, 1.17, 1.18 ispman.dnsshow, 1.12, 1.13 ispman.dnsunset, 1.16, 1.17

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

Modified Files:
	ispman.dnsdump ispman.dnsset ispman.dnsshow ispman.dnsunset 
Log Message:
implemented feature request [ 1483788 ] ipv6 support
NOTE: ldap schema updated necessary!!!

Index: ispman.dnsset
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.dnsset,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- ispman.dnsset	2 Oct 2006 19:39:15 -0000	1.17
+++ ispman.dnsset	3 Jun 2007 19:26:13 -0000	1.18
@@ -9,6 +9,7 @@
         print "$FindBin::Script -d domain -t type more parameters\n";
         print " Examples:\n";
         print " $FindBin::Script -d example.com -t A [-p] hostname ipaddress\n";
+	print " $FindBin::Script -d example.com -t AAAA [-p] hostname ipaddress\n";
         print "  -p add also PTR record\n";
         print " $FindBin::Script -d example.com -t NS origin nameserver\n";
         print " $FindBin::Script -d example.com -t MX origin weight mailserver\n";

Index: ispman.dnsunset
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.dnsunset,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- ispman.dnsunset	17 Sep 2006 19:48:50 -0000	1.16
+++ ispman.dnsunset	3 Jun 2007 19:26:13 -0000	1.17
@@ -11,6 +11,7 @@
         print "$FindBin::Script -d domain -t type more parameters\n";
         print "  Examples:\n";
         print "  $FindBin::Script  [-v] [-f] -d example.com -t A hostname [ipaddress]\n";
+	print "  $FindBin::Script  [-v] [-f] -d example.com -t AAAA hostname [ipaddress]\n";
         print "  $FindBin::Script  [-v] [-f] -d example.com -t NS origin nameserver\n";
         print "  $FindBin::Script  [-v] [-f] -d example.com -t MX origin weight mailserver\n";
         print "  $FindBin::Script  [-v] [-f] -d example.com -t TXT host text\n";
@@ -132,6 +133,47 @@
     }
 }
 
+sub unset_aaaa {
+    my $domain = $opts{'d'};
+    my ( $host, $ip ) = @ARGV;
+    my $dn;
+
+    my $arecords;
+    if ($ip) {
+        $arecords->[0] = {
+            'host' => $host,
+            'ip'   => $ip
+        };
+    }
+    else {
+        unless ( $opts{'f'} ) {
+            print "Sorry Cannot delete all records for this host\n";
+            exit;
+        }
+
+        #get all AAAA records for this host
+        $arecords = $ispman->getDNSaAAARecords( $domain, $host );
+    }
+
+    for (@$arecords) {
+        $dn = $ispman->getaAAARecordDn( $domain, $host, $_->{'ip'} );
+        if ( $ispman->entryExists($dn) ) {
+            print "$domain: deleting AAAA record $host $ip\n"
+              if defined $opts{'v'};
+            $ispman->deleteEntry($dn);
+        }
+
+        #print "Lets see if the branch exists\n";
+        my $b = $ispman->getaAAARecordBranchDn( $domain, $ip );
+        if ( $ispman->entryExists($b) == 1 ) {
+
+            #print "Entry exists\n";
+            $ispman->deleteEntry($b);
+        }
+    }
+}
+
+
 sub unset_cname {
     my $domain = $opts{'d'};
     my ( $alias, $host ) = @ARGV;

Index: ispman.dnsshow
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.dnsshow,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- ispman.dnsshow	17 Sep 2006 19:48:50 -0000	1.12
+++ ispman.dnsshow	3 Jun 2007 19:26:13 -0000	1.13
@@ -10,6 +10,7 @@
         print "$FindBin::Script -d domain -t type [-v] \n";
         print "  where type can be one of the following:\n";
         print "  A       List of host addresses\n";
+	print "  AAAA    List of ipv6 addresses\n";
         print "  TXT     List of text infos\n";
         print "  NS      List of Name servers\n";
         print "  MX      List of Mail servers\n";

Index: ispman.dnsdump
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.dnsdump,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- ispman.dnsdump	17 Sep 2006 19:48:50 -0000	1.9
+++ ispman.dnsdump	3 Jun 2007 19:26:12 -0000	1.10
@@ -10,6 +10,7 @@
         print "$FindBin::Script -d domain -t type [-v] \n";
         print "  where type can be one of the following:\n";
         print "  A       List of host addresses\n";
+	print "  AAAA    List of ipv6 addresses\n";
         print "  NS      List of Name servers\n";
         print "  MX      List of Mail servers\n";
         print "  CNAME   List of Canonical names\n";


-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/