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