v2.4.22.1

Author: Marcin Przepiorowski

CHANGELOG.md

@@ -1,3 +1,9 @@
+## 2.4.22.1
+
+### Changes
+- Fix to support backupuuid in dx_snapshot_db
+- Fix to support dots in the user names while using @DOMAIN or @SYSTEM
+
 ## 2.4.22
 
 ### Added

lib/Engine.pm

@@ -950,7 +950,8 @@ sub login {
   my $domain;
   my %mylogin;
 
-  if (($domain) = $user =~ /(\w+)@(\w+)/) {
+  # allows dots in the user name when specified with domain or SYSTEM
+  if (($domain) = $user =~ /([\w\.]+)@(\w+)/) {
     if (uc $2 eq "DOMAIN") {
       $domain = "DOMAIN";
       $user = $1;

lib/MSSQLVDB_obj.pm

@@ -293,9 +293,16 @@ sub snapshot
           # backupUUID: (required)
 
           if ( $frombackup eq "yes" ) {
-            %snapshot_type = (
-                "type" => "MSSqlExistingMostRecentBackupSyncParameters"
-            );
+            if (defined($uuid)) {
+              %snapshot_type = (
+                  "type" => "MSSqlExistingSpecificBackupSyncParameters",
+                  "backupUUID" => $uuid
+              );
+            } else {
+              %snapshot_type = (
+                  "type" => "MSSqlExistingMostRecentBackupSyncParameters"
+              );
+            }
           } else {
 
             if ($self->getStagingPush() eq 'yes') {

lib/Toolkit_helpers.pm

@@ -29,7 +29,7 @@ use File::Spec;
 
 use lib '../lib';
 
-our $version = '2.4.22';
+our $version = '2.4.22.1';
 
 my $tz = new Date::Manip::TZ;
 my $dt = new Date::Manip::Date;