ispman/lib/ISPMan/DNSMan Arecords.pm,1.15,1.16 CNAMES.pm,1.14,1.15 MXrecords.pm,1.16,1.17 NSrecords.pm,1.11,1.12

Update of /cvsroot/ispman/ispman/lib/ISPMan/DNSMan
In directory sc8-pr-cvs1:/tmp/cvs-serv29989

Modified Files:
	Arecords.pm CNAMES.pm MXrecords.pm NSrecords.pm 
Log Message:
fixed bug (no creation of agent process when deleting DNS records)


Index: Arecords.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/Arecords.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- Arecords.pm	30 Jul 2002 02:01:47 -0000	1.15
+++ Arecords.pm	17 Jan 2004 16:00:34 -0000	1.16
@@ -102,10 +102,20 @@
 sub modifyDNSaRecord {
    my $self=shift;
    my $r=shift;
-   #delete old record
-   $self->deleteEntry($r->param("dn"));
-   #add new record
-   $self->addDNSaRecord($r);
+
+   # add/update record or delete?
+   if ($r->param("host") and $r->param("ip")) {
+       # delete old record
+       $self->deleteEntry($r->param("dn"));
+       # add record
+       $self->addDNSaRecord($r);
+   } else {
+       # FIXME
+       # Quick&Dirty Patch to delete record. Better do this with direct action in web form
+       my $entry=$self->getEntry($r->param("dn"));
+       $self->deleteDNSRecord($r->param("ispmanDomain"), "aRecord", $entry->get_value("relativeDomainName"), $entry->get_value("aRecord"));
+       $self->editDNSaRecords($r);
+   }
 }
 
 

Index: CNAMES.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/CNAMES.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- CNAMES.pm	26 Apr 2003 11:32:55 -0000	1.14
+++ CNAMES.pm	17 Jan 2004 16:00:34 -0000	1.15
@@ -108,8 +108,20 @@
 sub modifyDNScNAMERecord {
    my $self=shift;
    my $r=shift;
-   $self->deleteEntry($r->param("dn"));
-   $self->addDNScNAMERecord($r);
+   # add/update record or delete?
+   if ($r->param("host") and $r->param("ip")) {
+       # delete old record
+       $self->deleteEntry($r->param("dn"));
+       # add record
+       $self->addDNScNAMERecord($r);
+   } else {
+       # FIXME
+       # Quick&Dirty Patch to delete record. Better do this with direct action in web form
+       my $entry=$self->getEntry($r->param("dn"));
+       $self->deleteDNSRecord($r->param("ispmanDomain"), "cNAMERecord", $entry->get_value("relativeDomainName"), $entry->get_value("cNAMERecord"));
+       $self->editDNScNAMERecords($r);
+   }
+
 }
 
 1;

Index: MXrecords.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/MXrecords.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- MXrecords.pm	28 Aug 2003 02:57:37 -0000	1.16
+++ MXrecords.pm	17 Jan 2004 16:00:34 -0000	1.17
@@ -83,8 +83,21 @@
 sub modifyDNSmXRecord {
    my $self=shift;
    my $r=shift;
-   $self->deleteEntry($r->param("dn"));
-   $self->addDNSmXRecord($r);
+
+   # add/update record or delete?
+   if ($r->param("host") and $r->param("ip")) {
+       # delete old record
+       $self->deleteEntry($r->param("dn"));
+       # add record
+       $self->addDNSmXRecord($r);
+   } else {
+       # FIXME
+       # Quick&Dirty Patch to delete record. Better do this with direct action in web form
+       my $entry=$self->getEntry($r->param("dn"));
+       $self->deleteDNSRecord($r->param("ispmanDomain"), "mXRecord", $entry->get_value("relativeDomainName"), $entry->get_value("mXRecord"));
+       $self->editDNSmXRecords($r);
+   }
+
 }
 
 

Index: NSrecords.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/NSrecords.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- NSrecords.pm	1 Jul 2002 04:32:48 -0000	1.11
+++ NSrecords.pm	17 Jan 2004 16:00:34 -0000	1.12
@@ -69,8 +69,20 @@
 sub modifyDNSnSRecord {
    my $self=shift;
    my $r=shift;
-   $self->deleteEntry($r->param("dn"));
-   $self->addDNSnSRecord($r);
+   # add/update record or delete?
+   if ($r->param("host") and $r->param("ip")) {
+       # delete old record
+       $self->deleteEntry($r->param("dn"));
+       # add record
+       $self->addDNSnSRecord($r);
+   } else {
+       # FIXME
+       # Quick&Dirty Patch to delete record. Better do this with direct action in web form
+       my $entry=$self->getEntry($r->param("dn"));
+       $self->deleteDNSRecord($r->param("ispmanDomain"), "nSRecord", $entry->get_value("relativeDomainName"), $entry->get_value("nSRecord"));
+       $self->editDNSnSRecords($r);
+   }
+
 }
 
 




-------------------------------------------------------
The SF.Net email is sponsored by EclipseCon 2004
Premiere Conference on Open Tools Development and Integration
See the breadth of Eclipse activity. February 3-5 in Anaheim, CA.
http://www.eclipsecon.org/osdn