Merge commit 'release-4-0-0alpha15' into master4-tmp
[amitay/samba.git] / selftest / target / Samba.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 Samba;
7
8 use strict;
9 use target::Samba3;
10 use target::Samba4;
11
12 sub new($$$$$) {
13         my ($classname, $bindir, $binary_mapping,$ldap, $srcdir, $exeext, $server_maxtime) = @_;
14
15         my $self = {
16             samba3 => new Samba3($bindir,$binary_mapping, $srcdir, $exeext, $server_maxtime),
17             samba4 => new Samba4($bindir,$binary_mapping, $ldap, $srcdir, $exeext, $server_maxtime),
18         };
19         bless $self;
20         return $self;
21 }
22
23 sub setup_env($$$)
24 {
25         my ($self, $envname, $path) = @_;
26
27         $ENV{ENVNAME} = $envname;
28
29         my $env = $self->{samba4}->setup_env($envname, $path);
30         if (defined($env)) {
31             if (not defined($env->{target})) {
32                 $env->{target} = $self->{samba4};
33             }
34         } else {
35                 $env = $self->{samba3}->setup_env($envname, $path);
36                 if (defined($env)) {
37                     if (not defined($env->{target})) {
38                         $env->{target} = $self->{samba3};
39                     }
40                 }
41         }
42         if (not defined $env) {
43                 warn("Samba can't provide environment '$envname'");
44                 return undef;
45         }
46         return $env;
47 }
48
49 sub bindir_path($$) {
50         my ($object, $path) = @_;
51
52         if (defined($object->{binary_mapping}->{$path})) {
53             $path = $object->{binary_mapping}->{$path};
54         }
55
56         my $valpath = "$object->{bindir}/$path$object->{exeext}";
57
58         return $valpath if (-f $valpath);
59         return $path;
60 }
61
62 sub mk_krb5_conf($)
63 {
64         my ($ctx) = @_;
65
66         unless (open(KRB5CONF, ">$ctx->{krb5_conf}")) {
67                 warn("can't open $ctx->{krb5_conf}$?");
68                 return undef;
69         }
70         print KRB5CONF "
71 #Generated krb5.conf for $ctx->{realm}
72
73 [libdefaults]
74  default_realm = $ctx->{realm}
75  dns_lookup_realm = false
76  dns_lookup_kdc = false
77  ticket_lifetime = 24h
78  forwardable = yes
79  allow_weak_crypto = yes
80
81 [realms]
82  $ctx->{realm} = {
83   kdc = $ctx->{kdc_ipv4}:88
84   admin_server = $ctx->{kdc_ipv4}:88
85   default_domain = $ctx->{dnsname}
86  }
87  $ctx->{dnsname} = {
88   kdc = $ctx->{kdc_ipv4}:88
89   admin_server = $ctx->{kdc_ipv4}:88
90   default_domain = $ctx->{dnsname}
91  }
92  $ctx->{domain} = {
93   kdc = $ctx->{kdc_ipv4}:88
94   admin_server = $ctx->{kdc_ipv4}:88
95   default_domain = $ctx->{dnsname}
96  }
97
98 [domain_realm]
99  .$ctx->{dnsname} = $ctx->{realm}
100 ";
101
102         if (defined($ctx->{tlsdir})) {
103                print KRB5CONF "
104
105 [appdefaults]
106         pkinit_anchors = FILE:$ctx->{tlsdir}/ca.pem
107
108 [kdc]
109         enable-pkinit = true
110         pkinit_identity = FILE:$ctx->{tlsdir}/kdc.pem,$ctx->{tlsdir}/key.pem
111         pkinit_anchors = FILE:$ctx->{tlsdir}/ca.pem
112
113 ";
114         }
115         close(KRB5CONF);
116 }
117
118 1;