Added path-escaping for working with archives containing spaces and s…

…pecial characters

- BNC #776078

src/Backup.ycp

@@ -578,7 +578,7 @@ global define boolean PostBackup() ``{
  */
 
 global define string get_archive_script_parameters(string file_list, string file_comment) ``{
-    string archive_options = " --verbose --files-info " + file_list + " --comment-file " + file_comment;
+    string archive_options = " --verbose --files-info '" + String::Quote(file_list) + "' --comment-file '" + String::Quote(file_comment) + "'";
 
     if (size(complete_backup) > 0)
     {
@@ -596,8 +596,8 @@ global define string get_archive_script_parameters(string file_list, string file
 
     y2debug("nfsmount: %1, archive_name: %2", nfsmount, archive_name);
 
-    archive_options = archive_options + " --archive-name " + ((target_type == `file) ? archive_name :
-	sformat("%1/%2", nfsmount, archive_name));
+    archive_options = archive_options + " --archive-name '" + String::Quote((target_type == `file) ? archive_name :
+	sformat("%1/%2", nfsmount, archive_name)) + "'";
 
     if (system)
     {

src/functions.ycp

@@ -25,6 +25,7 @@ import "FileUtils";
 import "Mode";
 import "FileUtils";
 import "Directory";
+import "String";
 
 textdomain "backup";
 
@@ -944,6 +945,9 @@ printf (\"%d%02d%02d%02d%02d%02d\", $year, $mon, $mday, $hour, $min, $sec);'");
     return server + ":" + share + slash + filename;
 }
 
+define string quote(string var) {
+    return mergestring(splitstring(var, "\""), "\\\\\"");
+}
 
 /**
  * Get available space in the directory
@@ -960,12 +964,13 @@ printf (\"%d%02d%02d%02d%02d%02d\", $year, $mon, $mday, $hour, $min, $sec);'");
 	return $[];
     }
 
-    map result = (map)SCR::Execute(.target.bash_output, "/bin/df -P " + directory);
+    string cmd = "/bin/df -P \"" + quote(directory) + "\"";
+    map result = (map)SCR::Execute(.target.bash_output, cmd);
     integer exit = result["exit"]:-1;
 
     if (exit != 0)
     {
-	y2warning("Command df failed, exit: %1", exit);
+	y2warning("Command %1 failed, exit: %2", cmd, exit);
 	return $[];
     }
 

src/scripts/backup_archive.pl

@@ -22,6 +22,7 @@
 
 use File::Temp qw( tempdir );
 use POSIX qw( strftime );
+use File::Path qw(make_path);
 
 # command line options
 my $archive_name = '';
@@ -75,9 +76,9 @@ ($)
     {
 	my $dirs = substr($f, 0, $ix);
 	if ($verbose) {
-	    print "Running: /bin/mkdir -p $dirs 2> /dev/null\n";
+	    print "Running: make_path $dirs\n";
 	}
-	system("/bin/mkdir -p $dirs 2> /dev/null");		# create directory with parents
+	make_path($dirs);
     }
 }
 
@@ -218,7 +219,7 @@ ($)
 }
 
 my $tmp_dir_root = tempdir($temp_dir."/backup_tmp_XXXXXXXX", CLEANUP => 1);	# remove directory content at exit
-system("/bin/mkdir -p '$tmp_dir_root'");
+system("/bin/mkdir -p $tmp_dir_root");
 if (! -d $tmp_dir_root) {
     die "Cannot create directory $tmp_dir_root: ".$!;
 }
@@ -736,7 +737,8 @@ ($)
     }
 
     my $num_string = sprintf("%02d", $volume_num);
-    $tar_command .= " -M -V 'YaST2 backup:' -f $output_directory/${num_string}_$output_filename";
+    my $out_filename = "$output_directory/${num_string}_$output_filename";
+    $tar_command .= " -M -V 'YaST2 backup:' -f '".qq($out_filename)."'";
 
     if ($multi_volume > 0)
     {
@@ -803,16 +805,16 @@ ($)
 else
 {
     # create standard (no multi volume) archive 
-    $tar_command .= " -f $archive_name 2> /dev/null)";
-
+    $archive_name =~ s/\'/\'\\\'\'/g;
+    $tar_command .= " -f '$archive_name')";
     print "Tar command: $tar_command\n";
+
     system($tar_command);
 }
 
+print STDERR $!."\n";
 
 if ($verbose)
 {
     print "/Tar result: $?\n";
 }
-
-

src/ui.ycp

@@ -2827,6 +2827,8 @@ Aborting the backup.
 		{
 		    if (substring(line, 0, size(id_tar_exit)) == id_tar_exit)
 		    {
+			y2milestone ("Tar exit: %1\nErr: %2", line, SCR::Read (.process.read_stderr, backup_PID));
+
 			tar_result = tointeger(substring(line, size(id_tar_exit)));
 		    }
 		    else