Ticket #2086: ticket_2086.patch

engine/ispcp-als-mngr

@@ -3059 +3059 @@
                 }
                 ($rs, $rdata) = doSQL($sql);
                 return $rs if ($rs != 0);
+        } elsif ($als_status eq 'dnschange'){
+                # changing DNS
+                $rs = als_change_named_data($entry);
+                $timestamp = time();
+                if ($rs == 0) {
+                        $sql = "update domain_aliasses set alias_status='ok' where alias_id = $als_id;";
+                } else {
+                        my ($sub_name, $msg) = split(/$main::el_sep/, pop_el(\@main::el));
+                        $msg =~ s/\'/\\\'/g;
+                        $sql = "update domain_aliasses set alias_status='$sub_name | $msg' where alias_id = $als_id;";
+                }
+                ($rs, $rdata) = doSQL($sql);
+                return $rs if ($rs != 0);
         } elsif ($als_status eq 'delete') {
                 # Removing domains;
                 $rs = als_del_data($entry);

engine/ispcp-alssub-mngr

@@ -2594 +2594 @@
         ($rs, $rdata) = doSQL($sql);
 
         return $rs if ($rs != 0);
-
+    } elsif ($sub_status eq 'dnschange') {    
+                $rs = alssub_change_named_data($entry);
+                $timestamp = time();
+        if ($rs == 0) {
+            $sql = "update subdomain_alias set subdomain_alias_status='ok' where subdomain_alias_id = $sub_id;";
+        } else {
+            my ($sub_name, $msg) = split(/$main::el_sep/, pop_el(\@main::el));
+            $msg =~ s/\'/\\\'/g;
+            $sql = "update subdomain_alias set subdomain_alias_status='$sub_name | $msg' where subdomain_alias_id = $sub_id;";
+        }
+        ($rs, $rdata) = doSQL($sql);
+        return $rs if ($rs != 0);
     } elsif ($sub_status eq 'delete') {
 
         # Removing domains;

engine/ispcp-dmn-mngr

@@ -3795 +3795 @@
                 }
                 ($rs, $rdata) = doSQL($sql);
                 return $rs if ($rs != 0);
+        } elsif ($dmn_status eq 'dnschange'){
+                #modifiying DNS entry           
+                $rs = dmn_change_named_data($entry);
+                $timestamp = time();
+                if ($rs == 0) {
+                        $sql = "update domain set domain_status='ok' where domain_id = $dmn_id;";
+                } else {
+                        ($sub_name, $msg) = split(/$main::el_sep/, pop_el(\@main::el));
+                        $msg =~ s/\'/\\\'/g;
+                        $sql = "update domain set domain_status='$sub_name | $msg' where domain_id = $dmn_id;";
+                }
+                ($rs, $rdata) = doSQL($sql);
+                return $rs if ($rs != 0);
         } elsif ($dmn_status eq 'delete') {
                 # Removing domains;
                 $rs = dmn_del_data($entry);

engine/ispcp-rqst-mngr

@@ -120 +120 @@
                                 $dmn_status eq "change" ||
                                 $dmn_status eq "restore" ||
                                 $dmn_status eq "toenable" ||
-                                $dmn_status eq "todisable"
+                                $dmn_status eq "todisable" ||
+                                $dmn_status eq "dnschange"
                            ) {
 
                                 if ($dmn_status eq "restore") {
@@ -300 +301 @@
 
         }
 
-        $sql = "select alias_id, alias_name, alias_status from domain_aliasses where alias_status in ('toadd', 'change') order by alias_id";
+        $sql = "select alias_id, alias_name, alias_status from domain_aliasses where alias_status in ('toadd', 'change','dnschange') order by alias_id";
 
         ($rs, $rdata) = doSQL($sql);
 
@@ -371 +372 @@
 
                         my ($sub_id, $sub_name, $sub_status) = (@$row[0], @$row[1], @$row[2]);
 
-                        if ($sub_status eq "toadd" || $sub_status eq "change" || $sub_status eq "delete") {
+                        if ($sub_status eq "toadd" || $sub_status eq "change" || $sub_status eq "delete" || $sub_status eq "dnschange") {
 
                                 if (defined($main::engine_debug)) {
 

engine/ispcp-sub-mngr

@@ -2574 +2574 @@
 
         return $rs if ($rs != 0);
 
+    } elsif ($sub_status eq 'dnschange'){
+        $rs = sub_change_named_data($entry);
+        $timestamp = time();
+        if ($rs == 0) {
+            $sql = "update subdomain set subdomain_status='ok' where subdomain_id = $sub_id;";
+        } else {
+            my ($sub_name, $msg) = split(/$main::el_sep/, pop_el(\@main::el));
+            $msg =~ s/\'/\\\'/g;
+            $sql = "update subdomain set subdomain_status='$sub_name | $msg' where subdomain_id = $sub_id;";
+        }
+        ($rs, $rdata) = doSQL($sql);
+        return $rs if ($rs != 0);
     } elsif ($sub_status eq 'delete') {
 
         # Removing domains;