svn commit: samba r22601 - in branches/SAMBA_4_0/source/selftest: .

[metze at samba.org]

Author: metze
Date: 2007-04-30 11:16:50 +0000 (Mon, 30 Apr 2007)
New Revision: 22601

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=22601

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

metze
Modified:
   branches/SAMBA_4_0/source/selftest/Samba4.pm


Changeset:
Modified: branches/SAMBA_4_0/source/selftest/Samba4.pm
===================================================================
--- branches/SAMBA_4_0/source/selftest/Samba4.pm	2007-04-30 10:49:42 UTC (rev 22600)
+++ branches/SAMBA_4_0/source/selftest/Samba4.pm	2007-04-30 11:16:50 UTC (rev 22601)
@@ -670,8 +670,14 @@
 
 	$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";
 	$ret->{SMBD_TEST_LOG_POS} = 0;