ispman/lib/ISPMan/DNSMan Arecords.pm,1.18,1.19 CNAMES.pm,1.18,1.19 MXrecords.pm,1.23,1.24 NSrecords.pm,1.15,1.16 SOArecords.pm,1.20,1.21

Update of /cvsroot/ispman/ispman/lib/ISPMan/DNSMan
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2769/lib/ISPMan/DNSMan

Modified Files:
	Arecords.pm CNAMES.pm MXrecords.pm NSrecords.pm SOArecords.pm 
Log Message:
added DNS TTL patch
(thanks to Armand)

Index: CNAMES.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/CNAMES.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- CNAMES.pm	30 May 2004 23:35:38 -0000	1.18
+++ CNAMES.pm	4 Aug 2004 17:31:53 -0000	1.19
@@ -64,6 +64,7 @@
             push @{ $self->{'domain'}{'dns'} },
               {
                 'alias' => $h->{$hdn}{'relativeDomainName'},
+		'ttl'  => $h->{$hdn}{'DNSTTL'},
                 'host'  => $_
               };
         }

Index: MXrecords.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/MXrecords.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- MXrecords.pm	5 Jun 2004 12:45:25 -0000	1.23
+++ MXrecords.pm	4 Aug 2004 17:31:53 -0000	1.24
@@ -38,6 +38,7 @@
             push @{ $self->{'domain'}{'dns'} },
               {
                 'origion' => $h->{$hdn}{'relativeDomainName'},
+		'ttl'  => $h->{$hdn}{'DNSTTL'},
                 'pref'    => $pref,
                 'host'    => $host
               };

Index: Arecords.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/Arecords.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- Arecords.pm	30 May 2004 23:35:38 -0000	1.18
+++ Arecords.pm	4 Aug 2004 17:31:53 -0000	1.19
@@ -68,6 +68,7 @@
             push @{ $self->{'domain'}{'dns'} },
               {
                 'host' => $h->{$hdn}{'relativeDomainName'},
+		'ttl'  => $h->{$hdn}{'DNSTTL'},
                 'ptr'  => $h->{$hdn}{'pTRRecord'},
                 'ip'   => $_
               };

Index: NSrecords.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/NSrecords.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- NSrecords.pm	30 May 2004 23:35:38 -0000	1.15
+++ NSrecords.pm	4 Aug 2004 17:31:53 -0000	1.16
@@ -35,6 +35,7 @@
             push @{ $self->{'domain'}{'dns'} },
               {
                 'origion' => $h->{$hdn}{'relativeDomainName'},
+		'ttl'  => $h->{$hdn}{'DNSTTL'},
                 'host'    => $_
               };
         }

Index: SOArecords.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/SOArecords.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- SOArecords.pm	20 Jun 2004 09:15:42 -0000	1.20
+++ SOArecords.pm	4 Aug 2004 17:31:53 -0000	1.21
@@ -75,6 +75,7 @@
         $soa->{'minimum'}
       )
       = split( /\s\s*/, $h->{'sOARecord'} );
+    $soa->{'ttl'} = $h->{'DNSTTL'};
     return $soa;
 }
 



-------------------------------------------------------
This SF.Net email is sponsored by OSTG. Have you noticed the changes on
Linux.com, ITManagersJournal and NewsForge in the past few weeks? Now,
one more big change to announce. We are now OSTG- Open Source Technology
Group. Come see the changes on the new OSTG site. www.ostg.com