diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-08-29 23:11:39 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-08-29 23:11:39 +0000 |
| commit | c378f43667fdbc8491d3999e8eee8079acb8844d (patch) | |
| tree | 86615458cfa41d37c09bf18094fbdd7905d76f85 /perl | |
| parent | 007f40ddec0d0c594f82716dd64cf5b676bc1ceb (diff) | |
Load the configuration file after setting defaults for variables.
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/Wallet/Config.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl/Wallet/Config.pm b/perl/Wallet/Config.pm index befa390..776cc5a 100644 --- a/perl/Wallet/Config.pm +++ b/perl/Wallet/Config.pm @@ -30,6 +30,7 @@ $PATH = '/etc/wallet.conf'; # Database configuration. our $DB_DRIVER; +our $DB_INFO; our $DB_NAME; our $DB_HOST; our $DB_PORT; @@ -45,5 +46,10 @@ our $KEYTAB_PRINCIPAL; our $KEYTAB_REALM; our $KEYTAB_TMP; +# Now, load the configuration file so that it can override the defaults. +if (-r $PATH) { + do $PATH or die (($@ || $!) . "\n"); +} + 1; __END__ |