v2.4.17

Author: Marcin Przepiorowski

CHANGELOG.md

@@ -1,3 +1,25 @@
+## 2.4.17
+
+<B>Breaking change</B> 
+If dx_ctl_replication script is used please review your scipts
+and add <i>-action replicate</i> to keep current functionality
+
+### Changes
+
+-  dx_ctl_replication - <b>Breaking change</b> - More functionality (create/update/delete profile) has been added and parameter <i>-action</i> is required 
+-  dx_get_replication - backup of the replication profiles has been added 
+-  dx_get_osversion - fix
+-  dx_get_config - backup of engine configuration to the JSON file has been added
+-  fix to issue with some database names / comments 
+-  [bug #218](https://github.com/delphix/dxtoolkit/issues/218) - fix in dx_v2p
+-  [bug #214](https://github.com/delphix/dxtoolkit/issues/214) - fix to no of CPU
+-  [bug #208](https://github.com/delphix/dxtoolkit/issues/208) - fix to limited user privileges
+
+### Added
+
+-  dx_ctl_config - initialise and configure engine using JSON file
+-  dx_get_namespace - list all replicated namespace
+-  dx_ctl_namespace - failover or delete namespace
 ## 2.4.16.3
 
 ### Changes

bin/dx_config.pl

@@ -45,6 +45,7 @@
 'debug' => \(my $debug),
 'convert=s' => \(my $convert),
 'csvfile|f=s' => \(my $csvfile),
+'append' => \(my $append),
 'text|c=s' => \(my $conf_param_file),
 'configfile|c=s' => \(my $configfile),
 'version|v' => \(my $print_version)
@@ -73,7 +74,7 @@
 }
 
 if ( ($convert eq 'todxconf')  &&  (defined($conf_param_file)))  {
-	convert_text_todxconf($conf_param_file, $configfile);
+	convert_text_todxconf($conf_param_file, $configfile, $append);
 }
 
 
@@ -160,7 +161,8 @@ sub convert_todxconf {
 sub convert_text_todxconf {
 	my $conf_param_file = shift;
 	my $configfile = shift;
-  my @engine_list;
+    my $append = shift;
+	my @engine_list;
 	chomp $conf_param_file;
 
 
@@ -179,7 +181,25 @@ sub convert_text_todxconf {
       exit 1;
     }
 
-		my %engine;
+	if (defined($append)) {
+		if (! -e $configfile ) {
+			print("Config file must exist for append option\n");
+			exit 1;
+		}
+		my $engine_obj = new Engine ('1.4');
+		$engine_obj->load_config($configfile);
+		for my $en ($engine_obj->getAllEngines()) {
+			my $eng = $engine_obj->getEngine($en);
+			foreach (keys %{$eng}) {
+ 			   delete $eng->{$_} unless defined $eng->{$_};
+			}
+			$eng->{"hostname"} = $en;
+			push(@engine_list, $eng);
+		}
+	}
+
+
+	my %engine;
 
     if ($username ne '') {
       %engine = (