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 #this is sure to be broken on freebsd
68 $> = $FS::UID::freeside_uid;
70 open(MAPSECRETS,"<$FS::UID::conf_dir/mapsecrets")
71 or die "can't read $FS::UID::conf_dir/mapsecrets: $!";
74 while (<MAPSECRETS>) {
77 or do { warn "strange line in mapsecrets: $_"; next; };
78 my($user, $datasrc) = ($1, $2);
79 next if $seen{$datasrc}++;
80 warn "[FS::InitHandler] preloading $datasrc for $user\n" if $DEBUG;
81 adminsuidsetup($user);
86 #lalala probably broken on freebsd