rijuroyson at gmail
Feb 2, 2012, 9:20 PM
Post #8 of 9
(385 views)
Permalink
|
Hi,
Thanks for all your help. I was just trying to dump PERL_ENV values to
take a look on them. I have removed that line from code now. So
nowhere else PERL_ENV is specified. Dumping catalyst request gives the
following data now,
my $a = bless({
_body => 0,
_context => bless({
action => bless({
attributes => { Private => [undef] },
class => "App::Controller::Root",
code => sub { "???" },
name => "default",
namespace => "",
"reverse" => "default",
}, "Catalyst::Action"),
counter => { auto => 1, begin => 1, default => 1 },
namespace => "",
request => 'fix',
response => bless({
_context => 'fix',
body => "",
cookies => {},
headers => bless({
"x-catalyst" => "5.7014" }, "HTTP::Headers"),
status => 200,
}, "Catalyst::Response"),
stack => [
bless({
attributes => { Private => [undef] },
class => "App::Controller::Root",
code => sub { "???" },
name => "_DISPATCH",
namespace => "",
"reverse" => "_DISPATCH",
}, "Catalyst::Action"),
bless({
attributes => { Private => [undef] },
class => "App::Controller::Root",
code => sub { "???" },
name => "_ACTION",
namespace => "",
"reverse" => "_ACTION",
}, "Catalyst::Action"),
'fix',
],
stash => { url =>
"http://app.com/app/static/images/logo.gif" },
state => 0,
stats => bless({
enabled => 1,
stack => [
bless({
_children => [
bless({
_children => [],
_depth => 0,
_height => 1,
_node => {
action => "/begin",
comment => "",
elapsed => "0.000134",
t => [1328245954, 788449],
},
_parent => 'fix',
_uid => "begin1",
_width => 1,
}, "Tree::Simple"),
bless({
_children => [],
_depth => 0,
_height => 1,
_node => {
action => "/auto",
comment => "",
elapsed => "0.000118",
t => [1328245954, 789515],
},
_parent => 'fix',
_uid => "auto1",
_width => 1,
}, "Tree::Simple"),
bless({
_children => [],
_depth => 0,
_height => 1,
_node => {
action => "/default",
comment => "",
elapsed => "0.001003",
t => [1328245954, 790518],
},
_parent => 'fix',
_uid => "default1",
_width => 1,
}, "Tree::Simple"),
],
_depth => -1,
_height => 2,
_node => {
t => [1328245954, 784484] },
_parent => "root",
_uid =>
"0xc7d8b08",
_width => 3,
}, "Tree::Simple"),
'fix',
],
tree => 'fix',
}, "Catalyst::Stats"),
}, "App"),
action => "default",
address => undef,
arguments => [],
base => bless(do{\(my $o = "http:///")}, "URI::http"),
body_parameters => {},
captures => [],
cookies => {},
headers => bless({}, "HTTP::Headers"),
hostname => undef,
match => "",
method => undef,
parameters => {},
path => "",
protocol => undef,
query_parameters => {},
secure => 0,
uploads => {},
uri => bless(do{\(my $o = "http:///")}, "URI::http"),
user => undef,
}, "Catalyst::Request::REST");
$a->{_context}{request} = $a;
$a->{_context}{response}{_context} = $a->{_context};
$a->{_context}{stack}[2] = $a->{_context}{action};
$a->{_context}{stats}{stack}[0]{_children}[0]{_parent} =
$a->{_context}{stats}{stack}[0];
$a->{_context}{stats}{stack}[0]{_children}[1]{_parent} =
$a->{_context}{stats}{stack}[0];
$a->{_context}{stats}{stack}[0]{_children}[2]{_parent} =
$a->{_context}{stats}{stack}[0];
$a->{_context}{stats}{stack}[1] =
$a->{_context}{stats}{stack}[0]{_children}[2];
$a->{_context}{stats}{tree} = $a->{_context}{stats}{stack}[0];
Regards,
Riju
On Thu, Feb 2, 2012 at 7:05 PM, Jason Galea <lists [at] eightdegrees> wrote:
>> Can you grab the app for the phrase PERL_ENV, and show us the top level
>> application class, and whichever class contains PERL_ENV?
>
>
> t0m meant to say "Can you grep the app for the phrase PERL_ENV,"
>
> ..just to avoid any confusion..
>
>>
>>
>>>
>>> PATH_INFO
>>> => "/static/images/logo.gif",
>>> PATH_TRANSLATED
>>> => "/auto/web-sciam/app/root/static/images/logo.gif",
>>> QUERY_STRING =>
>>> "",
>>> REMOTE_ADDR
>>> => "10.78.184.182",
>>> REMOTE_PORT =>
>>> 2596,
>>> REMOTE_USER
>>> => "rkurien",
>>> REQUEST_METHOD =>
>>> "GET",
>>> REQUEST_URI
>>> => "/app/static/images/logo.gif",
>>> SCRIPT_FILENAME
>>> => "/auto/web-sciam/app/script/app_fastcgi_eifweb.pl",
>>> SCRIPT_NAME
>>> => "/app",
>>> SCRIPT_URI
>>> => "http://app.com/app/static/images/logo.gif",
>>> SCRIPT_URL
>>> => "/app/static/images/logo.gif",
>>> SERVER_ADDR
>>> => "10.22.181.151",
>>> SERVER_ADMIN
>>> => "webmaster-app\@.com",
>>> SERVER_NAME
>>> => "app.com",
>>> SERVER_PORT =>
>>> 80,
>>>
>>
>> So these look like at whatever point this is captured, the environment is
>> sane - why this isn't being picked up by Catalyst::Engine::CGI (which the
>> FastCGI engine subclasses) is a mystery to me, but I suspect your app code..
>>
>>
>>>
>>> I removed the FcgidInitialEnv lines fromhttpd conf. But still am not
>>> able to move forward.
>>
>>
>> Does it all work if you use the development server? I.e. is it _only_
>> FastCGI that's an issue, or generally with anything not mod_perl
>>
>>
>>> We are using catalyst 5.7014.
>>
>>
>> This version is almost 4 years old, which is a lifetime! But it's probably
>> easier to get you sorted out where you are right now than trying to upgrade
>> as well.
>>
>> Cheers
>> t0m
>>
>>
>>
>> Cheers
>> t0m
>>
>>
>> _______________________________________________
>> List: Catalyst [at] lists
>> Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
>> Searchable archive:
>> http://www.mail-archive.com/catalyst [at] lists/
>> Dev site: http://dev.catalyst.perl.org/
>
>
>
> _______________________________________________
> List: Catalyst [at] lists
> Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
> Searchable archive: http://www.mail-archive.com/catalyst [at] lists/
> Dev site: http://dev.catalyst.perl.org/
>
--
Regards,
Riju Royson
_______________________________________________
List: Catalyst [at] lists
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst [at] lists/
Dev site: http://dev.catalyst.perl.org/
|
