diff options
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__ |