blob: bf704bda7980e3a0d0d3f024be9615b44533801e (
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
90
91
92
93
94
95
96
|
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';
$class->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( $class, $filename, $mode ) = @_;
if ( $filename =~ qr(/REST/\d+\.\d+/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');
} else {
package HTML::Mason::Commands;
use vars qw( $cgi $p $fsurl $lh );
use Encode;
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";
}
#
foreach my $param ( $cgi->param ) {
my @values = $cgi->param($param);
next if $cgi->uploadInfo($values[0]);
#warn $param;
@values = map decode(utf8=>$_), @values;
$cgi->param($param, @values);
}
}
}
sub callback {
RT::Interface::Web::Request::callback(@_);
}
sub request_path {
RT::Interface::Web::Request::request_path(@_);
}
1;
|