1 package FS::Mason::Request;
5 use vars qw( $FSURL $QUERY_STRING );
6 use base 'HTML::Mason::Request';
8 $FSURL = 'http://Set/FS_Mason_Request_FSURL/in_standalone_mode/';
14 my $superclass = $HTML::Mason::ApacheHandler::VERSION ?
15 'HTML::Mason::Request::ApacheHandler' :
16 $HTML::Mason::CGIHandler::VERSION ?
17 'HTML::Mason::Request::CGI' :
18 'HTML::Mason::Request';
20 $class->alter_superclass( $superclass );
22 #huh... shouldn't alter_superclass take care of this for us?
23 __PACKAGE__->valid_params( %{ $superclass->valid_params() } );
26 my $mode = $superclass =~ /Apache/i ? 'apache' : 'standalone';
27 $class->freeside_setup($opt{'comp'}, $mode);
29 $class->SUPER::new(@_);
33 #override alter_superclass ala RT::Interface::Web::Request ??
34 # for Mason 1.39 vs. Perl 5.10.0
37 my( $class, $filename, $mode ) = @_;
39 if ( $filename =~ qr(/REST/\d+\.\d+/NoAuth/) ) {
41 package HTML::Mason::Commands; #?
42 use FS::UID qw( adminsuidsetup );
44 #need to log somebody in for the mail gw
46 ##old installs w/fs_selfs or selfserv??
47 #&adminsuidsetup('fs_selfservice');
49 &adminsuidsetup('fs_queue');
53 package HTML::Mason::Commands;
54 use vars qw( $cgi $p $fsurl ); # $lh ); #not using /mt
56 use FS::UID qw( cgisuidsetup );
57 use FS::CGI qw( popurl rooturl );
59 if ( $mode eq 'apache' ) {
65 } elsif ( $mode eq 'standalone' ) {
66 $cgi = new CGI $FS::Mason::Request::QUERY_STRING; #better keep setting
69 $fsurl = $FS::Mason::Request::FSURL; #kludgy, but what the hell
70 $p = popurl(2, "$fsurl$filename");
72 die "unknown mode $mode";
76 foreach my $param ( $cgi->param ) {
77 my @values = $cgi->param($param);
78 next if $cgi->uploadInfo($values[0]);
80 @values = map decode(utf8=>$_), @values;
81 $cgi->param($param, @values);
89 RT::Interface::Web::Request::callback(@_);
93 RT::Interface::Web::Request::request_path(@_);