X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=site_perl%2Fsvc_acct.pm;fp=site_perl%2Fsvc_acct.pm;h=fdc9f0bc19c5b3d92f78f71eb74d40282717b78b;hb=0bf5ad9ff0a65195db88ed0bac3aa11c33ec1ad3;hp=a43af6b1aae0bddb779100bdb3edd0801a0376fb;hpb=f6ef3dec7840be2e7ac7c39bed32a7ea68425b2d;p=freeside.git

diff --git a/site_perl/svc_acct.pm b/site_perl/svc_acct.pm
index a43af6b1a..fdc9f0bc1 100644
--- a/site_perl/svc_acct.pm
+++ b/site_perl/svc_acct.pm
@@ -12,10 +12,13 @@ use FS::cust_svc;
 @ISA = qw(FS::Record Exporter);
 @EXPORT_OK = qw(fields);
 
-$conf = new FS::Conf;
-$dir_prefix = $conf->config('home');
-@shells = $conf->config('shells');
-$shellmachine = $conf->config('shellmachine');
+#ask FS::UID to run this stuff for us later
+$FS::UID::callback{'FS::svc_acct'} = sub { 
+  $conf = new FS::Conf;
+  $dir_prefix = $conf->config('home');
+  @shells = $conf->config('shells');
+  $shellmachine = $conf->config('shellmachine');
+};
 
 @saltset = ( 'a'..'z' , 'A'..'Z' , '0'..'9' , '.' , '/' );
 @pw_set = ( 'a'..'z', 'A'..'Z', '0'..'9', '(', ')', '#', '!', '.', ',' );
@@ -551,6 +554,12 @@ arbitrary radius attributes ivan@sisd.com 98-aug-13
 
 pod and FS::conf ivan@sisd.com 98-sep-22
 
+$Log: svc_acct.pm,v $
+Revision 1.2  1998-11-13 09:56:55  ivan
+change configuration file layout to support multiple distinct databases (with
+own set of config files, export, etc.)
+
+
 =cut
 
 1;