torrus/perllib/Torrus/Renderer/Freeside.pm

   1 package Torrus::Renderer::Freeside;
   2
   3 use strict;
   4 use warnings;
   5 use base 'Torrus::Freeside';
   6 use FS::UID qw(setcgi adminsuidsetup);
   7 use FS::TicketSystem;
   8
   9 our $cgi = '';
  10
  11 sub freesideSetup {
  12   #my $self = shift;
  13
  14   return if $cgi eq $Torrus::CGI::q;
  15
  16   $cgi = $Torrus::CGI::q;
  17
  18   setcgi($cgi);
  19
  20   adminsuidsetup;
  21   FS::TicketSystem->init();
  22
  23 }
  24
  25 1;
  26