svn commit: samba r22311 - in branches/SAMBA_4_0/source/script/tests: .

metze at samba.org metze at samba.org
Tue Apr 17 15:33:50 GMT 2007


Author: metze
Date: 2007-04-17 15:33:50 +0000 (Tue, 17 Apr 2007)
New Revision: 22311

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

Log:
use different ip-addresses for dc and member

metze
Modified:
   branches/SAMBA_4_0/source/script/tests/Samba4.pm


Changeset:
Modified: branches/SAMBA_4_0/source/script/tests/Samba4.pm
===================================================================
--- branches/SAMBA_4_0/source/script/tests/Samba4.pm	2007-04-17 14:56:46 UTC (rev 22310)
+++ branches/SAMBA_4_0/source/script/tests/Samba4.pm	2007-04-17 15:33:50 UTC (rev 22311)
@@ -79,8 +79,8 @@
 		open STDOUT, ">$env_vars->{SMBD_TEST_LOG}";
 		open STDERR, '>&STDOUT';
 		
-		SocketWrapper::set_default_iface(1);
-		
+		SocketWrapper::set_default_iface($env_vars->{SOCKET_WRAPPER_DEFAULT_IFACE});
+
 		# Start slapd before smbd, but with the fifo on stdin
 		if (defined($self->{ldap})) {
 		    $self->slapd_start($env_vars) or 
@@ -392,7 +392,7 @@
 
 sub provision($$$$$)
 {
-	my ($self, $prefix, $server_role, $domain, $netbiosname) = @_;
+	my ($self, $prefix, $server_role, $domain, $netbiosname, $swiface) = @_;
 
 	my $smbd_loglevel = 1;
 	my $username = "administrator";
@@ -412,14 +412,17 @@
 	my $krb5_config = "$etcdir/krb5.conf";
 	my $privatedir = "$prefix_abs/private";
 	my $ncalrpcdir = "$prefix_abs/ncalrpc";
-	my $lockdir= "$prefix_abs/lockdir";
+	my $lockdir = "$prefix_abs/lockdir";
+	my $winbindd_socket_dir = "$prefix_abs/winbind_socket";
 
-	my $winbindd_socket_dir = "$prefix_abs/winbind_socket";
 	my $configuration = "--configfile=$conffile";
 	my $ldapdir = "$prefix_abs/ldap";
 
 	my $tlsdir = "$privatedir/tls";
 
+	my $ifaceipv4 = "127.0.0.$swiface";
+	my $interfaces = "$ifaceipv4/8";
+
 	(system("rm -rf $prefix/*") == 0) or die("Unable to clean up");
 	mkdir($_) foreach ($privatedir, $etcdir, $piddir, $ncalrpcdir, $lockdir, 
 		$tmpdir);
@@ -439,7 +442,7 @@
 	js include = $srcdir/scripting/libjs
 	winbindd socket directory = $winbindd_socket_dir
 	name resolve order = bcast
-	interfaces = 127.0.0.1/8
+	interfaces = $interfaces
 	tls dh params file = $tlsdir/dhparms.pem
 	panic action = $srcdir/script/gdb_backtrace \%PID% \%PROG%
 	wins support = yes
@@ -533,7 +536,7 @@
 
 	my @provision_options = ($configuration);
 	push (@provision_options, "--host-name=$netbiosname");
-	push (@provision_options, "--host-ip=127.0.0.1");
+	push (@provision_options, "--host-ip=$ifaceipv4");
 	push (@provision_options, "--quiet");
 	push (@provision_options, "--domain $domain");
 	push (@provision_options, "--realm $realm");
@@ -562,7 +565,8 @@
 		LDAPDIR => $ldapdir,
 		WINBINDD_SOCKET_DIR => $winbindd_socket_dir,
 		NCALRPCDIR => $ncalrpcdir,
-		CONFIGURATION => $configuration
+		CONFIGURATION => $configuration,
+		SOCKET_WRAPPER_DEFAULT_IFACE => $swiface
 	};
 
 	if (not defined($self->{ldap})) {
@@ -584,7 +588,7 @@
 	print "PROVISIONING MEMBER...";
 
 	my $ret = $self->provision($prefix, "member server", "SAMBADOMAIN", 
-		"localmember");
+		"localmember", 3);
 
 	$ret or die("Unable to provision");
 
@@ -601,7 +605,7 @@
 
 	print "PROVISIONING DC...";
 	my $ret = $self->provision($prefix, "domain controller", "SAMBADOMAIN", 
-		"localtest");
+		"localtest", 1);
 
 	$self->add_wins_config("$prefix/private") or 
 		die("Unable to add wins configuration");



More information about the samba-cvs mailing list