r22601: run net join with the correct socket_wrapper and krb5 configuration

metze

diff --git a/source/selftest/Samba4.pm b/source/selftest/Samba4.pm
index d9145033e9b812fcadd224854fc730d2dcc40951..e0f7e54a17db71badbfe1e44cc2ae78abec7e3c3 100644 (file)
--- a/source/selftest/Samba4.pm
+++ b/source/selftest/Samba4.pm
@@ -670,7 +670,13 @@ sub provision_member($$$)
 
        $ret or die("Unable to provision");
 
-       system("$self->{bindir}/net join $ret->{CONFIGURATION} $dcvars->{DOMAIN} member -U$dcvars->{USERNAME}\%$dcvars->{PASSWORD}") == 0 or die("Join failed");
+       my $cmd = "";
+       $cmd .= "SOCKET_WRAPPER_DEFAULT_IFACE=\"$ret->{SOCKET_WRAPPER_DEFAULT_IFACE}\" ";
+       $cmd .= "KRB5_CONFIG=\"$ret->{KRB5_CONFIG}\" ";
+       $cmd .= "$self->{bindir}/net join $ret->{CONFIGURATION} $dcvars->{DOMAIN} member";
+       $cmd .= " -U$dcvars->{USERNAME}\%$dcvars->{PASSWORD}";
+
+       system($cmd) == 0 or die("Join failed\n$cmd");
 
        $ret->{SMBD_TEST_FIFO} = "$prefix/smbd_test.fifo";
        $ret->{SMBD_TEST_LOG} = "$prefix/smbd_test.log";