source4/selftest/Samba4.pm

   1 #!/usr/bin/perl
   2 # Bootstrap Samba and run a number of tests against it.
   3 # Copyright (C) 2005-2007 Jelmer Vernooij <jelmer@samba.org>
   4 # Published under the GNU GPL, v3 or later.
   5
   6 package Samba4;
   7
   8 use strict;
   9 use Cwd qw(abs_path);
  10 use FindBin qw($RealBin);
  11 use POSIX;
  12
  13 sub new($$$$) {
  14         my ($classname, $bindir, $ldap, $setupdir) = @_;
  15         my $self = {
  16                 vars => {},
  17                 ldap => $ldap,
  18                 bindir => $bindir,
  19                 setupdir => $setupdir
  20         };
  21         bless $self;
  22         return $self;
  23 }
  24
  25 sub openldap_start($$$) {
  26         my ($slapd_conf, $uri, $logs) = @_;
  27         my $oldpath = $ENV{PATH};
  28         $ENV{PATH} = "/usr/local/sbin:/usr/sbin:/sbin:$ENV{PATH}";
  29         system("slapd -d0 -f $slapd_conf -h $uri > $logs 2>&1 &");
  30         $ENV{PATH} = $oldpath;
  31 }
  32
  33 sub slapd_start($$)
  34 {
  35         my $count = 0;
  36         my ($self, $env_vars) = @_;
  37
  38         my $uri = $env_vars->{LDAP_URI};
  39
  40         # running slapd in the background means it stays in the same process group, so it can be
  41         # killed by timelimit
  42         if ($self->{ldap} eq "fedora-ds") {
  43                 system("$ENV{FEDORA_DS_PREFIX}/sbin/ns-slapd -D $env_vars->{FEDORA_DS_DIR} -d0 -i $env_vars->{FEDORA_DS_PIDFILE}> $env_vars->{LDAPDIR}/logs 2>&1 &");
  44         } elsif ($self->{ldap} eq "openldap") {
  45                 openldap_start($env_vars->{SLAPD_CONF}, $uri, "$env_vars->{LDAPDIR}/logs");
  46         }
  47         while (system("$self->{bindir}/ldbsearch -H $uri -s base -b \"\" supportedLDAPVersion > /dev/null") != 0) {
  48                 $count++;
  49                 if ($count > 40) {
  50                     $self->slapd_stop($env_vars);
  51                     return 0;
  52                 }
  53                 sleep(1);
  54         }
  55         return 1;
  56 }
  57
  58 sub slapd_stop($$)
  59 {
  60         my ($self, $envvars) = @_;
  61         if ($self->{ldap} eq "fedora-ds") {
  62                 system("$envvars->{LDAPDIR}/slapd-samba4/stop-slapd");
  63         } elsif ($self->{ldap} eq "openldap") {
  64                 open(IN, "<$envvars->{OPENLDAP_PIDFILE}") or
  65                         die("unable to open slapd pid file: $envvars->{OPENLDAP_PIDFILE}");
  66                 kill 9, <IN>;
  67                 close(IN);
  68         }
  69         return 1;
  70 }
  71
  72 sub check_or_start($$$)
  73 {
  74         my ($self, $env_vars, $max_time) = @_;
  75         return 0 if ( -p $env_vars->{SMBD_TEST_FIFO});
  76
  77         unlink($env_vars->{SMBD_TEST_FIFO});
  78         POSIX::mkfifo($env_vars->{SMBD_TEST_FIFO}, 0700);
  79         unlink($env_vars->{SMBD_TEST_LOG});
  80
  81         print "STARTING SMBD... ";
  82         my $pid = fork();
  83         if ($pid == 0) {
  84                 open STDIN, $env_vars->{SMBD_TEST_FIFO};
  85                 open STDOUT, ">$env_vars->{SMBD_TEST_LOG}";
  86                 open STDERR, '>&STDOUT';
  87
  88                 SocketWrapper::set_default_iface($env_vars->{SOCKET_WRAPPER_DEFAULT_IFACE});
  89
  90                 my $valgrind = "";
  91                 if (defined($ENV{SMBD_VALGRIND})) {
  92                     $valgrind = $ENV{SMBD_VALGRIND};
  93                 }
  94
  95                 $ENV{KRB5_CONFIG} = $env_vars->{KRB5_CONFIG};
  96
  97                 # Start slapd before smbd, but with the fifo on stdin
  98                 if (defined($self->{ldap})) {
  99                     $self->slapd_start($env_vars) or
 100                         die("couldn't start slapd (2nd time)");
 101                 }
 102
 103                 my $optarg = "";
 104                 if (defined($max_time)) {
 105                         $optarg = "--maximum-runtime=$max_time ";
 106                 }
 107                 my $ret = system("$valgrind $self->{bindir}/smbd $optarg $env_vars->{CONFIGURATION} -M single -i --leak-report-full");
 108                 if ($? == -1) {
 109                         print "Unable to start smbd: $ret: $!\n";
 110                         exit 1;
 111                 }
 112                 unlink($env_vars->{SMBD_TEST_FIFO});
 113                 my $exit = $? >> 8;
 114                 if ( $ret == 0 ) {
 115                         print "smbd exits with status $exit\n";
 116                 } elsif ( $ret & 127 ) {
 117                         print "smbd got signal ".($ret & 127)." and exits with $exit!\n";
 118                 } else {
 119                         $ret = $? >> 8;
 120                         print "smbd failed with status $exit!\n";
 121                 }
 122                 exit $exit;
 123         }
 124         print "DONE\n";
 125
 126         open(DATA, ">$env_vars->{SMBD_TEST_FIFO}");
 127
 128         return $pid;
 129 }
 130
 131 sub wait_for_start($$)
 132 {
 133         my ($self, $testenv_vars) = @_;
 134         # give time for nbt server to register its names
 135         print "delaying for nbt name registration\n";
 136         sleep 2;
 137
 138         # This will return quickly when things are up, but be slow if we
 139         # need to wait for (eg) SSL init
 140         system("bin/nmblookup $testenv_vars->{CONFIGURATION} $testenv_vars->{SERVER}");
 141         system("bin/nmblookup $testenv_vars->{CONFIGURATION} -U $testenv_vars->{SERVER_IP} $testenv_vars->{SERVER}");
 142         system("bin/nmblookup $testenv_vars->{CONFIGURATION} $testenv_vars->{NETBIOSNAME}");
 143         system("bin/nmblookup $testenv_vars->{CONFIGURATION} -U $testenv_vars->{SERVER_IP} $testenv_vars->{NETBIOSNAME}");
 144         system("bin/nmblookup $testenv_vars->{CONFIGURATION} $testenv_vars->{NETBIOSALIAS}");
 145         system("bin/nmblookup $testenv_vars->{CONFIGURATION} -U $testenv_vars->{SERVER_IP} $testenv_vars->{NETBIOSALIAS}");
 146         system("bin/nmblookup $testenv_vars->{CONFIGURATION} $testenv_vars->{SERVER}");
 147         system("bin/nmblookup $testenv_vars->{CONFIGURATION} -U $testenv_vars->{SERVER_IP} $testenv_vars->{SERVER}");
 148         system("bin/nmblookup $testenv_vars->{CONFIGURATION} $testenv_vars->{NETBIOSNAME}");
 149         system("bin/nmblookup $testenv_vars->{CONFIGURATION} -U $testenv_vars->{SERVER_IP} $testenv_vars->{NETBIOSNAME}");
 150         system("bin/nmblookup $testenv_vars->{CONFIGURATION} $testenv_vars->{NETBIOSALIAS}");
 151         system("bin/nmblookup $testenv_vars->{CONFIGURATION} -U $testenv_vars->{SERVER_IP} $testenv_vars->{NETBIOSALIAS}");
 152
 153         print $self->getlog_env($testenv_vars);
 154 }
 155
 156 sub write_ldb_file($$$)
 157 {
 158         my ($self, $file, $ldif) = @_;
 159
 160         open(LDIF, "|$self->{bindir}/ldbadd -H $file >/dev/null");
 161         print LDIF $ldif;
 162         return close(LDIF);
 163 }
 164
 165 sub add_wins_config($$)
 166 {
 167         my ($self, $privatedir) = @_;
 168
 169         return $self->write_ldb_file("$privatedir/wins_config.ldb", "
 170 dn: name=TORTURE_6,CN=PARTNERS
 171 objectClass: wreplPartner
 172 name: TORTURE_6
 173 address: 127.0.0.6
 174 pullInterval: 0
 175 pushChangeCount: 0
 176 type: 0x3
 177 ");
 178 }
 179
 180 sub mk_fedora_ds($$$)
 181 {
 182         my ($self, $ldapdir, $configuration) = @_;
 183
 184         my $fedora_ds_inf = "$ldapdir/fedorads.inf";
 185         my $fedora_ds_extra_ldif = "$ldapdir/fedorads-partitions.ldif";
 186
 187         #Make the subdirectory be as fedora DS would expect
 188         my $fedora_ds_dir = "$ldapdir/slapd-samba4";
 189
 190         my $pidfile = "$fedora_ds_dir/logs/slapd-samba4.pid";
 191
 192 my $dir = getcwd();
 193 chdir "$ENV{FEDORA_DS_PREFIX}/bin" || die;
 194         if (system("perl $ENV{FEDORA_DS_PREFIX}/bin/ds_newinst.pl $fedora_ds_inf >&2") != 0) {
 195             chdir $dir;
 196             die("perl $ENV{FEDORA_DS_PREFIX}/bin/ds_newinst.pl $fedora_ds_inf FAILED: $?");
 197         }
 198         chdir $dir || die;
 199
 200         system("cat $fedora_ds_extra_ldif >> $fedora_ds_dir/dse.ldif");
 201
 202         system("$self->{bindir}/ad2oLschema $configuration -H $ldapdir/schema-tmp.ldb --option=convert:target=fedora-ds -I $self->{setupdir}/schema-map-fedora-ds-1.0 -O $fedora_ds_dir/schema/99_ad.ldif >&2") == 0 or die("schema conversion for Fedora DS failed");
 203
 204         return ($fedora_ds_dir, $pidfile);
 205 }
 206
 207 sub mk_openldap($$$)
 208 {
 209         my ($self, $ldapdir, $configuration) = @_;
 210
 211         my $slapd_conf = "$ldapdir/slapd.conf";
 212         my $pidfile = "$ldapdir/slapd.pid";
 213         my $modconf = "$ldapdir/modules.conf";
 214
 215         #This uses the backend provision we just did, to read out the schema
 216         system("$self->{bindir}/ad2oLschema $configuration --option=convert:target=openldap -H $ldapdir/schema-tmp.ldb -I $self->{setupdir}/schema-map-openldap-2.3 -O $ldapdir/backend-schema.schema >&2") == 0 or die("schema conversion for OpenLDAP failed");
 217
 218         my $oldpath = $ENV{PATH};
 219         $ENV{PATH} = "/usr/local/sbin:/usr/sbin:/sbin:$ENV{PATH}";
 220
 221         unlink($modconf);
 222         open(CONF, ">$modconf"); close(CONF);
 223
 224         if (system("slaptest -u -f $slapd_conf >&2") != 0) {
 225                 open(CONF, ">$modconf");
 226                 # enable slapd modules
 227                 print CONF "
 228 modulepath      /usr/lib/ldap
 229 moduleload      back_bdb
 230 moduleload      syncprov
 231 ";
 232                 close(CONF);
 233         }
 234
 235         system("slaptest -u -f $slapd_conf") == 0 or die("slaptest still fails after adding modules");
 236
 237
 238         $ENV{PATH} = $oldpath;
 239
 240         return ($slapd_conf, $pidfile);
 241 }
 242
 243 sub provision($$$$$$)
 244 {
 245         my ($self, $prefix, $server_role, $netbiosname, $netbiosalias, $swiface, $password) = @_;
 246
 247         my $smbd_loglevel = 1;
 248         my $username = "administrator";
 249         my $domain = "SAMBADOMAIN";
 250         my $realm = "SAMBA.EXAMPLE.COM";
 251         my $dnsname = "samba.example.com";
 252         my $basedn = "dc=samba,dc=example,dc=com";
 253         my $root = ($ENV{USER} or $ENV{LOGNAME} or `whoami`);
 254         my $srcdir="$RealBin/..";
 255         -d $prefix or mkdir($prefix, 0777) or die("Unable to create $prefix");
 256         my $prefix_abs = abs_path($prefix);
 257         my $tmpdir = "$prefix_abs/tmp";
 258         my $etcdir = "$prefix_abs/etc";
 259         my $piddir = "$prefix_abs/pid";
 260         my $conffile = "$etcdir/smb.conf";
 261         my $krb5_config = "$etcdir/krb5.conf";
 262         my $privatedir = "$prefix_abs/private";
 263         my $ncalrpcdir = "$prefix_abs/ncalrpc";
 264         my $lockdir = "$prefix_abs/lockdir";
 265         my $winbindd_socket_dir = "$prefix_abs/winbind_socket";
 266
 267         my $configuration = "--configfile=$conffile";
 268         my $ldapdir = "$privatedir/ldap";
 269
 270         my $tlsdir = "$privatedir/tls";
 271
 272         my $ifaceipv4 = "127.0.0.$swiface";
 273         my $interfaces = "$ifaceipv4/8";
 274
 275         (system("rm -rf $prefix/*") == 0) or die("Unable to clean up");
 276         mkdir($_, 0777) foreach ($privatedir, $etcdir, $piddir, $ncalrpcdir, $lockdir,
 277                 $tmpdir);
 278
 279
 280         my $localdomain = $domain;
 281         $localdomain = $netbiosname if $server_role eq "member server";
 282         my $localrealm = $realm;
 283         $localrealm = $netbiosname if $server_role eq "member server";
 284         my $localbasedn = $basedn;
 285         $localbasedn = "DC=$netbiosname" if $server_role eq "member server";
 286
 287         open(CONFFILE, ">$conffile");
 288         print CONFFILE "
 289 [global]
 290         netbios name = $netbiosname
 291         netbios aliases = $netbiosalias
 292         workgroup = $domain
 293         realm = $realm
 294         private dir = $privatedir
 295         pid directory = $piddir
 296         ncalrpc dir = $ncalrpcdir
 297         lock dir = $lockdir
 298         setup directory = $self->{setupdir}
 299         js include = $srcdir/scripting/libjs
 300         winbindd socket directory = $winbindd_socket_dir
 301         name resolve order = bcast
 302         interfaces = $interfaces
 303         tls dh params file = $tlsdir/dhparms.pem
 304         panic action = $srcdir/script/gdb_backtrace \%PID% \%PROG%
 305         wins support = yes
 306         server role = $server_role
 307         max xmit = 32K
 308         server max protocol = SMB2
 309         notify:inotify = false
 310         ldb:nosync = true
 311         system:anonymous = true
 312 #We don't want to pass our self-tests if the PAC code is wrong
 313         gensec:require_pac = true
 314         log level = $smbd_loglevel
 315
 316 [tmp]
 317         path = $tmpdir
 318         read only = no
 319         ntvfs handler = posix
 320         posix:sharedelay = 100000
 321         posix:eadb = $lockdir/eadb.tdb
 322
 323 [cifs]
 324         read only = no
 325         ntvfs handler = cifs
 326         cifs:server = $netbiosname
 327         cifs:share = tmp
 328 #There is no username specified here, instead the client is expected
 329 #to log in with kerberos, and smbd will used delegated credentials.
 330
 331 [simple]
 332         path = $tmpdir
 333         read only = no
 334         ntvfs handler = simple
 335
 336 [cifsposix]
 337         copy = simple
 338         ntvfs handler = cifsposix
 339 ";
 340         close(CONFFILE);
 341
 342         die ("Unable to create key blobs") if
 343                 (system("TLSDIR=$tlsdir $RealBin/mk-keyblobs.sh") != 0);
 344
 345         open(KRB5CONF, ">$krb5_config");
 346         print KRB5CONF "
 347 #Generated krb5.conf for $realm
 348
 349 [libdefaults]
 350  default_realm = $realm
 351  dns_lookup_realm = false
 352  dns_lookup_kdc = false
 353  ticket_lifetime = 24h
 354  forwardable = yes
 355
 356 [realms]
 357  $realm = {
 358   kdc = 127.0.0.1:88
 359   admin_server = 127.0.0.1:88
 360   default_domain = $dnsname
 361  }
 362  $dnsname = {
 363   kdc = 127.0.0.1:88
 364   admin_server = 127.0.0.1:88
 365   default_domain = $dnsname
 366  }
 367  $domain = {
 368   kdc = 127.0.0.1:88
 369   admin_server = 127.0.0.1:88
 370   default_domain = $dnsname
 371  }
 372
 373 [appdefaults]
 374         pkinit_anchors = FILE:$tlsdir/ca.pem
 375
 376 [kdc]
 377         enable-pkinit = true
 378         pkinit_identity = FILE:$tlsdir/kdc.pem,$tlsdir/key.pem
 379         pkinit_anchors = FILE:$tlsdir/ca.pem
 380
 381 [domain_realm]
 382  .$dnsname = $realm
 383 ";
 384         close(KRB5CONF);
 385
 386 #Ensure the config file is valid before we start
 387         if (system("$self->{bindir}/testparm $configuration -v --suppress-prompt >/dev/null 2>&1") != 0) {
 388                 system("$self->{bindir}/testparm -v --suppress-prompt $configuration >&2");
 389                 die("Failed to create a valid smb.conf configuration!");
 390         }
 391
 392         (system("($self->{bindir}/testparm $configuration -v --suppress-prompt --parameter-name=\"netbios name\" --section-name=global 2> /dev/null | grep -i \"^$netbiosname\" ) >/dev/null 2>&1") == 0) or die("Failed to create a valid smb.conf configuration!");
 393
 394 my @provision_options = ("$self->{bindir}/smbscript", "$self->{setupdir}/provision");
 395         push (@provision_options, split(' ', $configuration));
 396         push (@provision_options, "--host-name=$netbiosname");
 397         push (@provision_options, "--host-ip=$ifaceipv4");
 398         push (@provision_options, "--quiet");
 399         push (@provision_options, "--domain=$localdomain");
 400         push (@provision_options, "--realm=$localrealm");
 401         push (@provision_options, "--adminpass=$password");
 402         push (@provision_options, "--krbtgtpass=krbtgt$password");
 403         push (@provision_options, "--machinepass=machine$password");
 404         push (@provision_options, "--root=$root");
 405         push (@provision_options, "--simple-bind-dn=cn=Manager,$localbasedn");
 406         push (@provision_options, "--password=$password");
 407         push (@provision_options, "--root=$root");
 408
 409         my $ldap_uri= "$ldapdir/ldapi";
 410         $ldap_uri =~ s|/|%2F|g;
 411         $ldap_uri = "ldapi://$ldap_uri";
 412
 413         my $ret = {
 414                 KRB5_CONFIG => $krb5_config,
 415                 PIDDIR => $piddir,
 416                 SERVER => $netbiosname,
 417                 SERVER_IP => $ifaceipv4,
 418                 NETBIOSNAME => $netbiosname,
 419                 NETBIOSALIAS => $netbiosalias,
 420                 LDAP_URI => $ldap_uri,
 421                 DOMAIN => $domain,
 422                 USERNAME => $username,
 423                 REALM => $realm,
 424                 PASSWORD => $password,
 425                 LDAPDIR => $ldapdir,
 426                 WINBINDD_SOCKET_DIR => $winbindd_socket_dir,
 427                 NCALRPCDIR => $ncalrpcdir,
 428                 CONFIGURATION => $configuration,
 429                 SOCKET_WRAPPER_DEFAULT_IFACE => $swiface
 430         };
 431
 432         if (defined($self->{ldap})) {
 433
 434                 push (@provision_options, "--ldap-backend=$ldap_uri");
 435                 system("$self->{bindir}/smbscript $self->{setupdir}/provision-backend $configuration --ldap-manager-pass=$password --root=$root --realm=$localrealm --host-name=$netbiosname --ldap-backend-type=$self->{ldap}>&2") == 0 or die("backend provision failed");
 436
 437                 if ($self->{ldap} eq "openldap") {
 438                        ($ret->{SLAPD_CONF}, $ret->{OPENLDAP_PIDFILE}) = $self->mk_openldap($ldapdir, $configuration) or die("Unable to create openldap directories");
 439                 } elsif ($self->{ldap} eq "fedora-ds") {
 440                        ($ret->{FEDORA_DS_DIR}, $ret->{FEDORA_DS_PIDFILE}) = $self->mk_fedora_ds($ldapdir, $configuration) or die("Unable to create fedora ds directories");
 441                        push (@provision_options, "--ldap-module=nsuniqueid");
 442                        push (@provision_options, "--aci=aci:: KHRhcmdldGF0dHIgPSAiKiIpICh2ZXJzaW9uIDMuMDthY2wgImZ1bGwgYWNjZXNzIHRvIGFsbCBieSBhbGwiO2FsbG93IChhbGwpKHVzZXJkbiA9ICJsZGFwOi8vL2FueW9uZSIpOykK");
 443                  }
 444
 445                 $self->slapd_start($ret) or
 446                         die("couldn't start slapd");
 447         }
 448
 449         (system(@provision_options) == 0) or die("Unable to provision");
 450
 451         if (defined($self->{ldap})) {
 452                 $self->slapd_stop($ret) or
 453                         die("couldn't stop slapd");
 454         }
 455
 456         return $ret;
 457 }
 458
 459 sub provision_member($$$)
 460 {
 461         my ($self, $prefix, $dcvars) = @_;
 462         print "PROVISIONING MEMBER...";
 463
 464         my $ret = $self->provision($prefix,
 465                                    "member server",
 466                                    "localmember3",
 467                                    "localmember",
 468                                    3,
 469                                    "localmemberpass");
 470
 471         $ret or die("Unable to provision");
 472
 473         my $cmd = "";
 474         $cmd .= "SOCKET_WRAPPER_DEFAULT_IFACE=\"$ret->{SOCKET_WRAPPER_DEFAULT_IFACE}\" ";
 475         $cmd .= "KRB5_CONFIG=\"$ret->{KRB5_CONFIG}\" ";
 476         $cmd .= "$self->{bindir}/net join $ret->{CONFIGURATION} $dcvars->{DOMAIN} member";
 477         $cmd .= " -U$dcvars->{USERNAME}\%$dcvars->{PASSWORD}";
 478
 479         system($cmd) == 0 or die("Join failed\n$cmd");
 480
 481         $ret->{SMBD_TEST_FIFO} = "$prefix/smbd_test.fifo";
 482         $ret->{SMBD_TEST_LOG} = "$prefix/smbd_test.log";
 483         $ret->{SMBD_TEST_LOG_POS} = 0;
 484
 485         $ret->{DC_SERVER} = $dcvars->{SERVER};
 486         $ret->{DC_SERVER_IP} = $dcvars->{SERVER_IP};
 487         $ret->{DC_NETBIOSNAME} = $dcvars->{NETBIOSNAME};
 488         $ret->{DC_NETBIOSALIAS} = $dcvars->{NETBIOSALIAS};
 489         $ret->{DC_USERNAME} = $dcvars->{USERNAME};
 490         $ret->{DC_PASSWORD} = $dcvars->{PASSWORD};
 491
 492         return $ret;
 493 }
 494
 495 sub provision_dc($$)
 496 {
 497         my ($self, $prefix) = @_;
 498
 499         print "PROVISIONING DC...";
 500         my $ret = $self->provision($prefix,
 501                                    "domain controller",
 502                                    "localdc1",
 503                                    "localdc",
 504                                    1,
 505                                    "localdcpass");
 506
 507         $self->add_wins_config("$prefix/private") or
 508                 die("Unable to add wins configuration");
 509
 510         $ret->{SMBD_TEST_FIFO} = "$prefix/smbd_test.fifo";
 511         $ret->{SMBD_TEST_LOG} = "$prefix/smbd_test.log";
 512         $ret->{SMBD_TEST_LOG_POS} = 0;
 513         return $ret;
 514 }
 515
 516 sub teardown_env($$)
 517 {
 518         my ($self, $envvars) = @_;
 519         my $pid;
 520
 521         close(DATA);
 522
 523         if (-f "$envvars->{PIDDIR}/smbd.pid" ) {
 524                 open(IN, "<$envvars->{PIDDIR}/smbd.pid") or die("unable to open smbd pid file");
 525                 $pid = <IN>;
 526                 close(IN);
 527
 528                 # Give the process 20 seconds to exit.  gcov needs
 529                 # this time to write out the covarge data
 530                 my $count = 0;
 531                 until (kill(0, $pid) == 0) {
 532                     # if no process sucessfully signalled, then we are done
 533                     sleep(1);
 534                     $count++;
 535                     last if $count > 20;
 536                 }
 537
 538                 # If it is still around, kill it
 539                 if ($count > 20) {
 540                     print "smbd process $pid took more than $count seconds to exit, killing\n";
 541                     kill 9, $pid;
 542                 }
 543         }
 544
 545         my $failed = $? >> 8;
 546
 547         $self->slapd_stop($envvars) if ($self->{ldap});
 548
 549         print $self->getlog_env($envvars);
 550
 551         return $failed;
 552 }
 553
 554 sub getlog_env($$)
 555 {
 556         my ($self, $envvars) = @_;
 557         my $title = "SMBD LOG of: $envvars->{NETBIOSNAME}\n";
 558         my $out = $title;
 559
 560         open(LOG, "<$envvars->{SMBD_TEST_LOG}");
 561
 562         seek(LOG, $envvars->{SMBD_TEST_LOG_POS}, SEEK_SET);
 563         while (<LOG>) {
 564                 $out .= $_;
 565         }
 566         $envvars->{SMBD_TEST_LOG_POS} = tell(LOG);
 567         close(LOG);
 568
 569         return "" if $out eq $title;
 570
 571         return $out;
 572 }
 573
 574 sub check_env($$)
 575 {
 576         my ($self, $envvars) = @_;
 577
 578         return 1 if (-p $envvars->{SMBD_TEST_FIFO});
 579
 580         print $self->getlog_env($envvars);
 581
 582         return 0;
 583 }
 584
 585 sub setup_env($$$)
 586 {
 587         my ($self, $envname, $path) = @_;
 588
 589         if ($envname eq "dc") {
 590                 return $self->setup_dc("$path/dc");
 591         } elsif ($envname eq "member") {
 592                 if (not defined($self->{vars}->{dc})) {
 593                         $self->setup_dc("$path/dc");
 594                 }
 595                 return $self->setup_member("$path/member", $self->{vars}->{dc});
 596         } else {
 597                 die("Samba4 can't provide environment '$envname'");
 598         }
 599 }
 600
 601 sub setup_member($$$$)
 602 {
 603         my ($self, $path, $dc_vars) = @_;
 604
 605         my $env = $self->provision_member($path, $dc_vars);
 606
 607         $self->check_or_start($env, ($ENV{SMBD_MAXTIME} or 7500));
 608
 609         $self->wait_for_start($env);
 610
 611         return $env;
 612 }
 613
 614 sub setup_dc($$)
 615 {
 616         my ($self, $path) = @_;
 617
 618         my $env = $self->provision_dc($path);
 619
 620         $self->check_or_start($env,
 621                 ($ENV{SMBD_MAXTIME} or 7500));
 622
 623         $self->wait_for_start($env);
 624
 625         $self->{vars}->{dc} = $env;
 626
 627         return $env;
 628 }
 629
 630 sub stop($)
 631 {
 632         my ($self) = @_;
 633 }
 634
 635 1;