diff options
| author | ivan <ivan> | 1998-11-13 09:56:57 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-11-13 09:56:57 +0000 |
| commit | 0bf5ad9ff0a65195db88ed0bac3aa11c33ec1ad3 (patch) | |
| tree | e1f4e0dd775f4b4c82f23140f27609d26216f9fe /site_perl/svc_acct_sm.pm | |
| parent | f6ef3dec7840be2e7ac7c39bed32a7ea68425b2d (diff) | |
change configuration file layout to support multiple distinct databases (with
own set of config files, export, etc.)
Diffstat (limited to 'site_perl/svc_acct_sm.pm')
| -rw-r--r-- | site_perl/svc_acct_sm.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/site_perl/svc_acct_sm.pm b/site_perl/svc_acct_sm.pm index c87ed2c54..4293e0365 100644 --- a/site_perl/svc_acct_sm.pm +++ b/site_perl/svc_acct_sm.pm @@ -11,11 +11,13 @@ use FS::Conf; @ISA = qw(FS::Record Exporter); @EXPORT_OK = qw(fields); -$conf = new FS::Conf; - -$shellmachine = $conf->exists('qmailmachines') - ? $conf->config('shellmachine') - : ''; +#ask FS::UID to run this stuff for us later +$FS::UID::callback{'FS::svc_acct_sm'} = sub { + $conf = new FS::Conf; + $shellmachine = $conf->exists('qmailmachines') + ? $conf->config('shellmachine') + : ''; +}; =head1 NAME |