blob: 8d66f4fffb10aaa13812aacf8de75748b731a084 (
plain)
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
package FS::Mason::Request;
use strict;
use warnings;
use vars qw( $FSURL $QUERY_STRING );
use base 'HTML::Mason::Request';
$FSURL = 'http://Set/FS_Mason_Request_FSURL/in_standalone_mode/';
$QUERY_STRING = '';
sub new {
my $class = shift;
my $superclass = $HTML::Mason::ApacheHandler::VERSION ?
'HTML::Mason::Request::ApacheHandler' :
$HTML::Mason::CGIHandler::VERSION ?
'HTML::Mason::Request::CGI' :
'HTML::Mason::Request';
$class->alter_superclass( $superclass );
#huh... shouldn't alter_superclass take care of this for us?
__PACKAGE__->valid_params( %{ $superclass->valid_params() } );
my %opt = @_;
my $mode = $superclass =~ /Apache/i ? 'apache' : 'standalone';
freeside_setup($opt{'comp'}, $mode);
$class->SUPER::new(@_);
}
#override alter_superclass ala RT::Interface::Web::Request ??
# for Mason 1.39 vs. Perl 5.10.0
sub freeside_setup {
my( $filename, $mode ) = @_;
#warn "initializing for $filename\n";
if ( $filename !~ /\/rt\/.*NoAuth/ ) { #not RT images/JS
package HTML::Mason::Commands;
use vars qw( $cgi $p $fsurl );
use FS::UID qw( cgisuidsetup );
use FS::CGI qw( popurl rooturl );
if ( $mode eq 'apache' ) {
$cgi = new CGI;
&cgisuidsetup($cgi);
#&cgisuidsetup($r);
$fsurl = rooturl();
$p = popurl(2);
} elsif ( $mode eq 'standalone' ) {
$cgi = new CGI $FS::Mason::Request::QUERY_STRING; #better keep setting
#if you set it once
$FS::UID::cgi = $cgi;
$fsurl = $FS::Mason::Request::FSURL; #kludgy, but what the hell
$p = popurl(2, "$fsurl$filename");
} else {
die "unknown mode $mode";
}
} elsif ( $filename =~ /\/rt\/REST\/.*NoAuth/ ) {
package HTML::Mason::Commands; #?
use FS::UID qw( adminsuidsetup );
#need to log somebody in for the mail gw
##old installs w/fs_selfs or selfserv??
#&adminsuidsetup('fs_selfservice');
&adminsuidsetup('fs_queue');
}
}
sub callback {
RT::Interface::Web::Request::callback(@_);
}
sub request_path {
RT::Interface::Web::Request::request_path(@_);
}
1;
|