selftest/target/Samba3.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 Samba3;
   7
   8 use strict;
   9 use Cwd qw(abs_path);
  10 use FindBin qw($RealBin);
  11 use POSIX;
  12
  13 sub binpath($$)
  14 {
  15         my ($self, $binary) = @_;
  16
  17         if (defined($self->{bindir})) {
  18                 my $path = "$self->{bindir}/$binary";
  19                 -f $path or die("File $path doesn't exist");
  20                 return $path;
  21         }
  22
  23         return $binary;
  24 }
  25
  26 sub new($$) {
  27         my ($classname, $bindir, $srcdir) = @_;
  28         my $self = { bindir => $bindir,
  29                      srcdir => $srcdir
  30         };
  31         bless $self;
  32         return $self;
  33 }
  34
  35 sub teardown_env($$)
  36 {
  37         my ($self, $envvars) = @_;
  38
  39         my $smbdpid = read_pid($envvars, "smbd");
  40         my $nmbdpid = read_pid($envvars, "nmbd");
  41         my $winbinddpid = read_pid($envvars, "winbindd");
  42
  43         $self->stop_sig_term($smbdpid);
  44         $self->stop_sig_term($nmbdpid);
  45         $self->stop_sig_term($winbinddpid);
  46
  47         sleep(2);
  48
  49         $self->stop_sig_kill($smbdpid);
  50         $self->stop_sig_kill($nmbdpid);
  51         $self->stop_sig_kill($winbinddpid);
  52
  53         return 0;
  54 }
  55
  56 sub getlog_env_app($$$)
  57 {
  58         my ($self, $envvars, $name) = @_;
  59
  60         my $title = "$name LOG of: $envvars->{NETBIOSNAME}\n";
  61         my $out = $title;
  62
  63         open(LOG, "<".$envvars->{$name."_TEST_LOG"});
  64
  65         seek(LOG, $envvars->{$name."_TEST_LOG_POS"}, SEEK_SET);
  66         while (<LOG>) {
  67                 $out .= $_;
  68         }
  69         $envvars->{$name."_TEST_LOG_POS"} = tell(LOG);
  70         close(LOG);
  71
  72         return "" if $out eq $title;
  73
  74         return $out;
  75 }
  76
  77 sub getlog_env($$)
  78 {
  79         my ($self, $envvars) = @_;
  80         my $ret = "";
  81
  82         $ret .= $self->getlog_env_app($envvars, "SMBD");
  83         $ret .= $self->getlog_env_app($envvars, "NMBD");
  84         $ret .= $self->getlog_env_app($envvars, "WINBINDD");
  85
  86         return $ret;
  87 }
  88
  89 sub check_env($$)
  90 {
  91         my ($self, $envvars) = @_;
  92
  93         # TODO ...
  94         return 1;
  95 }
  96
  97 sub setup_env($$$)
  98 {
  99         my ($self, $envname, $path) = @_;
 100
 101         if ($envname eq "dc") {
 102                 return $self->setup_dc("$path/dc");
 103         } elsif ($envname eq "secshare") {
 104                 return $self->setup_secshare("$path/secshare");
 105         } elsif ($envname eq "member") {
 106                 if (not defined($self->{vars}->{dc})) {
 107                         $self->setup_dc("$path/dc");
 108                 }
 109                 return $self->setup_member("$path/member", $self->{vars}->{dc});
 110         } else {
 111                 return undef;
 112         }
 113 }
 114
 115 sub setup_dc($$)
 116 {
 117         my ($self, $path) = @_;
 118
 119         print "PROVISIONING DC...";
 120
 121         my $dc_options = "
 122         domain master = yes
 123         domain logons = yes
 124         lanman auth = yes
 125 ";
 126
 127         my $vars = $self->provision($path,
 128                                     "LOCALDC2",
 129                                     2,
 130                                     "localdc2pass",
 131                                     $dc_options);
 132
 133         $self->check_or_start($vars,
 134                               ($ENV{SMBD_MAXTIME} or 2700),
 135                                "yes", "yes", "yes");
 136
 137         $self->wait_for_start($vars);
 138
 139         $vars->{DC_SERVER} = $vars->{SERVER};
 140         $vars->{DC_SERVER_IP} = $vars->{SERVER_IP};
 141         $vars->{DC_NETBIOSNAME} = $vars->{NETBIOSNAME};
 142         $vars->{DC_USERNAME} = $vars->{USERNAME};
 143         $vars->{DC_PASSWORD} = $vars->{PASSWORD};
 144
 145         $self->{vars}->{dc} = $vars;
 146
 147         return $vars;
 148 }
 149
 150 sub setup_member($$$)
 151 {
 152         my ($self, $prefix, $dcvars) = @_;
 153
 154         print "PROVISIONING MEMBER...";
 155
 156         my $member_options = "
 157         security = domain
 158         server signing = on
 159 ";
 160         my $ret = $self->provision($prefix,
 161                                    "LOCALMEMBER3",
 162                                    3,
 163                                    "localmember3pass",
 164                                    $member_options);
 165
 166         $ret or die("Unable to provision");
 167
 168         my $net = $self->binpath("net");
 169         my $cmd = "";
 170         $cmd .= "SOCKET_WRAPPER_DEFAULT_IFACE=\"$ret->{SOCKET_WRAPPER_DEFAULT_IFACE}\" ";
 171         $cmd .= "$net join $ret->{CONFIGURATION} $dcvars->{DOMAIN} member";
 172         $cmd .= " -U$dcvars->{USERNAME}\%$dcvars->{PASSWORD}";
 173
 174         system($cmd) == 0 or die("Join failed\n$cmd");
 175
 176         $self->check_or_start($ret,
 177                               ($ENV{SMBD_MAXTIME} or 2700),
 178                                "yes", "yes", "yes");
 179
 180         $self->wait_for_start($ret);
 181
 182         $ret->{DC_SERVER} = $dcvars->{SERVER};
 183         $ret->{DC_SERVER_IP} = $dcvars->{SERVER_IP};
 184         $ret->{DC_NETBIOSNAME} = $dcvars->{NETBIOSNAME};
 185         $ret->{DC_USERNAME} = $dcvars->{USERNAME};
 186         $ret->{DC_PASSWORD} = $dcvars->{PASSWORD};
 187
 188         return $ret;
 189 }
 190
 191 sub setup_admember($$$$)
 192 {
 193         my ($self, $prefix, $dcvars, $iface) = @_;
 194
 195         print "PROVISIONING S3 AD MEMBER$iface...";
 196
 197         my $member_options = "
 198         security = domain
 199         server signing = on
 200 ";
 201         my $ret = $self->provision($prefix,
 202                                    "LOCALADMEMBER$iface",
 203                                    $iface,
 204                                    "loCalMember${iface}Pass",
 205                                    $member_options);
 206
 207         $ret or die("Unable to provision");
 208
 209         my $net = $self->binpath("net");
 210         my $cmd = "";
 211         $cmd .= "SOCKET_WRAPPER_DEFAULT_IFACE=\"$ret->{SOCKET_WRAPPER_DEFAULT_IFACE}\" ";
 212         $cmd .= "selftest/gdb_run test $net join $ret->{CONFIGURATION} $dcvars->{DOMAIN} member";
 213         $cmd .= " -U$dcvars->{USERNAME}\%$dcvars->{PASSWORD} -d 10 2>&1 | tee s3member-join.txt";
 214
 215         system($cmd) == 0 or die("Join failed\n$cmd");
 216
 217         $self->check_or_start($ret,
 218                               ($ENV{SMBD_MAXTIME} or 2700),
 219                                "yes", "yes", "yes");
 220
 221         $self->wait_for_start($ret);
 222
 223         $ret->{DC_SERVER} = $dcvars->{SERVER};
 224         $ret->{DC_SERVER_IP} = $dcvars->{SERVER_IP};
 225         $ret->{DC_NETBIOSNAME} = $dcvars->{NETBIOSNAME};
 226         $ret->{DC_USERNAME} = $dcvars->{USERNAME};
 227         $ret->{DC_PASSWORD} = $dcvars->{PASSWORD};
 228
 229         return $ret;
 230 }
 231
 232 sub setup_secshare($$)
 233 {
 234         my ($self, $path) = @_;
 235
 236         print "PROVISIONING server with security=share...";
 237
 238         my $secshare_options = "
 239         security = share
 240         lanman auth = yes
 241 ";
 242
 243         my $vars = $self->provision($path,
 244                                     "LOCALSHARE4",
 245                                     4,
 246                                     "local4pass",
 247                                     $secshare_options);
 248
 249         $self->check_or_start($vars,
 250                               ($ENV{SMBD_MAXTIME} or 2700),
 251                                "yes", "no", "yes");
 252
 253         $self->wait_for_start($vars);
 254
 255         $self->{vars}->{secshare} = $vars;
 256
 257         return $vars;
 258 }
 259
 260 sub stop_sig_term($$) {
 261         my ($self, $pid) = @_;
 262         kill("USR1", $pid) or kill("ALRM", $pid) or warn("Unable to kill $pid: $!");
 263 }
 264
 265 sub stop_sig_kill($$) {
 266         my ($self, $pid) = @_;
 267         kill("ALRM", $pid) or warn("Unable to kill $pid: $!");
 268 }
 269
 270 sub write_pid($$$)
 271 {
 272         my ($env_vars, $app, $pid) = @_;
 273
 274         open(PID, ">$env_vars->{PIDDIR}/timelimit.$app.pid");
 275         print PID $pid;
 276         close(PID);
 277 }
 278
 279 sub read_pid($$)
 280 {
 281         my ($env_vars, $app) = @_;
 282
 283         open(PID, "<$env_vars->{PIDDIR}/timelimit.$app.pid");
 284         my $pid = <PID>;
 285         close(PID);
 286         return $pid;
 287 }
 288
 289 sub check_or_start($$$$$) {
 290         my ($self, $env_vars, $maxtime, $nmbd, $winbindd, $smbd) = @_;
 291
 292         unlink($env_vars->{NMBD_TEST_LOG});
 293         print "STARTING NMBD...";
 294         my $pid = fork();
 295         if ($pid == 0) {
 296                 open STDOUT, ">$env_vars->{NMBD_TEST_LOG}";
 297                 open STDERR, '>&STDOUT';
 298
 299                 SocketWrapper::set_default_iface($env_vars->{SOCKET_WRAPPER_DEFAULT_IFACE});
 300
 301                 $ENV{WINBINDD_SOCKET_DIR} = $env_vars->{WINBINDD_SOCKET_DIR};
 302                 $ENV{NMBD_SOCKET_DIR} = $env_vars->{NMBD_SOCKET_DIR};
 303
 304                 $ENV{NSS_WRAPPER_PASSWD} = $env_vars->{NSS_WRAPPER_PASSWD};
 305                 $ENV{NSS_WRAPPER_GROUP} = $env_vars->{NSS_WRAPPER_GROUP};
 306                 $ENV{NSS_WRAPPER_WINBIND_SO_PATH} = $env_vars->{NSS_WRAPPER_WINBIND_SO_PATH};
 307
 308                 if ($nmbd ne "yes") {
 309                         $SIG{USR1} = $SIG{ALRM} = $SIG{INT} = $SIG{QUIT} = $SIG{TERM} = sub {
 310                                 my $signame = shift;
 311                                 print("Skip nmbd received signal $signame");
 312                                 exit 0;
 313                         };
 314                         sleep($maxtime);
 315                         exit 0;
 316                 }
 317
 318                 my @optargs = ("-d0");
 319                 if (defined($ENV{NMBD_OPTIONS})) {
 320                         @optargs = split(/ /, $ENV{NMBD_OPTIONS});
 321                 }
 322
 323                 $ENV{MAKE_TEST_BINARY} = $self->binpath("nmbd");
 324
 325                 my @preargs = ($self->binpath("timelimit"), $maxtime);
 326                 if(defined($ENV{NMBD_VALGRIND})) {
 327                         @preargs = split(/ /, $ENV{NMBD_VALGRIND});
 328                 }
 329
 330                 exec(@preargs, $self->binpath("nmbd"), "-F", "--no-process-group", "-S", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start nmbd: $!");
 331         }
 332         write_pid($env_vars, "nmbd", $pid);
 333         print "DONE\n";
 334
 335         unlink($env_vars->{WINBINDD_TEST_LOG});
 336         print "STARTING WINBINDD...";
 337         $pid = fork();
 338         if ($pid == 0) {
 339                 open STDOUT, ">$env_vars->{WINBINDD_TEST_LOG}";
 340                 open STDERR, '>&STDOUT';
 341
 342                 SocketWrapper::set_default_iface($env_vars->{SOCKET_WRAPPER_DEFAULT_IFACE});
 343
 344                 $ENV{WINBINDD_SOCKET_DIR} = $env_vars->{WINBINDD_SOCKET_DIR};
 345                 $ENV{NMBD_SOCKET_DIR} = $env_vars->{NMBD_SOCKET_DIR};
 346
 347                 $ENV{NSS_WRAPPER_PASSWD} = $env_vars->{NSS_WRAPPER_PASSWD};
 348                 $ENV{NSS_WRAPPER_GROUP} = $env_vars->{NSS_WRAPPER_GROUP};
 349                 $ENV{NSS_WRAPPER_WINBIND_SO_PATH} = $env_vars->{NSS_WRAPPER_WINBIND_SO_PATH};
 350
 351                 if ($winbindd ne "yes") {
 352                         $SIG{USR1} = $SIG{ALRM} = $SIG{INT} = $SIG{QUIT} = $SIG{TERM} = sub {
 353                                 my $signame = shift;
 354                                 print("Skip winbindd received signal $signame");
 355                                 exit 0;
 356                         };
 357                         sleep($maxtime);
 358                         exit 0;
 359                 }
 360
 361                 my @optargs = ("-d0");
 362                 if (defined($ENV{WINBINDD_OPTIONS})) {
 363                         @optargs = split(/ /, $ENV{WINBINDD_OPTIONS});
 364                 }
 365
 366                 $ENV{MAKE_TEST_BINARY} = $self->binpath("winbindd");
 367
 368                 my @preargs = ($self->binpath("timelimit"), $maxtime);
 369                 if(defined($ENV{WINBINDD_VALGRIND})) {
 370                         @preargs = split(/ /, $ENV{WINBINDD_VALGRIND});
 371                 }
 372
 373                 exec(@preargs, $self->binpath("winbindd"), "-F", "--no-process-group", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start winbindd: $!");
 374         }
 375         write_pid($env_vars, "winbindd", $pid);
 376         print "DONE\n";
 377
 378         unlink($env_vars->{SMBD_TEST_LOG});
 379         print "STARTING SMBD...";
 380         $pid = fork();
 381         if ($pid == 0) {
 382                 open STDOUT, ">$env_vars->{SMBD_TEST_LOG}";
 383                 open STDERR, '>&STDOUT';
 384
 385                 SocketWrapper::set_default_iface($env_vars->{SOCKET_WRAPPER_DEFAULT_IFACE});
 386
 387                 $ENV{WINBINDD_SOCKET_DIR} = $env_vars->{WINBINDD_SOCKET_DIR};
 388                 $ENV{NMBD_SOCKET_DIR} = $env_vars->{NMBD_SOCKET_DIR};
 389
 390                 $ENV{NSS_WRAPPER_PASSWD} = $env_vars->{NSS_WRAPPER_PASSWD};
 391                 $ENV{NSS_WRAPPER_GROUP} = $env_vars->{NSS_WRAPPER_GROUP};
 392                 $ENV{NSS_WRAPPER_WINBIND_SO_PATH} = $env_vars->{NSS_WRAPPER_WINBIND_SO_PATH};
 393
 394                 if ($smbd ne "yes") {
 395                         $SIG{USR1} = $SIG{ALRM} = $SIG{INT} = $SIG{QUIT} = $SIG{TERM} = sub {
 396                                 my $signame = shift;
 397                                 print("Skip smbd received signal $signame");
 398                                 exit 0;
 399                         };
 400                         sleep($maxtime);
 401                         exit 0;
 402                 }
 403
 404                 $ENV{MAKE_TEST_BINARY} = $self->binpath("smbd");
 405                 my @optargs = ("-d0");
 406                 if (defined($ENV{SMBD_OPTIONS})) {
 407                         @optargs = split(/ /, $ENV{SMBD_OPTIONS});
 408                 }
 409                 my @preargs = ($self->binpath("timelimit"), $maxtime);
 410                 if(defined($ENV{SMBD_VALGRIND})) {
 411                         @preargs = split(/ /,$ENV{SMBD_VALGRIND});
 412                 }
 413                 exec(@preargs, $self->binpath("smbd"), "-F", "--no-process-group", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start smbd: $!");
 414         }
 415         write_pid($env_vars, "smbd", $pid);
 416         print "DONE\n";
 417
 418         return 0;
 419 }
 420
 421 sub provision($$$$$$)
 422 {
 423         my ($self, $prefix, $server, $swiface, $password, $extra_options) = @_;
 424
 425         ##
 426         ## setup the various environment variables we need
 427         ##
 428
 429         my %ret = ();
 430         my $server_ip = "127.0.0.$swiface";
 431         my $domain = "SAMBA-TEST";
 432
 433         my $unix_name = ($ENV{USER} or $ENV{LOGNAME} or `PATH=/usr/ucb:$ENV{PATH} whoami`);
 434         chomp $unix_name;
 435         my $unix_uid = $>;
 436         my $unix_gids_str = $);
 437         my @unix_gids = split(" ", $unix_gids_str);
 438
 439         my $prefix_abs = abs_path($prefix);
 440         my $bindir_abs = abs_path($self->{bindir});
 441         my $vfs_modulesdir_abs = ($ENV{VFSLIBDIR} or $bindir_abs);
 442
 443         my @dirs = ();
 444
 445         my $shrdir="$prefix_abs/share";
 446         push(@dirs,$shrdir);
 447
 448         my $libdir="$prefix_abs/lib";
 449         push(@dirs,$libdir);
 450
 451         my $piddir="$prefix_abs/pid";
 452         push(@dirs,$piddir);
 453
 454         my $privatedir="$prefix_abs/private";
 455         push(@dirs,$privatedir);
 456
 457         my $lockdir="$prefix_abs/lockdir";
 458         push(@dirs,$lockdir);
 459
 460         my $eventlogdir="$prefix_abs/lockdir/eventlog";
 461         push(@dirs,$eventlogdir);
 462
 463         my $logdir="$prefix_abs/logs";
 464         push(@dirs,$logdir);
 465
 466         my $driver32dir="$shrdir/W32X86";
 467         push(@dirs,$driver32dir);
 468
 469         my $driver64dir="$shrdir/x64";
 470         push(@dirs,$driver64dir);
 471
 472         my $driver40dir="$shrdir/WIN40";
 473         push(@dirs,$driver40dir);
 474
 475         my $ro_shrdir="$shrdir/root-tmp";
 476         push(@dirs,$ro_shrdir);
 477
 478         my $msdfs_shrdir="$shrdir/msdfsshare";
 479         push(@dirs,$msdfs_shrdir);
 480
 481         my $msdfs_deeppath="$msdfs_shrdir/deeppath";
 482         push(@dirs,$msdfs_deeppath);
 483
 484         # this gets autocreated by winbindd
 485         my $wbsockdir="$prefix_abs/winbindd";
 486         my $wbsockprivdir="$lockdir/winbindd_privileged";
 487
 488         my $nmbdsockdir="$prefix_abs/nmbd";
 489         unlink($nmbdsockdir);
 490
 491         ##
 492         ## create the test directory layout
 493         ##
 494         die ("prefix_abs = ''") if $prefix_abs eq "";
 495         die ("prefix_abs = '/'") if $prefix_abs eq "/";
 496
 497         mkdir($prefix_abs, 0777);
 498         print "CREATE TEST ENVIRONMENT IN '$prefix'...";
 499         system("rm -rf $prefix_abs/*");
 500         mkdir($_, 0777) foreach(@dirs);
 501
 502         ##
 503         ## create ro and msdfs share layout
 504         ##
 505
 506         chmod 0755, $ro_shrdir;
 507         my $unreadable_file = "$ro_shrdir/unreadable_file";
 508         open(UNREADABLE_FILE, ">$unreadable_file") or die("Unable to open $unreadable_file");
 509         close(UNREADABLE_FILE);
 510         chmod 0600, $unreadable_file;
 511
 512         my $msdfs_target = "$ro_shrdir/msdfs-target";
 513         open(MSDFS_TARGET, ">$msdfs_target") or die("Unable to open $msdfs_target");
 514         close(MSDFS_TARGET);
 515         chmod 0666, $msdfs_target;
 516         symlink "msdfs:$server_ip\\ro-tmp", "$msdfs_shrdir/msdfs-src1";
 517         symlink "msdfs:$server_ip\\ro-tmp", "$msdfs_shrdir/deeppath/msdfs-src2";
 518
 519         my $conffile="$libdir/server.conf";
 520
 521         my $nss_wrapper_pl = "$ENV{PERL} $self->{srcdir}/lib/nss_wrapper/nss_wrapper.pl";
 522         my $nss_wrapper_passwd = "$privatedir/passwd";
 523         my $nss_wrapper_group = "$privatedir/group";
 524
 525         my $mod_printer_pl = "$ENV{PERL} $self->{srcdir}/source3/script/tests/printing/modprinter.pl";
 526
 527         my @eventlog_list = ("dns server", "application");
 528
 529         ##
 530         ## calculate uids and gids
 531         ##
 532
 533         my ($max_uid, $max_gid);
 534         my ($uid_nobody, $uid_root);
 535         my ($gid_nobody, $gid_nogroup, $gid_root, $gid_domusers);
 536
 537         if ($unix_uid < 0xffff - 2) {
 538                 $max_uid = 0xffff;
 539         } else {
 540                 $max_uid = $unix_uid;
 541         }
 542
 543         $uid_root = $max_uid - 1;
 544         $uid_nobody = $max_uid - 2;
 545
 546         if ($unix_gids[0] < 0xffff - 3) {
 547                 $max_gid = 0xffff;
 548         } else {
 549                 $max_gid = $unix_gids[0];
 550         }
 551
 552         $gid_nobody = $max_gid - 1;
 553         $gid_nogroup = $max_gid - 2;
 554         $gid_root = $max_gid - 3;
 555         $gid_domusers = $max_gid - 4;
 556
 557         ##
 558         ## create conffile
 559         ##
 560
 561         open(CONF, ">$conffile") or die("Unable to open $conffile");
 562         print CONF "
 563 [global]
 564         netbios name = $server
 565         interfaces = $server_ip/8
 566         bind interfaces only = yes
 567         panic action = $self->{srcdir}/selftest/gdb_backtrace %d %\$(MAKE_TEST_BINARY)
 568
 569         workgroup = $domain
 570
 571         private dir = $privatedir
 572         pid directory = $piddir
 573         lock directory = $lockdir
 574         log file = $logdir/log.\%m
 575         log level = 0
 576
 577         name resolve order = bcast
 578
 579         state directory = $lockdir
 580         cache directory = $lockdir
 581
 582         passdb backend = tdbsam
 583
 584         time server = yes
 585
 586         add user script =               $nss_wrapper_pl --passwd_path $nss_wrapper_passwd --type passwd --action add --name %u --gid $gid_nogroup
 587         add group script =              $nss_wrapper_pl --group_path  $nss_wrapper_group  --type group  --action add --name %g
 588         add machine script =            $nss_wrapper_pl --passwd_path $nss_wrapper_passwd --type passwd --action add --name %u --gid $gid_nogroup
 589         add user to group script =      $nss_wrapper_pl --passwd_path $nss_wrapper_passwd --type member --action add --member %u --name %g --group_path $nss_wrapper_group
 590         delete user script =            $nss_wrapper_pl --passwd_path $nss_wrapper_passwd --type passwd --action delete --name %u
 591         delete group script =           $nss_wrapper_pl --group_path  $nss_wrapper_group  --type group  --action delete --name %g
 592         delete user from group script = $nss_wrapper_pl --passwd_path $nss_wrapper_passwd --type member --action delete --member %u --name %g --group_path $nss_wrapper_group
 593
 594         addprinter command =            $mod_printer_pl -a -s $conffile --
 595         deleteprinter command =         $mod_printer_pl -d -s $conffile --
 596
 597         eventlog list = application \"dns server\"
 598
 599         kernel oplocks = no
 600         kernel change notify = no
 601
 602         syslog = no
 603         printing = bsd
 604         printcap name = /dev/null
 605
 606         winbindd:socket dir = $wbsockdir
 607         nmbd:socket dir = $nmbdsockdir
 608         idmap uid = 100000-200000
 609         idmap gid = 100000-200000
 610         winbind enum users = yes
 611         winbind enum groups = yes
 612
 613 #       min receivefile size = 4000
 614
 615         max protocol = SMB2
 616         read only = no
 617         server signing = auto
 618
 619         smbd:sharedelay = 100000
 620 #       smbd:writetimeupdatedelay = 500000
 621         map hidden = no
 622         map system = no
 623         map readonly = no
 624         store dos attributes = yes
 625         create mask = 755
 626         vfs objects = $vfs_modulesdir_abs/xattr_tdb.so $vfs_modulesdir_abs/streams_depot.so
 627
 628         printing = vlp
 629         print command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb print %p %s
 630         lpq command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb lpq %p
 631         lp rm command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb lprm %p %j
 632         lp pause command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb lppause %p %j
 633         lp resume command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb lpresume %p %j
 634         queue pause command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb queuepause %p
 635         queue resume command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb queueresume %p
 636         lpq cache time = 0
 637
 638         rpc_server:epmapper = embedded
 639
 640         # Begin extra options
 641         $extra_options
 642         # End extra options
 643
 644         #Include user defined custom parameters if set
 645 ";
 646
 647         if (defined($ENV{INCLUDE_CUSTOM_CONF})) {
 648                 print CONF "\t$ENV{INCLUDE_CUSTOM_CONF}\n";
 649         }
 650
 651         print CONF "
 652 [tmp]
 653         path = $shrdir
 654 [tmpguest]
 655         path = $shrdir
 656         guest ok = yes
 657 [guestonly]
 658         path = $shrdir
 659         guest only = yes
 660         guest ok = yes
 661 [forceuser]
 662         path = $shrdir
 663         force user = $unix_name
 664         guest ok = yes
 665 [forcegroup]
 666         path = $shrdir
 667         force group = nogroup
 668         guest ok = yes
 669 [ro-tmp]
 670         path = $ro_shrdir
 671         guest ok = yes
 672 [msdfs-share]
 673         path = $msdfs_shrdir
 674         msdfs root = yes
 675         guest ok = yes
 676 [hideunread]
 677         copy = tmp
 678         hide unreadable = yes
 679 [tmpcase]
 680         copy = tmp
 681         case sensitive = yes
 682 [hideunwrite]
 683         copy = tmp
 684         hide unwriteable files = yes
 685 [print1]
 686         copy = tmp
 687         printable = yes
 688
 689 [print2]
 690         copy = print1
 691 [print3]
 692         copy = print1
 693 [lp]
 694         copy = print1
 695 [print\$]
 696         copy = tmp
 697         ";
 698         close(CONF);
 699
 700         ##
 701         ## create a test account
 702         ##
 703
 704         open(PASSWD, ">$nss_wrapper_passwd") or die("Unable to open $nss_wrapper_passwd");
 705         print PASSWD "nobody:x:$uid_nobody:$gid_nobody:nobody gecos:$prefix_abs:/bin/false
 706 $unix_name:x:$unix_uid:$unix_gids[0]:$unix_name gecos:$prefix_abs:/bin/false
 707 ";
 708         if ($unix_uid != 0) {
 709                 print PASSWD "root:x:$uid_root:$gid_root:root gecos:$prefix_abs:/bin/false";
 710         }
 711         close(PASSWD);
 712
 713         open(GROUP, ">$nss_wrapper_group") or die("Unable to open $nss_wrapper_group");
 714         print GROUP "nobody:x:$gid_nobody:
 715 nogroup:x:$gid_nogroup:nobody
 716 $unix_name-group:x:$unix_gids[0]:
 717 domusers:X:$gid_domusers:
 718 ";
 719         if ($unix_gids[0] != 0) {
 720                 print GROUP "root:x:$gid_root:";
 721         }
 722
 723         close(GROUP);
 724
 725         foreach my $evlog (@eventlog_list) {
 726                 my $evlogtdb = "$eventlogdir/$evlog.tdb";
 727                 open(EVENTLOG, ">$evlogtdb") or die("Unable to open $evlogtdb");
 728                 close(EVENTLOG);
 729         }
 730
 731         $ENV{NSS_WRAPPER_PASSWD} = $nss_wrapper_passwd;
 732         $ENV{NSS_WRAPPER_GROUP} = $nss_wrapper_group;
 733
 734         open(PWD, "|".$self->binpath("smbpasswd")." -c $conffile -L -s -a $unix_name >/dev/null");
 735         print PWD "$password\n$password\n";
 736         close(PWD) or die("Unable to set password for test account");
 737
 738         print "DONE\n";
 739
 740         $ret{SERVER_IP} = $server_ip;
 741         $ret{NMBD_TEST_LOG} = "$prefix/nmbd_test.log";
 742         $ret{NMBD_TEST_LOG_POS} = 0;
 743         $ret{WINBINDD_TEST_LOG} = "$prefix/winbindd_test.log";
 744         $ret{WINBINDD_TEST_LOG_POS} = 0;
 745         $ret{SMBD_TEST_LOG} = "$prefix/smbd_test.log";
 746         $ret{SMBD_TEST_LOG_POS} = 0;
 747         $ret{SERVERCONFFILE} = $conffile;
 748         $ret{CONFIGURATION} ="-s $conffile";
 749         $ret{SERVER} = $server;
 750         $ret{USERNAME} = $unix_name;
 751         $ret{USERID} = $unix_uid;
 752         $ret{DOMAIN} = $domain;
 753         $ret{NETBIOSNAME} = $server;
 754         $ret{PASSWORD} = $password;
 755         $ret{PIDDIR} = $piddir;
 756         $ret{WINBINDD_SOCKET_DIR} = $wbsockdir;
 757         $ret{WINBINDD_PRIV_PIPE_DIR} = $wbsockprivdir;
 758         $ret{NMBD_SOCKET_DIR} = $nmbdsockdir;
 759         $ret{SOCKET_WRAPPER_DEFAULT_IFACE} = $swiface;
 760         $ret{NSS_WRAPPER_PASSWD} = $nss_wrapper_passwd;
 761         $ret{NSS_WRAPPER_GROUP} = $nss_wrapper_group;
 762         $ret{NSS_WRAPPER_WINBIND_SO_PATH} = $ENV{NSS_WRAPPER_WINBIND_SO_PATH};
 763         $ret{LOCAL_PATH} = "$shrdir";
 764
 765         return \%ret;
 766 }
 767
 768 sub wait_for_start($$)
 769 {
 770         my ($self, $envvars) = @_;
 771
 772         # give time for nbt server to register its names
 773         print "delaying for nbt name registration\n";
 774         sleep(10);
 775         # This will return quickly when things are up, but be slow if we need to wait for (eg) SSL init
 776         system($self->binpath("nmblookup") ." $envvars->{CONFIGURATION} -U $envvars->{SERVER_IP} __SAMBA__");
 777         system($self->binpath("nmblookup") ." $envvars->{CONFIGURATION} __SAMBA__");
 778         system($self->binpath("nmblookup") ." $envvars->{CONFIGURATION} -U 127.255.255.255 __SAMBA__");
 779         system($self->binpath("nmblookup") ." $envvars->{CONFIGURATION} -U $envvars->{SERVER_IP} $envvars->{SERVER}");
 780         system($self->binpath("nmblookup") ." $envvars->{CONFIGURATION} $envvars->{SERVER}");
 781         # make sure smbd is also up set
 782         print "wait for smbd\n";
 783         system($self->binpath("smbclient") ." $envvars->{CONFIGURATION} -L $envvars->{SERVER_IP} -U% -p 139 | head -2");
 784         system($self->binpath("smbclient") ." $envvars->{CONFIGURATION} -L $envvars->{SERVER_IP} -U% -p 139 | head -2");
 785
 786         # Ensure we have domain users mapped.
 787         system($self->binpath("net") ." $envvars->{CONFIGURATION} groupmap add rid=513 unixgroup=domusers type=domain");
 788
 789         print $self->getlog_env($envvars);
 790 }
 791
 792 1;