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

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