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.
10 use FindBin qw($RealBin);
15 my ($self, $binary) = @_;
17 if (defined($self->{bindir})) {
18 my $path = "$self->{bindir}/$binary";
19 -f $path or die("File $path doesn't exist");
27 my ($classname, $bindir) = @_;
28 my $self = { bindir => $bindir };
35 my ($self, $envvars) = @_;
37 my $smbdpid = read_pid($envvars, "smbd");
38 my $nmbdpid = read_pid($envvars, "nmbd");
39 my $winbinddpid = read_pid($envvars, "winbindd");
41 $self->stop_sig_term($smbdpid);
42 $self->stop_sig_term($nmbdpid);
43 $self->stop_sig_term($winbinddpid);
44 $self->stop_sig_kill($smbdpid);
45 $self->stop_sig_kill($nmbdpid);
46 $self->stop_sig_kill($winbinddpid);
51 sub getlog_env_app($$$)
53 my ($self, $envvars, $name) = @_;
55 my $title = "$name LOG of: $envvars->{NETBIOSNAME}\n";
58 open(LOG, "<".$envvars->{$name."_TEST_LOG"});
60 seek(LOG, $envvars->{$name."_TEST_LOG_POS"}, SEEK_SET);
64 $envvars->{$name."_TEST_LOG_POS"} = tell(LOG);
67 return "" if $out eq $title;
74 my ($self, $envvars) = @_;
77 $ret .= $self->getlog_env_app($envvars, "SMBD");
78 $ret .= $self->getlog_env_app($envvars, "NMBD");
79 $ret .= $self->getlog_env_app($envvars, "WINBINDD");
86 my ($self, $envvars) = @_;
94 my ($self, $envname, $path) = @_;
96 if ($envname eq "dc") {
97 return $self->setup_dc("$path/dc");
105 my ($self, $path) = @_;
107 my $vars = $self->provision($path, "dc");
109 $self->check_or_start($vars,
110 ($ENV{NMBD_MAXTIME} or 2700),
111 ($ENV{WINBINDD_MAXTIME} or 2700),
112 ($ENV{SMBD_MAXTIME} or 2700));
114 $self->wait_for_start($vars);
124 sub stop_sig_term($$) {
125 my ($self, $pid) = @_;
126 kill("USR1", $pid) or kill("ALRM", $pid) or warn("Unable to kill $pid: $!");
129 sub stop_sig_kill($$) {
130 my ($self, $pid) = @_;
131 kill("ALRM", $pid) or warn("Unable to kill $pid: $!");
136 my ($env_vars, $app, $pid) = @_;
138 open(PID, ">$env_vars->{PIDDIR}/timelimit.$app.pid");
145 my ($env_vars, $app) = @_;
147 open(PID, "<$env_vars->{PIDDIR}/timelimit.$app.pid");
153 sub check_or_start($$$$) {
154 my ($self, $env_vars, $nmbd_maxtime, $winbindd_maxtime, $smbd_maxtime) = @_;
156 unlink($env_vars->{NMBD_TEST_LOG});
157 print "STARTING NMBD...";
160 open STDOUT, ">$env_vars->{NMBD_TEST_LOG}";
161 open STDERR, '>&STDOUT';
163 SocketWrapper::set_default_iface($env_vars->{SOCKET_WRAPPER_DEFAULT_IFACE});
165 $ENV{WINBINDD_SOCKET_DIR} = $env_vars->{WINBINDD_SOCKET_DIR};
167 $ENV{NSS_WRAPPER_PASSWD} = $env_vars->{NSS_WRAPPER_PASSWD};
168 $ENV{NSS_WRAPPER_GROUP} = $env_vars->{NSS_WRAPPER_GROUP};
170 my @optargs = ("-d0");
171 if (defined($ENV{NMBD_OPTIONS})) {
172 @optargs = split(/ /, $ENV{NMBD_OPTIONS});
175 $ENV{MAKE_TEST_BINARY} = $self->binpath("nmbd");
177 my @preargs = ($self->binpath("timelimit"), $nmbd_maxtime);
178 if(defined($ENV{NMBD_VALGRIND})) {
179 @preargs = split(/ /, $ENV{NMBD_VALGRIND});
182 exec(@preargs, $self->binpath("nmbd"), "-F", "-S", "--no-process-group", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start nmbd: $!");
184 write_pid($env_vars, "nmbd", $pid);
187 unlink($env_vars->{WINBINDD_TEST_LOG});
188 print "STARTING WINBINDD...";
191 open STDOUT, ">$env_vars->{WINBINDD_TEST_LOG}";
192 open STDERR, '>&STDOUT';
194 SocketWrapper::set_default_iface($env_vars->{SOCKET_WRAPPER_DEFAULT_IFACE});
196 $ENV{WINBINDD_SOCKET_DIR} = $env_vars->{WINBINDD_SOCKET_DIR};
198 $ENV{NSS_WRAPPER_PASSWD} = $env_vars->{NSS_WRAPPER_PASSWD};
199 $ENV{NSS_WRAPPER_GROUP} = $env_vars->{NSS_WRAPPER_GROUP};
201 my @optargs = ("-d0");
202 if (defined($ENV{WINBINDD_OPTIONS})) {
203 @optargs = split(/ /, $ENV{WINBINDD_OPTIONS});
206 $ENV{MAKE_TEST_BINARY} = $self->binpath("winbindd");
208 my @preargs = ($self->binpath("timelimit"), $winbindd_maxtime);
209 if(defined($ENV{WINBINDD_VALGRIND})) {
210 @preargs = split(/ /, $ENV{WINBINDD_VALGRIND});
213 exec(@preargs, $self->binpath("winbindd"), "-F", "-S", "--no-process-group", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start winbindd: $!");
215 write_pid($env_vars, "winbindd", $pid);
218 unlink($env_vars->{SMBD_TEST_LOG});
219 print "STARTING SMBD...";
222 open STDOUT, ">$env_vars->{SMBD_TEST_LOG}";
223 open STDERR, '>&STDOUT';
225 SocketWrapper::set_default_iface($env_vars->{SOCKET_WRAPPER_DEFAULT_IFACE});
227 $ENV{WINBINDD_SOCKET_DIR} = $env_vars->{WINBINDD_SOCKET_DIR};
229 $ENV{NSS_WRAPPER_PASSWD} = $env_vars->{NSS_WRAPPER_PASSWD};
230 $ENV{NSS_WRAPPER_GROUP} = $env_vars->{NSS_WRAPPER_GROUP};
232 $ENV{MAKE_TEST_BINARY} = $self->binpath("smbd");
233 my @optargs = ("-d0");
234 if (defined($ENV{SMBD_OPTIONS})) {
235 @optargs = split(/ /, $ENV{SMBD_OPTIONS});
237 my @preargs = ($self->binpath("timelimit"), $smbd_maxtime);
238 if(defined($ENV{SMBD_VALGRIND})) {
239 @preargs = split(/ /,$ENV{SMBD_VALGRIND});
241 exec(@preargs, $self->binpath("smbd"), "-F", "-S", "--no-process-group", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start smbd: $!");
243 write_pid($env_vars, "smbd", $pid);
249 sub create_clientconf($$$)
251 my ($self, $prefix, $domain) = @_;
253 my $lockdir = "$prefix/locks";
254 my $logdir = "$prefix/logs";
255 my $piddir = "$prefix/pid";
256 my $privatedir = "$prefix/private";
257 my $scriptdir = "$RealBin/..";
258 my $conffile = "$prefix/smb.conf";
260 my $torture_interfaces='127.0.0.6/8,127.0.0.7/8,127.0.0.8/8,127.0.0.9/8,127.0.0.10/8,127.0.0.11/8';
261 open(CONF, ">$conffile");
266 private dir = $privatedir
267 pid directory = $piddir
268 lock directory = $lockdir
269 log file = $logdir/log.\%m
272 name resolve order = bcast
274 netbios name = TORTURE_6
275 interfaces = $torture_interfaces
276 panic action = $scriptdir/gdb_backtrace \%d %\$(MAKE_TEST_BINARY)
278 passdb backend = tdbsam
285 my ($self, $prefix, $role) = @_;
288 ## setup the various environment variables we need
292 my $server = "LOCALHOST2";
293 my $server_ip = "127.0.0.2";
294 my $domain = "SAMBA-TEST";
296 my $unix_name = ($ENV{USER} or $ENV{LOGNAME} or `PATH=/usr/ucb:$ENV{PATH} whoami`);
299 my $unix_gids_str = $);
300 my @unix_gids = split(" ", $unix_gids_str);
301 my $password = "test";
303 my $srcdir="$RealBin/..";
304 my $scriptdir="$srcdir/selftest";
305 my $prefix_abs = abs_path($prefix);
306 my $bindir_abs = abs_path($self->{bindir});
310 my $shrdir="$prefix_abs/share";
313 my $libdir="$prefix_abs/lib";
316 my $piddir="$prefix_abs/pid";
319 my $privatedir="$prefix_abs/private";
320 push(@dirs,$privatedir);
322 my $lockdir="$prefix_abs/lockdir";
323 push(@dirs,$lockdir);
325 my $logdir="$prefix_abs/logs";
328 # this gets autocreated by winbindd
329 my $wbsockdir="$prefix_abs/winbindd";
330 my $wbsockprivdir="$lockdir/winbindd_privileged";
333 ## create the test directory layout
335 mkdir($prefix_abs, 0777);
336 print "CREATE TEST ENVIRONMENT IN '$prefix'...";
337 system("rm -rf $prefix_abs/*");
338 mkdir($_, 0777) foreach(@dirs);
340 my $conffile="$libdir/server.conf";
342 my $nss_wrapper_pl = "$ENV{PERL} $srcdir/../lib/nss_wrapper/nss_wrapper.pl";
343 my $nss_wrapper_passwd = "$privatedir/passwd";
344 my $nss_wrapper_group = "$privatedir/group";
346 open(CONF, ">$conffile") or die("Unable to open $conffile");
349 netbios name = $server
350 interfaces = $server_ip/8
351 bind interfaces only = yes
352 panic action = $scriptdir/gdb_backtrace %d %\$(MAKE_TEST_BINARY)
356 private dir = $privatedir
357 pid directory = $piddir
358 lock directory = $lockdir
359 log file = $logdir/log.\%m
362 name resolve order = bcast
364 state directory = $lockdir
365 cache directory = $lockdir
367 passdb backend = tdbsam
372 print CONF "\tdomain master = yes\n";
373 print CONF "\tdomain logons = yes\n";
379 add user script = $nss_wrapper_pl --path $nss_wrapper_passwd --type passwd --action add --name %u
380 add machine script = $nss_wrapper_pl --path $nss_wrapper_passwd --type passwd --action add --name %u
381 delete user script = $nss_wrapper_pl --path $nss_wrapper_passwd --type passwd --action delete --name %u
384 kernel change notify = no
388 printcap name = /dev/null
390 winbindd:socket dir = $wbsockdir
391 idmap uid = 100000-200000
392 idmap gid = 100000-200000
394 # min receivefile size = 4000
397 smbd:sharedelay = 100000
398 smbd:writetimeupdatedelay = 500000
402 vfs objects = $bindir_abs/xattr_tdb.so $bindir_abs/streams_depot.so
404 #Include user defined custom parameters if set
405 $ENV{INCLUDE_CUSTOM_CONF}
411 hide unreadable = yes
414 hide unwriteable files = yes
429 ## create a test account
432 open(PASSWD, ">$nss_wrapper_passwd") or die("Unable to open $nss_wrapper_passwd");
434 nobody:x:65534:65533:nobody gecos:$prefix_abs:/bin/false
435 $unix_name:x:$unix_uid:$unix_gids[0]:$unix_name gecos:$prefix_abs:/bin/false
439 open(GROUP, ">$nss_wrapper_group") or die("Unable to open $nss_wrapper_group");
442 nogroup:x:65534:nobody
443 $unix_name-group:x:$unix_gids[0]:
447 $ENV{NSS_WRAPPER_PASSWD} = $nss_wrapper_passwd;
448 $ENV{NSS_WRAPPER_GROUP} = $nss_wrapper_group;
450 open(PWD, "|".$self->binpath("smbpasswd")." -c $conffile -L -s -a $unix_name >/dev/null");
451 print PWD "$password\n$password\n";
452 close(PWD) or die("Unable to set password for test account");
454 $ENV{NSS_WRAPPER_PASSWD} = undef;
455 $ENV{NSS_WRAPPER_GROUP} = undef;
459 $ret{SERVER_IP} = $server_ip;
460 $ret{NMBD_TEST_LOG} = "$prefix/nmbd_test.log";
461 $ret{WINBINDD_TEST_LOG} = "$prefix/winbindd_test.log";
462 $ret{SMBD_TEST_LOG} = "$prefix/smbd_test.log";
463 $ret{SERVERCONFFILE} = $conffile;
464 $ret{CONFIGURATION} ="-s $conffile";
465 $ret{SERVER} = $server;
466 $ret{USERNAME} = $unix_name;
467 $ret{DOMAIN} = $domain;
468 $ret{NETBIOSNAME} = $server;
469 $ret{PASSWORD} = $password;
470 $ret{PIDDIR} = $piddir;
471 $ret{WINBINDD_SOCKET_DIR} = $wbsockdir;
472 $ret{WINBINDD_PRIV_PIPE_DIR} = $wbsockprivdir;
473 $ret{SOCKET_WRAPPER_DEFAULT_IFACE} => 2,
474 $ret{NSS_WRAPPER_PASSWD} = $nss_wrapper_passwd;
475 $ret{NSS_WRAPPER_GROUP} = $nss_wrapper_group;
480 sub wait_for_start($$)
482 my ($self, $envvars) = @_;
484 # give time for nbt server to register its names
485 print "delaying for nbt name registration\n";
487 # This will return quickly when things are up, but be slow if we need to wait for (eg) SSL init
488 system($self->binpath("nmblookup") ." $envvars->{CONFIGURATION} -U $envvars->{SERVER_IP} __SAMBA__");
489 system($self->binpath("nmblookup") ." $envvars->{CONFIGURATION} __SAMBA__");
490 system($self->binpath("nmblookup") ." $envvars->{CONFIGURATION} -U 127.255.255.255 __SAMBA__");
491 system($self->binpath("nmblookup") ." $envvars->{CONFIGURATION} -U $envvars->{SERVER_IP} $envvars->{SERVER}");
492 system($self->binpath("nmblookup") ." $envvars->{CONFIGURATION} $envvars->{SERVER}");
493 # make sure smbd is also up set
494 print "wait for smbd\n";
495 system($self->binpath("smbclient") ." $envvars->{CONFIGURATION} -L $envvars->{SERVER_IP} -U% -p 139 | head -2");
496 system($self->binpath("smbclient") ." $envvars->{CONFIGURATION} -L $envvars->{SERVER_IP} -U% -p 139 | head -2");
498 print "creating BUILTIN\\Administrators\n";
499 $ENV{WINBINDD_SOCKET_DIR} = $envvars->{WINBINDD_SOCKET_DIR};
500 system($self->binpath("net") ." $envvars->{CONFIGURATION} sam createbuiltingroup Administrators");
501 $ENV{WINBINDD_SOCKET_DIR} = undef;
503 print $self->getlog_env($envvars);