selecthost: Honour IDENT_hostflagadjust runvar

This allows runvars to override hostflags from the resource database
or configuration.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index fb62dfbb44ae0b1c1f7baf9fcb15b0c06b328b53..2b4a1f4d51086116b454db935c3b8dd4bc00a520 100644 (file)
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -966,6 +966,14 @@ sub selecthost ($) {
 
     $ho->{Flags} = $mhostdb->get_flags($ho);
 
+    foreach my $adj (split /,/, ($r{"${ident}_hostflagadjust"} // '')) {
+       if ($adj =~ s/^!//) {
+           delete $ho->{Flags}{$adj};
+       } else {
+           $ho->{Flags}{$adj} = 1;
+       }
+    }
+
     #----- fqdn -----
 
     my $defaultfqdn = $name;