torrus/perllib/Torrus/Renderer/Freeside.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

package Torrus::Renderer::Freeside;

use strict;
use warnings;
use base 'Torrus::Freeside';
use FS::UID qw(setcgi adminsuidsetup);
use FS::TicketSystem;

our $cgi = '';

sub freesideSetup {
  #my $self = shift;

  return if $cgi eq $Torrus::CGI::q;

  $cgi = $Torrus::CGI::q;

  setcgi($cgi);

  adminsuidsetup;
  FS::TicketSystem->init();

}

1;