diff options
author | ivan <ivan> | 2010-12-30 17:33:10 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-12-30 17:33:10 +0000 |
commit | 062179900d1fbdfd6831d07cb5e5f290a6512f4c (patch) | |
tree | 3a9e8a86d681d815a6c552c1c523ce7c232faaed /torrus | |
parent | 5779a295d6786735fc16f49fd0bc490023aaad85 (diff) |
torrus, RT#10574
Diffstat (limited to 'torrus')
-rw-r--r-- | torrus/configs/torrus-siteconfig.pl | 2 | ||||
-rw-r--r-- | torrus/perllib/Torrus/Freeside.pm | 5 | ||||
-rw-r--r-- | torrus/perllib/Torrus/Renderer/Freeside.pm | 12 | ||||
-rw-r--r-- | torrus/perllib/Torrus/ReportOutput/Freeside.pm | 12 |
4 files changed, 26 insertions, 5 deletions
diff --git a/torrus/configs/torrus-siteconfig.pl b/torrus/configs/torrus-siteconfig.pl index 623f7a9..504c0f3 100644 --- a/torrus/configs/torrus-siteconfig.pl +++ b/torrus/configs/torrus-siteconfig.pl @@ -21,7 +21,7 @@ $Torrus::CGI::authorizeUsers = 0; $Torrus::Renderer::rendererURL = '/freeside/torrus'; $Torrus::Renderer::plainURL = '/freeside/torrus/plain/'; -$Torrus::Renderer::Freeside::FSURL = '%%%FREESIDE_URL%%%'; +$Torrus::Freeside::FSURL = '%%%FREESIDE_URL%%%'; $Torrus::Renderer::displayReports = 1; push (@Torrus::Collector::loadModules, 'Torrus::Collector::ExternalStorage'); $Torrus::SQL::connections{'Default'}{'dsn'} = diff --git a/torrus/perllib/Torrus/Freeside.pm b/torrus/perllib/Torrus/Freeside.pm index 1b0a281..359d544 100644 --- a/torrus/perllib/Torrus/Freeside.pm +++ b/torrus/perllib/Torrus/Freeside.pm @@ -5,8 +5,6 @@ use warnings; #Freeside use FS::Mason qw( mason_interps ); -use FS::UID qw(cgisuidsetup); -use FS::TicketSystem; my $outbuf; my( $fs_interp, $rt_interp ) = mason_interps('standalone', 'outbuf'=>\$outbuf); @@ -49,8 +47,7 @@ sub freesideComponent { $FS::Mason::Request::FSURL .= '/' unless $FS::Mason::Request::FSURL =~ /\/$/; # $FS::Mason::Request::QUERY_STRING = $packet->{'query_string'} || ''; - cgisuidsetup($Torrus::CGI::q); - FS::TicketSystem->init(); + $self->freesideSetup; $outbuf = ''; #$fs_interp->exec($comp, @args); #only FS for now alas... diff --git a/torrus/perllib/Torrus/Renderer/Freeside.pm b/torrus/perllib/Torrus/Renderer/Freeside.pm index 837147f..8d93415 100644 --- a/torrus/perllib/Torrus/Renderer/Freeside.pm +++ b/torrus/perllib/Torrus/Renderer/Freeside.pm @@ -1,6 +1,18 @@ package Torrus::Renderer::Freeside; +use strict; +use warnings; use base 'Torrus::Freeside'; +use FS::UID qw(cgisuidsetup); +use FS::TicketSystem; + +sub freesideSetup { + #my $self = shift; + + cgisuidsetup($Torrus::CGI::q); + FS::TicketSystem->init(); + +} 1; diff --git a/torrus/perllib/Torrus/ReportOutput/Freeside.pm b/torrus/perllib/Torrus/ReportOutput/Freeside.pm index 95daa06..47db28d 100644 --- a/torrus/perllib/Torrus/ReportOutput/Freeside.pm +++ b/torrus/perllib/Torrus/ReportOutput/Freeside.pm @@ -1,6 +1,18 @@ package Torrus::ReportOutput::Freeside; +use strict; +use warnings; use base 'Torrus::Freeside'; +use FS::UID qw(adminsuidsetup); +use FS::TicketSystem; + +sub freesideSetup { + #my $self = shift; + + adminsuidsetup('fs_queue'); #XXX for now + FS::TicketSystem->init(); + +} 1; |