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 "secserver") {
 106                 if (not defined($self->{vars}->{dc})) {
 107                         $self->setup_dc("$path/dc");
 108                 }
 109                 return $self->setup_secserver("$path/secserver", $self->{vars}->{dc});
 110         } elsif ($envname eq "member") {
 111                 if (not defined($self->{vars}->{dc})) {
 112                         $self->setup_dc("$path/dc");
 113                 }
 114                 return $self->setup_member("$path/member", $self->{vars}->{dc});
 115         } else {
 116                 return undef;
 117         }
 118 }
 119
 120 sub setup_dc($$)
 121 {
 122         my ($self, $path) = @_;
 123
 124         print "PROVISIONING DC...";
 125
 126         my $dc_options = "
 127         domain master = yes
 128         domain logons = yes
 129         lanman auth = yes
 130 ";
 131
 132         my $vars = $self->provision($path,
 133                                     "LOCALDC2",
 134                                     2,
 135                                     "localdc2pass",
 136                                     $dc_options);
 137
 138         $self->check_or_start($vars,
 139                               ($ENV{SMBD_MAXTIME} or 2700),
 140                                "yes", "yes", "yes");
 141
 142         $self->wait_for_start($vars);
 143
 144         $vars->{DC_SERVER} = $vars->{SERVER};
 145         $vars->{DC_SERVER_IP} = $vars->{SERVER_IP};
 146         $vars->{DC_NETBIOSNAME} = $vars->{NETBIOSNAME};
 147         $vars->{DC_USERNAME} = $vars->{USERNAME};
 148         $vars->{DC_PASSWORD} = $vars->{PASSWORD};
 149
 150         $self->{vars}->{dc} = $vars;
 151
 152         return $vars;
 153 }
 154
 155 sub setup_member($$$)
 156 {
 157         my ($self, $prefix, $dcvars) = @_;
 158
 159         print "PROVISIONING MEMBER...";
 160
 161         my $member_options = "
 162         security = domain
 163         server signing = on
 164 ";
 165         my $ret = $self->provision($prefix,
 166                                    "LOCALMEMBER3",
 167                                    3,
 168                                    "localmember3pass",
 169                                    $member_options);
 170
 171         $ret or die("Unable to provision");
 172
 173         my $net = $self->binpath("net");
 174         my $cmd = "";
 175         $cmd .= "SOCKET_WRAPPER_DEFAULT_IFACE=\"$ret->{SOCKET_WRAPPER_DEFAULT_IFACE}\" ";
 176         $cmd .= "$net join $ret->{CONFIGURATION} $dcvars->{DOMAIN} member";
 177         $cmd .= " -U$dcvars->{USERNAME}\%$dcvars->{PASSWORD}";
 178
 179         system($cmd) == 0 or die("Join failed\n$cmd");
 180
 181         $self->check_or_start($ret,
 182                               ($ENV{SMBD_MAXTIME} or 2700),
 183                                "yes", "yes", "yes");
 184
 185         $self->wait_for_start($ret);
 186
 187         $ret->{DC_SERVER} = $dcvars->{SERVER};
 188         $ret->{DC_SERVER_IP} = $dcvars->{SERVER_IP};
 189         $ret->{DC_NETBIOSNAME} = $dcvars->{NETBIOSNAME};
 190         $ret->{DC_USERNAME} = $dcvars->{USERNAME};
 191         $ret->{DC_PASSWORD} = $dcvars->{PASSWORD};
 192
 193         return $ret;
 194 }
 195
 196 sub setup_secshare($$)
 197 {
 198         my ($self, $path) = @_;
 199
 200         print "PROVISIONING server with security=share...";
 201
 202         my $secshare_options = "
 203         security = share
 204         lanman auth = yes
 205 ";
 206
 207         my $vars = $self->provision($path,
 208                                     "LOCALSHARE4",
 209                                     4,
 210                                     "local4pass",
 211                                     $secshare_options);
 212
 213         $self->check_or_start($vars,
 214                               ($ENV{SMBD_MAXTIME} or 2700),
 215                                "yes", "no", "yes");
 216
 217         $self->wait_for_start($vars);
 218
 219         $self->{vars}->{secshare} = $vars;
 220
 221         return $vars;
 222 }
 223
 224 sub setup_secserver($$$)
 225 {
 226         my ($self, $prefix, $dcvars) = @_;
 227
 228         print "PROVISIONING server with security=server...";
 229
 230         my $secserver_options = "
 231         security = server
 232         password server = $dcvars->{SERVER_IP}
 233 ";
 234
 235         my $ret = $self->provision($prefix,
 236                                    "LOCALSERVER5",
 237                                    5,
 238                                    "localserver5pass",
 239                                    $secserver_options);
 240
 241         $ret or die("Unable to provision");
 242
 243         $self->check_or_start($ret,
 244                               ($ENV{SMBD_MAXTIME} or 2700),
 245                                "yes", "no", "yes");
 246
 247         $self->wait_for_start($ret);
 248
 249         $ret->{DC_SERVER} = $dcvars->{SERVER};
 250         $ret->{DC_SERVER_IP} = $dcvars->{SERVER_IP};
 251         $ret->{DC_NETBIOSNAME} = $dcvars->{NETBIOSNAME};
 252         $ret->{DC_USERNAME} = $dcvars->{USERNAME};
 253         $ret->{DC_PASSWORD} = $dcvars->{PASSWORD};
 254
 255         return $ret;
 256 }
 257
 258 sub stop_sig_term($$) {
 259         my ($self, $pid) = @_;
 260         kill("USR1", $pid) or kill("ALRM", $pid) or warn("Unable to kill $pid: $!");
 261 }
 262
 263 sub stop_sig_kill($$) {
 264         my ($self, $pid) = @_;
 265         kill("ALRM", $pid) or warn("Unable to kill $pid: $!");
 266 }
 267
 268 sub write_pid($$$)
 269 {
 270         my ($env_vars, $app, $pid) = @_;
 271
 272         open(PID, ">$env_vars->{PIDDIR}/timelimit.$app.pid");
 273         print PID $pid;
 274         close(PID);
 275 }
 276
 277 sub read_pid($$)
 278 {
 279         my ($env_vars, $app) = @_;
 280
 281         open(PID, "<$env_vars->{PIDDIR}/timelimit.$app.pid");
 282         my $pid = <PID>;
 283         close(PID);
 284         return $pid;
 285 }
 286
 287 sub check_or_start($$$$$) {
 288         my ($self, $env_vars, $maxtime, $nmbd, $winbindd, $smbd) = @_;
 289
 290         unlink($env_vars->{NMBD_TEST_LOG});
 291         print "STARTING NMBD...";
 292         my $pid = fork();
 293         if ($pid == 0) {
 294                 open STDOUT, ">$env_vars->{NMBD_TEST_LOG}";
 295                 open STDERR, '>&STDOUT';
 296
 297                 SocketWrapper::set_default_iface($env_vars->{SOCKET_WRAPPER_DEFAULT_IFACE});
 298
 299                 $ENV{WINBINDD_SOCKET_DIR} = $env_vars->{WINBINDD_SOCKET_DIR};
 300                 $ENV{NMBD_SOCKET_DIR} = $env_vars->{NMBD_SOCKET_DIR};
 301
 302                 $ENV{NSS_WRAPPER_PASSWD} = $env_vars->{NSS_WRAPPER_PASSWD};
 303                 $ENV{NSS_WRAPPER_GROUP} = $env_vars->{NSS_WRAPPER_GROUP};
 304                 $ENV{NSS_WRAPPER_WINBIND_SO_PATH} = $env_vars->{NSS_WRAPPER_WINBIND_SO_PATH};
 305
 306                 if ($nmbd ne "yes") {
 307                         $SIG{USR1} = $SIG{ALRM} = $SIG{INT} = $SIG{QUIT} = $SIG{TERM} = sub {
 308                                 my $signame = shift;
 309                                 print("Skip nmbd received signal $signame");
 310                                 exit 0;
 311                         };
 312                         sleep($maxtime);
 313                         exit 0;
 314                 }
 315
 316                 my @optargs = ("-d0");
 317                 if (defined($ENV{NMBD_OPTIONS})) {
 318                         @optargs = split(/ /, $ENV{NMBD_OPTIONS});
 319                 }
 320
 321                 $ENV{MAKE_TEST_BINARY} = $self->binpath("nmbd");
 322
 323                 my @preargs = ($self->binpath("timelimit"), $maxtime);
 324                 if(defined($ENV{NMBD_VALGRIND})) {
 325                         @preargs = split(/ /, $ENV{NMBD_VALGRIND});
 326                 }
 327
 328                 exec(@preargs, $self->binpath("nmbd"), "-F", "--no-process-group", "-S", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start nmbd: $!");
 329         }
 330         write_pid($env_vars, "nmbd", $pid);
 331         print "DONE\n";
 332
 333         unlink($env_vars->{WINBINDD_TEST_LOG});
 334         print "STARTING WINBINDD...";
 335         $pid = fork();
 336         if ($pid == 0) {
 337                 open STDOUT, ">$env_vars->{WINBINDD_TEST_LOG}";
 338                 open STDERR, '>&STDOUT';
 339
 340                 SocketWrapper::set_default_iface($env_vars->{SOCKET_WRAPPER_DEFAULT_IFACE});
 341
 342                 $ENV{WINBINDD_SOCKET_DIR} = $env_vars->{WINBINDD_SOCKET_DIR};
 343                 $ENV{NMBD_SOCKET_DIR} = $env_vars->{NMBD_SOCKET_DIR};
 344
 345                 $ENV{NSS_WRAPPER_PASSWD} = $env_vars->{NSS_WRAPPER_PASSWD};
 346                 $ENV{NSS_WRAPPER_GROUP} = $env_vars->{NSS_WRAPPER_GROUP};
 347                 $ENV{NSS_WRAPPER_WINBIND_SO_PATH} = $env_vars->{NSS_WRAPPER_WINBIND_SO_PATH};
 348
 349                 if ($winbindd ne "yes") {
 350                         $SIG{USR1} = $SIG{ALRM} = $SIG{INT} = $SIG{QUIT} = $SIG{TERM} = sub {
 351                                 my $signame = shift;
 352                                 print("Skip winbindd received signal $signame");
 353                                 exit 0;
 354                         };
 355                         sleep($maxtime);
 356                         exit 0;
 357                 }
 358
 359                 my @optargs = ("-d0");
 360                 if (defined($ENV{WINBINDD_OPTIONS})) {
 361                         @optargs = split(/ /, $ENV{WINBINDD_OPTIONS});
 362                 }
 363
 364                 $ENV{MAKE_TEST_BINARY} = $self->binpath("winbindd");
 365
 366                 my @preargs = ($self->binpath("timelimit"), $maxtime);
 367                 if(defined($ENV{WINBINDD_VALGRIND})) {
 368                         @preargs = split(/ /, $ENV{WINBINDD_VALGRIND});
 369                 }
 370
 371                 exec(@preargs, $self->binpath("winbindd"), "-F", "--no-process-group", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start winbindd: $!");
 372         }
 373         write_pid($env_vars, "winbindd", $pid);
 374         print "DONE\n";
 375
 376         unlink($env_vars->{SMBD_TEST_LOG});
 377         print "STARTING SMBD...";
 378         $pid = fork();
 379         if ($pid == 0) {
 380                 open STDOUT, ">$env_vars->{SMBD_TEST_LOG}";
 381                 open STDERR, '>&STDOUT';
 382
 383                 SocketWrapper::set_default_iface($env_vars->{SOCKET_WRAPPER_DEFAULT_IFACE});
 384
 385                 $ENV{WINBINDD_SOCKET_DIR} = $env_vars->{WINBINDD_SOCKET_DIR};
 386                 $ENV{NMBD_SOCKET_DIR} = $env_vars->{NMBD_SOCKET_DIR};
 387
 388                 $ENV{NSS_WRAPPER_PASSWD} = $env_vars->{NSS_WRAPPER_PASSWD};
 389                 $ENV{NSS_WRAPPER_GROUP} = $env_vars->{NSS_WRAPPER_GROUP};
 390                 $ENV{NSS_WRAPPER_WINBIND_SO_PATH} = $env_vars->{NSS_WRAPPER_WINBIND_SO_PATH};
 391
 392                 if ($smbd ne "yes") {
 393                         $SIG{USR1} = $SIG{ALRM} = $SIG{INT} = $SIG{QUIT} = $SIG{TERM} = sub {
 394                                 my $signame = shift;
 395                                 print("Skip smbd received signal $signame");
 396                                 exit 0;
 397                         };
 398                         sleep($maxtime);
 399                         exit 0;
 400                 }
 401
 402                 $ENV{MAKE_TEST_BINARY} = $self->binpath("smbd");
 403                 my @optargs = ("-d0");
 404                 if (defined($ENV{SMBD_OPTIONS})) {
 405                         @optargs = split(/ /, $ENV{SMBD_OPTIONS});
 406                 }
 407                 my @preargs = ($self->binpath("timelimit"), $maxtime);
 408                 if(defined($ENV{SMBD_VALGRIND})) {
 409                         @preargs = split(/ /,$ENV{SMBD_VALGRIND});
 410                 }
 411                 exec(@preargs, $self->binpath("smbd"), "-F", "--no-process-group", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start smbd: $!");
 412         }
 413         write_pid($env_vars, "smbd", $pid);
 414         print "DONE\n";
 415
 416         return 0;
 417 }
 418
 419 sub provision($$$$$$)
 420 {
 421         my ($self, $prefix, $server, $swiface, $password, $extra_options) = @_;
 422
 423         ##
 424         ## setup the various environment variables we need
 425         ##
 426
 427         my %ret = ();
 428         my $server_ip = "127.0.0.$swiface";
 429         my $domain = "SAMBA-TEST";
 430
 431         my $unix_name = ($ENV{USER} or $ENV{LOGNAME} or `PATH=/usr/ucb:$ENV{PATH} whoami`);
 432         chomp $unix_name;
 433         my $unix_uid = $>;
 434         my $unix_gids_str = $);
 435         my @unix_gids = split(" ", $unix_gids_str);
 436
 437         my $prefix_abs = abs_path($prefix);
 438         my $bindir_abs = abs_path($self->{bindir});
 439         my $vfs_modulesdir_abs = ($ENV{VFSLIBDIR} or $bindir_abs);
 440
 441         my @dirs = ();
 442
 443         my $shrdir="$prefix_abs/share";
 444         push(@dirs,$shrdir);
 445
 446         my $libdir="$prefix_abs/lib";
 447         push(@dirs,$libdir);
 448
 449         my $piddir="$prefix_abs/pid";
 450         push(@dirs,$piddir);
 451
 452         my $privatedir="$prefix_abs/private";
 453         push(@dirs,$privatedir);
 454
 455         my $lockdir="$prefix_abs/lockdir";
 456         push(@dirs,$lockdir);
 457
 458         my $eventlogdir="$prefix_abs/lockdir/eventlog";
 459         push(@dirs,$eventlogdir);
 460
 461         my $logdir="$prefix_abs/logs";
 462         push(@dirs,$logdir);
 463
 464         my $driver32dir="$shrdir/W32X86";
 465         push(@dirs,$driver32dir);
 466
 467         my $driver64dir="$shrdir/x64";
 468         push(@dirs,$driver64dir);
 469
 470         my $driver40dir="$shrdir/WIN40";
 471         push(@dirs,$driver40dir);
 472
 473         my $ro_shrdir="$shrdir/root-tmp";
 474         push(@dirs,$ro_shrdir);
 475
 476         my $msdfs_shrdir="$shrdir/msdfsshare";
 477         push(@dirs,$msdfs_shrdir);
 478
 479         my $msdfs_deeppath="$msdfs_shrdir/deeppath";
 480         push(@dirs,$msdfs_deeppath);
 481
 482         # this gets autocreated by winbindd
 483         my $wbsockdir="$prefix_abs/winbindd";
 484         my $wbsockprivdir="$lockdir/winbindd_privileged";
 485
 486         my $nmbdsockdir="$prefix_abs/nmbd";
 487         unlink($nmbdsockdir);
 488
 489         ##
 490         ## create the test directory layout
 491         ##
 492         die ("prefix_abs = ''") if $prefix_abs eq "";
 493         die ("prefix_abs = '/'") if $prefix_abs eq "/";
 494
 495         mkdir($prefix_abs, 0777);
 496         print "CREATE TEST ENVIRONMENT IN '$prefix'...";
 497         system("rm -rf $prefix_abs/*");
 498         mkdir($_, 0777) foreach(@dirs);
 499
 500         ##
 501         ## create ro and msdfs share layout
 502         ##
 503
 504         chmod 0755, $ro_shrdir;
 505         my $unreadable_file = "$ro_shrdir/unreadable_file";
 506         open(UNREADABLE_FILE, ">$unreadable_file") or die("Unable to open $unreadable_file");
 507         close(UNREADABLE_FILE);
 508         chmod 0600, $unreadable_file;
 509
 510         my $msdfs_target = "$ro_shrdir/msdfs-target";
 511         open(MSDFS_TARGET, ">$msdfs_target") or die("Unable to open $msdfs_target");
 512         close(MSDFS_TARGET);
 513         chmod 0666, $msdfs_target;
 514         symlink "msdfs:$server_ip\\ro-tmp", "$msdfs_shrdir/msdfs-src1";
 515         symlink "msdfs:$server_ip\\ro-tmp", "$msdfs_shrdir/deeppath/msdfs-src2";
 516
 517         my $conffile="$libdir/server.conf";
 518
 519         my $nss_wrapper_pl = "$ENV{PERL} $self->{srcdir}/lib/nss_wrapper/nss_wrapper.pl";
 520         my $nss_wrapper_passwd = "$privatedir/passwd";
 521         my $nss_wrapper_group = "$privatedir/group";
 522
 523         my $mod_printer_pl = "$ENV{PERL} $self->{srcdir}/source3/script/tests/printing/modprinter.pl";
 524
 525         my @eventlog_list = ("dns server", "application");
 526
 527         ##
 528         ## calculate uids and gids
 529         ##
 530
 531         my ($max_uid, $max_gid);
 532         my ($uid_nobody, $uid_root);
 533         my ($gid_nobody, $gid_nogroup, $gid_root, $gid_domusers);
 534
 535         if ($unix_uid < 0xffff - 2) {
 536                 $max_uid = 0xffff;
 537         } else {
 538                 $max_uid = $unix_uid;
 539         }
 540
 541         $uid_root = $max_uid - 1;
 542         $uid_nobody = $max_uid - 2;
 543
 544         if ($unix_gids[0] < 0xffff - 3) {
 545                 $max_gid = 0xffff;
 546         } else {
 547                 $max_gid = $unix_gids[0];
 548         }
 549
 550         $gid_nobody = $max_gid - 1;
 551         $gid_nogroup = $max_gid - 2;
 552         $gid_root = $max_gid - 3;
 553         $gid_domusers = $max_gid - 4;
 554
 555         ##
 556         ## create conffile
 557         ##
 558
 559         open(CONF, ">$conffile") or die("Unable to open $conffile");
 560         print CONF "
 561 [global]
 562         netbios name = $server
 563         interfaces = $server_ip/8
 564         bind interfaces only = yes
 565         panic action = $self->{srcdir}/selftest/gdb_backtrace %d %\$(MAKE_TEST_BINARY)
 566
 567         workgroup = $domain
 568
 569         private dir = $privatedir
 570         pid directory = $piddir
 571         lock directory = $lockdir
 572         log file = $logdir/log.\%m
 573         log level = 0
 574         debug pid = yes
 575         max log size = 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 config * : range = 100000-200000
 609         winbind enum users = yes
 610         winbind enum groups = yes
 611
 612 #       min receivefile size = 4000
 613
 614         max protocol = SMB2
 615         read only = no
 616         server signing = auto
 617
 618         smbd:sharedelay = 100000
 619 #       smbd:writetimeupdatedelay = 500000
 620         map hidden = no
 621         map system = no
 622         map readonly = no
 623         store dos attributes = yes
 624         create mask = 755
 625         vfs objects = $vfs_modulesdir_abs/xattr_tdb.so $vfs_modulesdir_abs/streams_depot.so
 626
 627         printing = vlp
 628         print command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb print %p %s
 629         lpq command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb lpq %p
 630         lp rm command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb lprm %p %j
 631         lp pause command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb lppause %p %j
 632         lp resume command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb lpresume %p %j
 633         queue pause command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb queuepause %p
 634         queue resume command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb queueresume %p
 635         lpq cache time = 0
 636
 637         ncalrpc dir = $lockdir/ncalrpc
 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;