mxproxmox: Add local_only argument to do_map

mxproxmox/mxproxmox

@@ -57,7 +57,7 @@ sub save_qx {
 }
 
 sub do_map {
-    my ($prefix, $mapname) = @_;
+    my ($prefix, $mapname, $local_only) = @_;
     my @out;
     open my $in, "/etc/automount/$mapname" or die "/etc/automount/$mapname: $!\n";
     while (<$in>) {
@@ -70,7 +70,9 @@ sub do_map {
         @f = split ':', $hostname_and_path;
         @f == 2 or next;
         my ($host, $path) = @f;
-        push @out, [ "${prefix}_$key", $path ] if $host eq $hostname;
+        if (!$local_only || $host eq $hostname) {
+            push @out, [ "${prefix}_$key", $path ];
+        }
     }
     return (@out);
 }
@@ -210,12 +212,12 @@ sub cmd_local_backups {
     read_backup_list();
     my @jobs = ([ "sys_$hostname", "/" ]) ;
     for my $p (
-            do_map('home', 'auto.home'),
-            do_map('cfdl', 'auto.confidential'),
-            do_map('prj',  'auto.project'),
-            do_map('pkg',  'auto.package'),
-            do_map('cfdl', 'auto.confidential'),
-            do_map('src',  'auto.src'),
+            do_map('home', 'auto.home', 1),
+            do_map('cfdl', 'auto.confidential', 1),
+            do_map('prj',  'auto.project', 1),
+            do_map('pkg',  'auto.package', 1),
+            do_map('cfdl', 'auto.confidential', 1),
+            do_map('src',  'auto.src', 1),
     ) {
         my ($ident, $path) = @$p;
         push @jobs, $p if $ident =~ /^home_/;