torrus/perllib/Torrus/ReportOutput/Freeside.pm

   1 package Torrus::ReportOutput::Freeside;
   2
   3 use strict;
   4 use warnings;
   5 use base 'Torrus::Freeside';
   6 use FS::UID qw(adminsuidsetup);
   7 use FS::TicketSystem;
   8
   9 our $issetup = 0;
  10
  11 sub freesideSetup {
  12   #my $self = shift;
  13
  14   return if $issetup++;
  15
  16   adminsuidsetup('fs_queue'); #XXX for now
  17   FS::TicketSystem->init();
  18
  19 }
  20
  21 1;
  22