ispman/bin/functions dnsdump.functions.pl, 1.3, 1.4 dnsload.functions.pl, 1.5, 1.6 dnsset.functions.pl, 1.8, 1.9 dnsshow.functions.pl, 1.5, 1.6

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

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

Index: dnsdump.functions.pl
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/functions/dnsdump.functions.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- dnsdump.functions.pl	30 May 2004 23:35:32 -0000	1.3
+++ dnsdump.functions.pl	3 Jun 2007 19:26:13 -0000	1.4
@@ -31,6 +31,15 @@
     }
 }
 
+sub dump_aaaa {
+    my $domain   = shift;
+    my $arecords = $ispman->getDNSaAAARecords($domain);
+    for (@$arecords) {
+        print join " ", ( "AAAA", $domain, $_->{'host'}, $_->{'ip'} );
+        print "\n";
+    }
+}
+
 sub dump_cname {
     my $domain = shift;
     my $cnames = $ispman->getDNScNAMERecords($domain);

Index: dnsshow.functions.pl
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/functions/dnsshow.functions.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- dnsshow.functions.pl	20 Jun 2006 18:13:20 -0000	1.5
+++ dnsshow.functions.pl	3 Jun 2007 19:26:13 -0000	1.6
@@ -31,6 +31,15 @@
     }
 }
 
+sub show_aaaa {
+    my $domain = shift;
+    my $arecords = $ispman->getDNSaAAARecords( $domain, @ARGV );
+    for (@$arecords) {
+        print join "\t", ( $_->{'host'}, "IN", "AAAA", $_->{'ip'} );
+        print "\n";
+    }
+}
+
 sub show_cname {
     my $domain = shift;
     my $cnames = $ispman->getDNScNAMERecords($domain);
@@ -72,6 +81,8 @@
     print "\n\n";
     &show_a(@_);
     print "\n\n";
+    &show_aaaa(@_);
+    print "\n\n";
     &show_txt(@_);
     print "\n\n";
     &show_cname(@_);

Index: dnsload.functions.pl
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/functions/dnsload.functions.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- dnsload.functions.pl	30 May 2006 20:38:56 -0000	1.5
+++ dnsload.functions.pl	3 Jun 2007 19:26:13 -0000	1.6
@@ -15,6 +15,11 @@
     $ispman->newDNSRecord( $domain, "aRecord", $_[0], $_[1] );
 }
 
+sub set_aaaa {
+    my $domain = shift;
+    $ispman->newDNSRecord( $domain, "aAAARecord", $_[0], $_[1] );
+}
+
 sub set_cname {
     my $domain = shift;
     $ispman->newDNSRecord( $domain, "cNAMERecord", $_[0], $_[1] );

Index: dnsset.functions.pl
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/functions/dnsset.functions.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- dnsset.functions.pl	6 Jun 2006 22:15:31 -0000	1.8
+++ dnsset.functions.pl	3 Jun 2007 19:26:13 -0000	1.9
@@ -26,6 +26,18 @@
     #dns set a  host ip
 }
 
+sub set_aaaa {
+    print "$opts{'d'}: Adding AAAA record @ARGV \n" if defined $opts{'v'};
+    print "Also setting a PTR record\n"
+      if ( defined $opts{'p'} && defined $opts{'v'} );
+    my $extraHash = {};
+    $extraHash->{'pTRRecord'} = $ARGV[1] if defined $opts{'p'};
+    $ispman->newDNSRecord( $opts{'d'}, "aAAARecord", $ARGV[0], $ARGV[1],
+        $extraHash );
+
+    #dns set aaaa  host ip
+}
+
 sub set_cname {
     print "$opts{'d'}: Adding CNAME record @ARGV \n" if defined $opts{'v'};
     $ispman->newDNSRecord( $opts{'d'}, "cNAMERecord", $ARGV[0], $ARGV[1] );


-------------------------------------------------------------------------
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/