[PATCH 20/31] selftest: Wait for the logon server to register to join the member.
Andreas Schneider
asn at samba.org
Wed Dec 3 07:45:16 MST 2014
Signed-off-by: Andreas Schneider <asn at samba.org>
---
selftest/target/Samba3.pm | 17 +++++++++++++++++
1 file changed, 17 insertions(+)
diff --git a/selftest/target/Samba3.pm b/selftest/target/Samba3.pm
index ff5ff82..65834c9 100755
--- a/selftest/target/Samba3.pm
+++ b/selftest/target/Samba3.pm
@@ -242,6 +242,8 @@ sub setup_s3dc($$)
sub setup_member($$$)
{
my ($self, $prefix, $s3dcvars) = @_;
+ my $count = 0;
+ my $rc;
print "PROVISIONING MEMBER...";
@@ -257,6 +259,21 @@ sub setup_member($$$)
$ret or return undef;
+ my $nmblookup = Samba::bindir_path($self, "nmblookup");
+ do {
+ print "Waiting for the LOGON SERVER registration ...\n";
+ $rc = system("$nmblookup $ret->{CONFIGURATION} $ret->{DOMAIN}\#1c");
+ if ($rc != 0) {
+ sleep(1);
+ }
+ $count++;
+ } while ($rc != 0 && $count < 10);
+ if ($count == 10) {
+ print "NMBD not reachable after 10 retries\n";
+ teardown_env($self, $ret);
+ return 0;
+ }
+
my $net = Samba::bindir_path($self, "net");
my $cmd = "";
$cmd .= "SOCKET_WRAPPER_DEFAULT_IFACE=\"$ret->{SOCKET_WRAPPER_DEFAULT_IFACE}\" ";
--
2.1.3
More information about the samba-technical
mailing list