1 package FS::InitHandler;
5 use FS::UID qw(adminsuidsetup);
19 use HTML::Widgets::SelectLayers 0.02;
28 use FS::domain_record;
30 use FS::cust_bill_pay;
32 use FS::cust_credit_bill;
34 use FS::cust_main_county;
40 use FS::part_bill_event;
42 use FS::part_referral;
57 use FS::part_export_option;
61 warn "[FS::InitHandler] handler called\n" if $DEBUG;
63 #this is sure to be broken on freebsd
64 $> = $FS::UID::freeside_uid;
66 open(MAPSECRETS,"<$FS::UID::conf_dir/mapsecrets")
67 or die "can't read $FS::UID::conf_dir/mapsecrets: $!";
70 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);
82 #lalala probably broken on freebsd