1 package FS::InitHandler;
5 use FS::UID qw(adminsuidsetup);
21 use HTML::Widgets::SelectLayers 0.02;
30 use FS::domain_record;
32 use FS::cust_bill_pay;
34 use FS::cust_credit_bill;
36 use FS::cust_main_county;
42 use FS::part_bill_event;
44 use FS::part_referral;
48 use FS::queue qw(joblisting);
52 use FS::svc_acct_pop qw(popselector);
59 use FS::part_export_option;
65 warn "[FS::InitHandler] handler called\n" if $DEBUG;
67 open(MAPSECRETS,"<$FS::UID::conf_dir/mapsecrets")
68 or die "can't read $FS::UID::conf_dir/mapsecrets: $!";
71 while (<MAPSECRETS>) {
73 or do { warn "strange line in mapsecrets: $_"; next; };
74 my($user, $datasrc) = ($1, $2);
75 next if $seen{$datasrc}++;
76 warn "[FS::InitHandler] preloading $datasrc for $user\n" if $DEBUG;
77 adminsuidsetup($user);