selftest/Samba3: use 'debug pid=yes'
[idra/samba.git] / selftest / target / Samba3.pm
index a36721406c0fe4d108555bb4918edb7acfae655c..1ed76b1ab459ba982fc16d0e9e23d71e19562a38 100644 (file)
@@ -24,8 +24,10 @@ sub binpath($$)
 }
 
 sub new($$) {
-       my ($classname, $bindir) = @_;
-       my $self = { bindir => $bindir };
+       my ($classname, $bindir, $srcdir) = @_;
+       my $self = { bindir => $bindir,
+                    srcdir => $srcdir
+       };
        bless $self;
        return $self;
 }
@@ -98,6 +100,8 @@ sub setup_env($$$)
        
        if ($envname eq "dc") {
                return $self->setup_dc("$path/dc");
+       } elsif ($envname eq "secshare") {
+               return $self->setup_secshare("$path/secshare");
        } elsif ($envname eq "member") {
                if (not defined($self->{vars}->{dc})) {
                        $self->setup_dc("$path/dc");
@@ -117,6 +121,7 @@ sub setup_dc($$)
        my $dc_options = "
        domain master = yes
        domain logons = yes
+       lanman auth = yes
 ";
 
        my $vars = $self->provision($path,
@@ -131,6 +136,12 @@ sub setup_dc($$)
 
        $self->wait_for_start($vars);
 
+       $vars->{DC_SERVER} = $vars->{SERVER};
+       $vars->{DC_SERVER_IP} = $vars->{SERVER_IP};
+       $vars->{DC_NETBIOSNAME} = $vars->{NETBIOSNAME};
+       $vars->{DC_USERNAME} = $vars->{USERNAME};
+       $vars->{DC_PASSWORD} = $vars->{PASSWORD};
+
        $self->{vars}->{dc} = $vars;
 
        return $vars;
@@ -177,9 +188,32 @@ sub setup_member($$$)
        return $ret;
 }
 
-sub stop($)
+sub setup_secshare($$)
 {
-       my ($self) = @_;
+       my ($self, $path) = @_;
+
+       print "PROVISIONING server with security=share...";
+
+       my $secshare_options = "
+       security = share
+       lanman auth = yes
+";
+
+       my $vars = $self->provision($path,
+                                   "LOCALSHARE4",
+                                   4,
+                                   "local4pass",
+                                   $secshare_options);
+
+       $self->check_or_start($vars,
+                             ($ENV{SMBD_MAXTIME} or 2700),
+                              "yes", "no", "yes");
+
+       $self->wait_for_start($vars);
+
+       $self->{vars}->{secshare} = $vars;
+
+       return $vars;
 }
 
 sub stop_sig_term($$) {
@@ -224,9 +258,11 @@ sub check_or_start($$$$$) {
                SocketWrapper::set_default_iface($env_vars->{SOCKET_WRAPPER_DEFAULT_IFACE});
 
                $ENV{WINBINDD_SOCKET_DIR} = $env_vars->{WINBINDD_SOCKET_DIR};
+               $ENV{NMBD_SOCKET_DIR} = $env_vars->{NMBD_SOCKET_DIR};
 
                $ENV{NSS_WRAPPER_PASSWD} = $env_vars->{NSS_WRAPPER_PASSWD};
                $ENV{NSS_WRAPPER_GROUP} = $env_vars->{NSS_WRAPPER_GROUP};
+               $ENV{NSS_WRAPPER_WINBIND_SO_PATH} = $env_vars->{NSS_WRAPPER_WINBIND_SO_PATH};
 
                if ($nmbd ne "yes") {
                        $SIG{USR1} = $SIG{ALRM} = $SIG{INT} = $SIG{QUIT} = $SIG{TERM} = sub {
@@ -250,7 +286,7 @@ sub check_or_start($$$$$) {
                        @preargs = split(/ /, $ENV{NMBD_VALGRIND});
                }
 
-               exec(@preargs, $self->binpath("nmbd"), "-F", "-S", "--no-process-group", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start nmbd: $!");
+               exec(@preargs, $self->binpath("nmbd"), "-F", "--no-process-group", "-S", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start nmbd: $!");
        }
        write_pid($env_vars, "nmbd", $pid);
        print "DONE\n";
@@ -265,9 +301,11 @@ sub check_or_start($$$$$) {
                SocketWrapper::set_default_iface($env_vars->{SOCKET_WRAPPER_DEFAULT_IFACE});
 
                $ENV{WINBINDD_SOCKET_DIR} = $env_vars->{WINBINDD_SOCKET_DIR};
+               $ENV{NMBD_SOCKET_DIR} = $env_vars->{NMBD_SOCKET_DIR};
 
                $ENV{NSS_WRAPPER_PASSWD} = $env_vars->{NSS_WRAPPER_PASSWD};
                $ENV{NSS_WRAPPER_GROUP} = $env_vars->{NSS_WRAPPER_GROUP};
+               $ENV{NSS_WRAPPER_WINBIND_SO_PATH} = $env_vars->{NSS_WRAPPER_WINBIND_SO_PATH};
 
                if ($winbindd ne "yes") {
                        $SIG{USR1} = $SIG{ALRM} = $SIG{INT} = $SIG{QUIT} = $SIG{TERM} = sub {
@@ -291,7 +329,7 @@ sub check_or_start($$$$$) {
                        @preargs = split(/ /, $ENV{WINBINDD_VALGRIND});
                }
 
-               exec(@preargs, $self->binpath("winbindd"), "-F", "-S", "--no-process-group", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start winbindd: $!");
+               exec(@preargs, $self->binpath("winbindd"), "-F", "--no-process-group", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start winbindd: $!");
        }
        write_pid($env_vars, "winbindd", $pid);
        print "DONE\n";
@@ -306,9 +344,11 @@ sub check_or_start($$$$$) {
                SocketWrapper::set_default_iface($env_vars->{SOCKET_WRAPPER_DEFAULT_IFACE});
 
                $ENV{WINBINDD_SOCKET_DIR} = $env_vars->{WINBINDD_SOCKET_DIR};
+               $ENV{NMBD_SOCKET_DIR} = $env_vars->{NMBD_SOCKET_DIR};
 
                $ENV{NSS_WRAPPER_PASSWD} = $env_vars->{NSS_WRAPPER_PASSWD};
                $ENV{NSS_WRAPPER_GROUP} = $env_vars->{NSS_WRAPPER_GROUP};
+               $ENV{NSS_WRAPPER_WINBIND_SO_PATH} = $env_vars->{NSS_WRAPPER_WINBIND_SO_PATH};
 
                if ($smbd ne "yes") {
                        $SIG{USR1} = $SIG{ALRM} = $SIG{INT} = $SIG{QUIT} = $SIG{TERM} = sub {
@@ -329,7 +369,7 @@ sub check_or_start($$$$$) {
                if(defined($ENV{SMBD_VALGRIND})) {
                        @preargs = split(/ /,$ENV{SMBD_VALGRIND});
                }
-               exec(@preargs, $self->binpath("smbd"), "-F", "-S", "--no-process-group", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start smbd: $!");
+               exec(@preargs, $self->binpath("smbd"), "-F", "--no-process-group", "-s", $env_vars->{SERVERCONFFILE}, @optargs) or die("Unable to start smbd: $!");
        }
        write_pid($env_vars, "smbd", $pid);
        print "DONE\n";
@@ -337,39 +377,6 @@ sub check_or_start($$$$$) {
        return 0;
 }
 
-sub create_clientconf($$$)
-{
-       my ($self, $prefix, $domain) = @_;
-
-       my $lockdir = "$prefix/locks";
-       my $logdir = "$prefix/logs";
-       my $piddir = "$prefix/pid";
-       my $privatedir = "$prefix/private";
-       my $conffile = "$prefix/smb.conf";
-
-       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';
-       open(CONF, ">$conffile");
-       print CONF "
-[global]
-       workgroup = $domain
-
-       private dir = $privatedir
-       pid directory = $piddir
-       lock directory = $lockdir
-       log file = $logdir/log.\%m
-       log level = 0
-
-       name resolve order = bcast
-
-       netbios name = TORTURE_6
-       interfaces = $torture_interfaces
-       panic action = $RealBin/gdb_backtrace \%d %\$(MAKE_TEST_BINARY)
-
-       passdb backend = tdbsam
-       ";
-       close(CONF);
-}
-
 sub provision($$$$$$)
 {
        my ($self, $prefix, $server, $swiface, $password, $extra_options) = @_;
@@ -390,6 +397,7 @@ sub provision($$$$$$)
 
        my $prefix_abs = abs_path($prefix);
        my $bindir_abs = abs_path($self->{bindir});
+       my $vfs_modulesdir_abs = ($ENV{VFSLIBDIR} or $bindir_abs);
 
        my @dirs = ();
 
@@ -408,13 +416,37 @@ sub provision($$$$$$)
        my $lockdir="$prefix_abs/lockdir";
        push(@dirs,$lockdir);
 
+       my $eventlogdir="$prefix_abs/lockdir/eventlog";
+       push(@dirs,$eventlogdir);
+
        my $logdir="$prefix_abs/logs";
        push(@dirs,$logdir);
 
+       my $driver32dir="$shrdir/W32X86";
+       push(@dirs,$driver32dir);
+
+       my $driver64dir="$shrdir/x64";
+       push(@dirs,$driver64dir);
+
+       my $driver40dir="$shrdir/WIN40";
+       push(@dirs,$driver40dir);
+
+       my $ro_shrdir="$shrdir/root-tmp";
+       push(@dirs,$ro_shrdir);
+
+       my $msdfs_shrdir="$shrdir/msdfsshare";
+       push(@dirs,$msdfs_shrdir);
+
+       my $msdfs_deeppath="$msdfs_shrdir/deeppath";
+       push(@dirs,$msdfs_deeppath);
+
        # this gets autocreated by winbindd
        my $wbsockdir="$prefix_abs/winbindd";
        my $wbsockprivdir="$lockdir/winbindd_privileged";
 
+       my $nmbdsockdir="$prefix_abs/nmbd";
+       unlink($nmbdsockdir);
+
        ## 
        ## create the test directory layout
        ##
@@ -426,19 +458,72 @@ sub provision($$$$$$)
        system("rm -rf $prefix_abs/*");
        mkdir($_, 0777) foreach(@dirs);
 
+       ##
+       ## create ro and msdfs share layout
+       ##
+
+       chmod 0755, $ro_shrdir;
+       my $unreadable_file = "$ro_shrdir/unreadable_file";
+       open(UNREADABLE_FILE, ">$unreadable_file") or die("Unable to open $unreadable_file");
+       close(UNREADABLE_FILE);
+       chmod 0600, $unreadable_file;
+
+       my $msdfs_target = "$ro_shrdir/msdfs-target";
+       open(MSDFS_TARGET, ">$msdfs_target") or die("Unable to open $msdfs_target");
+       close(MSDFS_TARGET);
+       chmod 0666, $msdfs_target;
+       symlink "msdfs:$server_ip\\ro-tmp", "$msdfs_shrdir/msdfs-src1";
+       symlink "msdfs:$server_ip\\ro-tmp", "$msdfs_shrdir/deeppath/msdfs-src2";
+
        my $conffile="$libdir/server.conf";
 
-       my $nss_wrapper_pl = "$ENV{PERL} $RealBin/../lib/nss_wrapper/nss_wrapper.pl";
+       my $nss_wrapper_pl = "$ENV{PERL} $self->{srcdir}/lib/nss_wrapper/nss_wrapper.pl";
        my $nss_wrapper_passwd = "$privatedir/passwd";
        my $nss_wrapper_group = "$privatedir/group";
 
+       my $mod_printer_pl = "$ENV{PERL} $self->{srcdir}/source3/script/tests/printing/modprinter.pl";
+
+       my @eventlog_list = ("dns server", "application");
+
+       ##
+       ## calculate uids and gids
+       ##
+
+       my ($max_uid, $max_gid);
+       my ($uid_nobody, $uid_root);
+       my ($gid_nobody, $gid_nogroup, $gid_root, $gid_domusers);
+
+       if ($unix_uid < 0xffff - 2) {
+               $max_uid = 0xffff;
+       } else {
+               $max_uid = $unix_uid;
+       }
+
+       $uid_root = $max_uid - 1;
+       $uid_nobody = $max_uid - 2;
+
+       if ($unix_gids[0] < 0xffff - 3) {
+               $max_gid = 0xffff;
+       } else {
+               $max_gid = $unix_gids[0];
+       }
+
+       $gid_nobody = $max_gid - 1;
+       $gid_nogroup = $max_gid - 2;
+       $gid_root = $max_gid - 3;
+       $gid_domusers = $max_gid - 4;
+
+       ##
+       ## create conffile
+       ##
+
        open(CONF, ">$conffile") or die("Unable to open $conffile");
        print CONF "
 [global]
        netbios name = $server
        interfaces = $server_ip/8
        bind interfaces only = yes
-       panic action = $RealBin/gdb_backtrace %d %\$(MAKE_TEST_BINARY)
+       panic action = $self->{srcdir}/selftest/gdb_backtrace %d %\$(MAKE_TEST_BINARY)
 
        workgroup = $domain
 
@@ -447,6 +532,7 @@ sub provision($$$$$$)
        lock directory = $lockdir
        log file = $logdir/log.\%m
        log level = 0
+       debug pid = yes
 
        name resolve order = bcast
 
@@ -457,9 +543,18 @@ sub provision($$$$$$)
 
        time server = yes
 
-       add user script = $nss_wrapper_pl --path $nss_wrapper_passwd --type passwd --action add --name %u
-       add machine script = $nss_wrapper_pl --path $nss_wrapper_passwd --type passwd --action add --name %u
-       delete user script = $nss_wrapper_pl --path $nss_wrapper_passwd --type passwd --action delete --name %u
+       add user script =               $nss_wrapper_pl --passwd_path $nss_wrapper_passwd --type passwd --action add --name %u --gid $gid_nogroup
+       add group script =              $nss_wrapper_pl --group_path  $nss_wrapper_group  --type group  --action add --name %g
+       add machine script =            $nss_wrapper_pl --passwd_path $nss_wrapper_passwd --type passwd --action add --name %u --gid $gid_nogroup
+       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
+       delete user script =            $nss_wrapper_pl --passwd_path $nss_wrapper_passwd --type passwd --action delete --name %u
+       delete group script =           $nss_wrapper_pl --group_path  $nss_wrapper_group  --type group  --action delete --name %g
+       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
+
+       addprinter command =            $mod_printer_pl -a -s $conffile --
+       deleteprinter command =         $mod_printer_pl -d -s $conffile --
+
+       eventlog list = application \"dns server\"
 
        kernel oplocks = no
        kernel change notify = no
@@ -469,18 +564,39 @@ sub provision($$$$$$)
        printcap name = /dev/null
 
        winbindd:socket dir = $wbsockdir
+       nmbd:socket dir = $nmbdsockdir
        idmap uid = 100000-200000
        idmap gid = 100000-200000
+       winbind enum users = yes
+       winbind enum groups = yes
 
 #      min receivefile size = 4000
 
+       max protocol = SMB2
        read only = no
+       server signing = auto
+
        smbd:sharedelay = 100000
-       smbd:writetimeupdatedelay = 500000
-       map hidden = yes
-       map system = yes
+#      smbd:writetimeupdatedelay = 500000
+       map hidden = no
+       map system = no
+       map readonly = no
+       store dos attributes = yes
        create mask = 755
-       vfs objects = $bindir_abs/xattr_tdb.so $bindir_abs/streams_depot.so
+       vfs objects = $vfs_modulesdir_abs/xattr_tdb.so $vfs_modulesdir_abs/streams_depot.so
+
+       printing = vlp
+       print command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb print %p %s
+       lpq command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb lpq %p
+       lp rm command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb lprm %p %j
+       lp pause command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb lppause %p %j
+       lp resume command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb lpresume %p %j
+       queue pause command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb queuepause %p
+       queue resume command = $bindir_abs/vlp tdbfile=$lockdir/vlp.tdb queueresume %p
+       lpq cache time = 0
+
+       ncalrpc dir = $lockdir/ncalrpc
+       rpc_server:epmapper = embedded
 
        # Begin extra options
        $extra_options
@@ -496,22 +612,49 @@ sub provision($$$$$$)
        print CONF "
 [tmp]
        path = $shrdir
+[tmpguest]
+       path = $shrdir
+        guest ok = yes
+[guestonly]
+       path = $shrdir
+        guest only = yes
+        guest ok = yes
+[forceuser]
+       path = $shrdir
+        force user = $unix_name
+        guest ok = yes
+[forcegroup]
+       path = $shrdir
+        force group = nogroup
+        guest ok = yes
+[ro-tmp]
+       path = $ro_shrdir
+       guest ok = yes
+[msdfs-share]
+       path = $msdfs_shrdir
+       msdfs root = yes
+       guest ok = yes
 [hideunread]
        copy = tmp
        hide unreadable = yes
+[tmpcase]
+       copy = tmp
+       case sensitive = yes
 [hideunwrite]
        copy = tmp
        hide unwriteable files = yes
 [print1]
        copy = tmp
        printable = yes
-       printing = test
+
 [print2]
        copy = print1
 [print3]
        copy = print1
-[print4]
+[lp]
        copy = print1
+[print\$]
+       copy = tmp
        ";
        close(CONF);
 
@@ -520,19 +663,32 @@ sub provision($$$$$$)
        ##
 
        open(PASSWD, ">$nss_wrapper_passwd") or die("Unable to open $nss_wrapper_passwd");
-       print PASSWD "nobody:x:65534:65533:nobody gecos:$prefix_abs:/bin/false
-root:x:65533:65532:root gecos:$prefix_abs:/bin/false
+       print PASSWD "nobody:x:$uid_nobody:$gid_nobody:nobody gecos:$prefix_abs:/bin/false
 $unix_name:x:$unix_uid:$unix_gids[0]:$unix_name gecos:$prefix_abs:/bin/false
 ";
+       if ($unix_uid != 0) {
+               print PASSWD "root:x:$uid_root:$gid_root:root gecos:$prefix_abs:/bin/false";
+       }
        close(PASSWD);
 
        open(GROUP, ">$nss_wrapper_group") or die("Unable to open $nss_wrapper_group");
-       print GROUP "nobody:x:65533:
-nogroup:x:65534:nobody
+       print GROUP "nobody:x:$gid_nobody:
+nogroup:x:$gid_nogroup:nobody
 $unix_name-group:x:$unix_gids[0]:
+domusers:X:$gid_domusers:
 ";
+       if ($unix_gids[0] != 0) {
+               print GROUP "root:x:$gid_root:";
+       }
+
        close(GROUP);
 
+       foreach my $evlog (@eventlog_list) {
+               my $evlogtdb = "$eventlogdir/$evlog.tdb";
+               open(EVENTLOG, ">$evlogtdb") or die("Unable to open $evlogtdb");
+               close(EVENTLOG);
+       }
+
        $ENV{NSS_WRAPPER_PASSWD} = $nss_wrapper_passwd;
        $ENV{NSS_WRAPPER_GROUP} = $nss_wrapper_group;
 
@@ -540,9 +696,6 @@ $unix_name-group:x:$unix_gids[0]:
        print PWD "$password\n$password\n";
        close(PWD) or die("Unable to set password for test account");
 
-       delete $ENV{NSS_WRAPPER_PASSWD};
-       delete $ENV{NSS_WRAPPER_GROUP};
-
        print "DONE\n";
 
        $ret{SERVER_IP} = $server_ip;
@@ -556,15 +709,19 @@ $unix_name-group:x:$unix_gids[0]:
        $ret{CONFIGURATION} ="-s $conffile";
        $ret{SERVER} = $server;
        $ret{USERNAME} = $unix_name;
+       $ret{USERID} = $unix_uid;
        $ret{DOMAIN} = $domain;
        $ret{NETBIOSNAME} = $server;
        $ret{PASSWORD} = $password;
        $ret{PIDDIR} = $piddir;
        $ret{WINBINDD_SOCKET_DIR} = $wbsockdir;
        $ret{WINBINDD_PRIV_PIPE_DIR} = $wbsockprivdir;
+       $ret{NMBD_SOCKET_DIR} = $nmbdsockdir;
        $ret{SOCKET_WRAPPER_DEFAULT_IFACE} = $swiface;
        $ret{NSS_WRAPPER_PASSWD} = $nss_wrapper_passwd;
        $ret{NSS_WRAPPER_GROUP} = $nss_wrapper_group;
+       $ret{NSS_WRAPPER_WINBIND_SO_PATH} = $ENV{NSS_WRAPPER_WINBIND_SO_PATH};
+       $ret{LOCAL_PATH} = "$shrdir";
 
        return \%ret;
 }
@@ -587,6 +744,9 @@ sub wait_for_start($$)
        system($self->binpath("smbclient") ." $envvars->{CONFIGURATION} -L $envvars->{SERVER_IP} -U% -p 139 | head -2");
        system($self->binpath("smbclient") ." $envvars->{CONFIGURATION} -L $envvars->{SERVER_IP} -U% -p 139 | head -2");
 
+       # Ensure we have domain users mapped.
+       system($self->binpath("net") ." $envvars->{CONFIGURATION} groupmap add rid=513 unixgroup=domusers type=domain");
+
        print $self->getlog_env($envvars);
 }