sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-02-28 01:58:17 +03:00
Code

selftest: Create a share with %D %U and %G substituion

Browse Source 
Signed-off-by: Andreas Schneider <asn@samba.org>
Reviewed-by: Ralph Boehme <slow@samba.org>
This commit is contained in:
Andreas Schneider 2016-09-25 18:42:17 +02:00 committed by Andreas Schneider
parent 619ca5f63c
commit dadcfe9fca
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
selftest/target/Samba3.pm
View File

@ -370,6 +370,9 @@ sub setup_admember($$$$)
{
my ($self, $prefix, $dcvars) = @_;
my $prefix_abs = abs_path($prefix);
my @dirs = ();
# If we didn't build with ADS, pretend this env was never available
if (not $self->have_ads()) {
return "UNKNOWN";
@ -377,11 +380,30 @@ sub setup_admember($$$$)
print "PROVISIONING S3 AD MEMBER...";
mkdir($prefix_abs, 0777);
my $share_dir="$prefix_abs/share";
push(@dirs, $share_dir);
my $substitution_path = "$share_dir/D_SAMBADOMAIN";
push(@dirs, $substitution_path);
$substitution_path = "$share_dir/D_SAMBADOMAIN/U_alice";
push(@dirs, $substitution_path);
$substitution_path = "$share_dir/D_SAMBADOMAIN/U_alice/G_domain users";
push(@dirs, $substitution_path);
my $member_options = "
security = ads
workgroup = $dcvars->{DOMAIN}
realm = $dcvars->{REALM}
netbios aliases = foo bar
[subDUG]
path = $share_dir/D_%D/U_%U/G_%G
writeable = yes
";
my $ret = $self->provision($prefix,
@ -393,12 +415,13 @@ sub setup_admember($$$$)
$ret or return undef;
mkdir($_, 0777) foreach(@dirs);
close(USERMAP);
$ret->{DOMAIN} = $dcvars->{DOMAIN};
$ret->{REALM} = $dcvars->{REALM};
my $ctx;
my $prefix_abs = abs_path($prefix);
$ctx = {};
$ctx->{krb5_conf} = "$prefix_abs/lib/krb5.conf";
$ctx->{domain} = $dcvars->{DOMAIN};