1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
|
# Wallet::Config -- Configuration handling for the wallet server.
# $Id$
#
# Written by Russ Allbery <rra@stanford.edu>
# Copyright 2007 Board of Trustees, Leland Stanford Jr. University
#
# See README for licensing terms.
package Wallet::Config;
require 5.006;
use strict;
use vars qw($PATH $VERSION);
# This version should be increased on any code change to this module. Always
# use two digits for the minor version with a leading zero if necessary so
# that it will sort properly.
$VERSION = '0.01';
# Path to the config file to load.
$PATH = '/etc/wallet.conf';
=head1 NAME
Wallet::Config - Configuration handling for the wallet server
=head1 SYNOPSIS
use Wallet::Config;
my $driver = $Wallet::Config::DB_DRIVER;
my $info;
if (defined $Wallet::Config::DB_INFO) {
$info = $Wallet::Config::DB_INFO;
} else {
$info = "database=$Wallet::Config::DB_NAME";
$info .= ";host=$Wallet::Config::DB_HOST"
if $Wallet::Config::DB_HOST;
$info .= ";port=$Wallet::Config::DB_PORT"
if $Wallet::Config::DB_PORT;
}
my $dsn = "dbi:$driver:$info";
my $user = $Wallet::Config::DB_USER;
my $password = $Wallet::Config::DB_PASSWORD;
my $dbh = DBI->connect ($dsn, $user, $password);
=head1 DESCRIPTION
Wallet::Config encapsulates all of the site-specific configuration for the
wallet server. It is implemented as a Perl class that declares and sets the
defaults for various configuration variables and then, if it exists, loads
the file F</etc/wallet.conf>. That file should contain any site-specific
overrides to the defaults, and at least some parameters must be set.
This file must be valid Perl. To set a variable, use the syntax:
$VARIABLE = <value>;
where VARIABLE is the variable name (always in all-capital letters) and
<value> is the value. If setting a variable to a string and not a number,
you should normally enclose <value> in C<''>. For example, to set the
variable DB_DRIVER to C<MySQL>, use:
$DB_DRIVER = 'MySQL';
Always remember the initial dollar sign (C<$>) and ending semicolon (C<;>).
Those familiar with Perl syntax can of course use the full range of Perl
expressions.
This configuration file should end with the line:
1;
This ensures that Perl doesn't think there is an error when loading the
file.
=head1 DATABASE CONFIGURATION
=over 4
=item DB_DRIVER
Sets the Perl database driver to use for the wallet database. Common values
would be C<SQLite> or C<MySQL>. Less common values would be C<Oracle>,
C<Sybase>, or C<ODBC>. The appropriate DBD::* Perl module for the chosen
driver must be installed and will be dynamically loaded by the wallet. For
more information, see DBI(3).
This variable must be set.
=cut
our $DB_DRIVER;
=item DB_INFO
Sets the remaining contents for the DBI DSN (everything after the driver).
Using this variable provides full control over the connect string passed to
DBI. When using SQLite, set this variable to the path to the SQLite
database. If this variable is set, DB_NAME, DB_HOST, and DB_PORT are
ignored. For more information, see DBI(3) and the documentation for the
database driver you're using.
Either DB_INFO or DB_NAME must be set. If you don't need to pass any
additional information to DBI, set DB_INFO to the empty string (C<''>).
=cut
our $DB_INFO;
=item DB_NAME
If DB_INFO is not set, specifies the database name. The third part of the
DBI connect string will be set to C<database=DB_NAME>, possibly with a host
and port appended if DB_HOST and DB_PORT are set. For more information, see
DBI(3) and the documentation for the database driver you're using.
Either DB_INFO or DB_NAME must be set.
=cut
our $DB_NAME;
=item DB_HOST
If DB_INFO is not set, specifies the database host. C<;host=DB_HOST> will
be appended to the DBI connect string. For more information, see DBI(3) and
the documentation for the database driver you're using.
=cut
our $DB_HOST;
=item DB_PORT
If DB_PORT is not set, specifies the database port. C<;port=DB_PORT> will
be appended to the DBI connect string. If this variable is set, DB_HOST
should also be set. For more information, see DBI(3) and the documentation
for the database driver you're using.
=cut
our $DB_PORT;
=item DB_USER
Specifies the user for database authentication. Some database backends,
particularly SQLite, do not need this.
=cut
our $DB_USER;
=item DB_PASSWORD
Specifies the password for database authentication. Some database backends,
particularly SQLite, do not need this.
=cut
our $DB_PASSWORD;
=back
=head1 KEYTAB OBJECT CONFIGURATION
These configuration variables only need to be set if you intend to use the
C<keytab> object type (the Wallet::Object::Keytab class). They point the
keytab object implementation at the right Kerberos server and B<kadmin>
client.
=over 4
=item KEYTAB_FILE
Specifies the keytab to use to authenticate to B<kadmind>. The principal
whose key is stored in this keytab must have the ability to create, modify,
inspect, and delete any principals that should be managed by the wallet.
(In MIT Kerberos F<kadm5.acl> parlance, this is C<admci> privileges.)
KEYTAB_FILE must be set to use keytab objects.
=cut
our $KEYTAB_FILE;
=item KEYTAB_FLAGS
These flags, if any, are passed to the C<addprinc> command when creating a
new principal in the Kerberos KDC. To not pass any flags, set KEYTAB_FLAGS
to the empty string. The default value is C<-clearpolicy>, which clears any
password strength policy from principals created by the wallet. (Since the
wallet randomizes the keys, password strength checking is generally
pointless and may interact poorly with the way C<addprinc -randkey> works
when third-party add-ons for password strength checking are used.)
=cut
our $KEYTAB_FLAGS = '-clearpolicy';
=item KEYTAB_HOST
Specifies the host on which the kadmin service is running. This setting
overrides the C<admin_server> setting in the [realms] section of
F<krb5.conf> and any DNS SRV records and allows the wallet to run on a
system that doesn't have a Kerberos configuration for the wallet's realm.
=cut
our $KEYTAB_HOST;
=item KEYTAB_KADMIN
The path to the B<kadmin> command-line client. The default value is
C<kadmin>, which will cause the wallet to search for B<kadmin> on its
default PATH.
=cut
our $KEYTAB_KADMIN = 'kadmin';
=item KEYTAB_PRINCIPAL
The principal whose key is stored in KEYTAB_FILE. The wallet will
authenticate as this principal to the kadmin service.
KEYTAB_PRINCIPAL must be set to use keytab objects, at least until B<kadmin>
is smart enough to use the first principal found in the keytab it's using
for authentication.
=cut
our $KEYTAB_PRINCIPAL;
=item KEYTAB_REALM
Specifies the realm in which to create Kerberos principals. The keytab
object implementation can only work in a single realm for a given wallet
installation and the keytab object names are stored without realm.
KEYTAB_REALM is added when talking to the KDC via B<kadmin>.
KEYTAB_REALM must be set to use keytab objects. C<ktadd> doesn't always
default to the local realm.
=cut
our $KEYTAB_REALM;
=item KEYTAB_TMP
A directory into which the wallet can write keytabs temporarily while
processing C<get> commands from clients. The keytabs are written into this
directory with predictable names, so this should not be a system temporary
directory such as F</tmp> or F</var/tmp>. It's best to create a directory
solely for this purpose that's owned by the user the wallet server will run
as.
KEYTAB_TMP must be set to use keytab objects.
=cut
our $KEYTAB_TMP;
=back
=cut
# Now, load the configuration file so that it can override the defaults.
if (-r $PATH) {
do $PATH or die (($@ || $!) . "\n");
}
1;
__END__
=head1 SEE ALSO
DBI(3), Wallet::Object::Keytab(3), Wallet::Server(3), wallet-backend(8)
This module is part of the wallet system. The current version is available
from L<http://www.eyrie.org/~eagle/software/wallet/>.
=head1 AUTHOR
Russ Allbery <rra@stanford.edu>
=cut
|