FS/FS/InitHandler.pm

   1 package FS::InitHandler;
   2
   3 use strict;
   4 use FS::UID qw(adminsuidsetup);
   5 use FS::Record;
   6
   7 sub handler {
   8
   9 =pod
  10
  11   use Date::Format;
  12   use Date::Parse;
  13   use Tie::IxHash;
  14   use HTML::Entities;
  15   use IO::Handle;
  16   use IO::File;
  17   use String::Approx:
  18   use HTML::Widgets::SelectLayers 0.02;
  19   #use FS::UID;
  20   #use FS::Record;
  21   use FS::Conf;
  22   use FS::CGI;
  23   use FS::Msgcat;
  24
  25   use FS::agent;
  26   use FS::agent_type;
  27   use FS::domain_record;
  28   use FS::cust_bill;
  29   use FS::cust_bill_pay;
  30   use FS::cust_credit;
  31   use FS::cust_credit_bill;
  32   use FS::cust_main;
  33   use FS::cust_main_county;
  34   use FS::cust_pay;
  35   use FS::cust_pkg;
  36   use FS::cust_refund;
  37   use FS::cust_svc;
  38   use FS::nas;
  39   use FS::part_bill_event;
  40   use FS::part_pkg;
  41   use FS::part_referral;
  42   use FS::part_svc;
  43   use FS::pkg_svc;
  44   use FS::port;
  45   use FS::queue qw(joblisting);
  46   use FS::raddb;
  47   use FS::session;
  48   use FS::svc_acct;
  49   use FS::svc_acct_pop qw(popselector);
  50   use FS::svc_acct_sm;
  51   use FS::svc_domain;
  52   use FS::svc_forward;
  53   use FS::svc_www;
  54   use FS::type_pkgs;
  55   use FS::part_export;
  56   use FS::part_export_option;
  57   use FS::export_svc;
  58   use FS::msgcat;
  59
  60 =cut
  61
  62   open(MAPSECRETS,"<$FS::UID::conf_dir/mapsecrets")
  63     or die "can't read $FS::UID::conf_dir/mapsecrets: $!";
  64
  65   while (<MAPSECRETS>) {
  66     /^([\w\-\.]+)\s/ or do { warn "strange line in mapsecrets: $_"; next; };
  67     my $user = $1;
  68     adminsuidsetup($user);
  69   }
  70
  71   close MAPSECRETS;
  72
  73 }
  74
  75 1;