5.21 2005-00-00 00:00:00
- fixed a bug in https detection
- fixed auto chain finally
+ - added MYAPP_HOME and CATALYST_HOME environment variables
5.20 2005-05-18 19:52:00
- improved uploads and parameters
# Find home
my $home = Catalyst::Utils::home($caller);
+
+ if ( my $h = $ENV{CATALYST_HOME} ) {
+
+ $home = $h if -d $h;
+
+ unless ( -e _ ) {
+ $caller->log->warn(qq/CATALYST_HOME does not exist "$h"/);
+ }
+
+ unless ( -e _ && -d _ ) {
+ $caller->log->warn(qq/CATALYST_HOME is not a directory "$h"/);
+ }
+ }
+
+ if ( my $h = $ENV{ uc($caller) . '_HOME' } ) {
+
+ $home = $h if -d $h;
+
+ unless ( -e _ ) {
+ my $e = uc($caller) . '_HOME';
+ $caller->log->warn(qq/$e does not exist "$h"/)
+ }
+
+ unless ( -e _ && -d _ ) {
+ my $e = uc($caller) . '_HOME';
+ $caller->log->warn(qq/$e is not a directory "$h"/);
+ }
+ }
+
if ( $caller->debug ) {
$home
? ( -d $home )
=cut
sub prepare_request {
- my ( $c, $fastcgi, @arguments ) = @_;
+ my ( $c, $request, @arguments ) = @_;
CGI::_reset_globals();
- $c->SUPER::prepare_request($fastcgi);
+ $c->SUPER::prepare_request($request);
$c->Catalyst::Engine::CGI::prepare_request(@arguments);
}
=cut
sub prepare_request {
- my ( $c, $fastcgi ) = @_;
- $c->fastcgi($fastcgi);
+ my ( $c, $request ) = @_;
+ $c->fastcgi($request);
}
=item $c->run