ispman/lib/ISPMan/DNSMan Arecords.pm,1.16,1.17 CNAMES.pm,1.16,1.17 MXrecords.pm,1.19,1.20 NSrecords.pm,1.13,1.14 SOArecords.pm,1.17,1.18

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

Modified Files:
	Arecords.pm CNAMES.pm MXrecords.pm NSrecords.pm SOArecords.pm 
Log Message:
removing hardcoded "is{$type}Domain" functions in favour of more generic checkDomainType function.


Index: CNAMES.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/CNAMES.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- CNAMES.pm	22 Jan 2004 00:26:16 -0000	1.16
+++ CNAMES.pm	24 May 2004 20:14:32 -0000	1.17
@@ -76,7 +76,7 @@
    my $self=shift;
    my $r=shift;
    my $dn=$r->param("dn");
-   return unless $self->checkDomainType($r->param("ispmanDomain"));
+   return unless $self->checkDomainType($r->param("ispmanDomain"),"primary");
    $self->{'domain'}=$self->getDomainInfo($r->param("ispmanDomain"));
    $self->getDNScNAMERecords($r->param("ispmanDomain"));
    

Index: MXrecords.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/MXrecords.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- MXrecords.pm	6 Feb 2004 17:06:18 -0000	1.19
+++ MXrecords.pm	24 May 2004 20:14:32 -0000	1.20
@@ -50,7 +50,7 @@
    my $self=shift;
    my $r=shift;
    
-   return unless $self->checkDomainType($r->param("ispmanDomain"));
+   return unless $self->checkDomainType($r->param("ispmanDomain"),"primary");
    $self->{'domain'}=$self->getDomainInfo($r->param("ispmanDomain"));
    $self->getDNSmXRecords($r->param("ispmanDomain"));
 

Index: Arecords.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/Arecords.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- Arecords.pm	17 Jan 2004 16:00:34 -0000	1.16
+++ Arecords.pm	24 May 2004 20:14:32 -0000	1.17
@@ -81,7 +81,7 @@
    my $self=shift;
    my $r=shift;
    
-   return unless $self->checkDomainType($r->param("ispmanDomain"));
+   return unless $self->checkDomainType($r->param("ispmanDomain"),"primary");
    $self->{'domain'}=$self->getDomainInfo($r->param("ispmanDomain"));
 
    

Index: NSrecords.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/NSrecords.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- NSrecords.pm	22 Jan 2004 00:26:16 -0000	1.13
+++ NSrecords.pm	24 May 2004 20:14:32 -0000	1.14
@@ -47,7 +47,7 @@
    my $self=shift;
    my $r=shift;
    my $dn=$r->param("dn");
-   return unless $self->checkDomainType($r->param("ispmanDomain"));
+   return unless $self->checkDomainType($r->param("ispmanDomain"),"primary");
    $self->{'domain'}=$self->getDomainInfo($r->param("ispmanDomain"));
    $self->getDNSnSRecords($r->param("ispmanDomain"));
 

Index: SOArecords.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/SOArecords.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- SOArecords.pm	14 Jan 2004 22:57:40 -0000	1.17
+++ SOArecords.pm	24 May 2004 20:14:32 -0000	1.18
@@ -22,7 +22,7 @@
    my $self=shift;
    my $r=shift;
    
-   return unless $self->checkDomainType($r->param("ispmanDomain"));
+   return unless $self->checkDomainType($r->param("ispmanDomain"),"primary");
    $self->{'domain'}=$self->getDomainInfo($r->param("ispmanDomain"));
    
    



-------------------------------------------------------
This SF.Net email is sponsored by: Oracle 10g
Get certified on the hottest thing ever to hit the market... Oracle 10g. 
Take an Oracle 10g class now, and we'll give you the exam FREE.
http://ads.osdn.com/?ad_id=3149&alloc_id=8166&op=click