ispman/lib/ISPMan DNSMan.pm,1.33,1.34

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

Modified Files:
	DNSMan.pm 
Log Message:
implemented feature request [ 1483788 ] ipv6 support
NOTE: ldap schema updated necessary!!!

Index: DNSMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- DNSMan.pm	6 Jun 2006 20:55:57 -0000	1.33
+++ DNSMan.pm	3 Jun 2007 19:26:17 -0000	1.34
@@ -39,6 +39,9 @@
 use ISPMan::DNSMan::Arecords;
 push @EXPORT, @ISPMan::DNSMan::Arecords::EXPORT;
 
+use ISPMan::DNSMan::AAAArecords;
+push @EXPORT, @ISPMan::DNSMan::AAAArecords::EXPORT;
+
 use ISPMan::DNSMan::MXrecords;
 push @EXPORT, @ISPMan::DNSMan::MXrecords::EXPORT;
 
@@ -65,6 +68,9 @@
   getARecordDn
   getARecordBranchDn
 
+  getaAAARecordDn
+  getaAAARecordBranchDn
+  
   deleteDNSRecord
 
   addVhostDNSRecord
@@ -148,6 +154,19 @@
     return join ",", ( "aRecord=$ip, ou=aRecord", $self->getDNSDN($domain) );
 }
 
+sub getaAAARecordDn {
+    my $self = shift;
+    my ( $domain, $host, $ip ) = @_;
+    return join ",",
+      ( "relativeDomainName=$host", $self->getaAAARecordBranchDn( $domain, $ip ) );
+}
+
+sub getaAAARecordBranchDn {
+    my $self = shift;
+    my ( $domain, $ip ) = @_;
+    return join ",", ( "aAAARecord=$ip, ou=aAAARecord", $self->getDNSDN($domain) );
+}
+
 sub getnSRecordDn {
     my $self = shift;
     my ( $domain, $origion, $host ) = @_;


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