|
From: Marc G. F. <sc...@hu...> - 2011-02-13 16:24:31
|
On Sun, 13 Feb 2011, Clifton Wood wrote:
> Do you have the Clout object tree defined in
>
> /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash
>
> Sounds like it's a problem with Slash::Clout rather than getObject().
Okay, here is what I have on the file system:
ap13# du /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash
6 /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash/Apache/User
62 /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash/Apache
8 /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash/Client
126 /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash/Custom
66 /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash/DB/Static
566 /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash/DB
18 /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash/Display
4 /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash/Hook
404 /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash/Utility
24 /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash/XML
1328 /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash
ap13# find !$ -name "*Clout*" -ls
find /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash -name "*Clout*" -ls
ap13# find /usr/local/lib/perl5 -name "*Clout*" -ls
6100352 4 drwxr-xr-x 2 root wheel
512 Feb 10 16:51 /usr/local/lib/perl5/site_perl/5.10.1/Slash/Clout
1957800 4 -r--r--r-- 1 root wheel
1397 Feb 10 15:48 /usr/local/lib/perl5/site_perl/5.10.1/Slash/Clout.pm
And the module does load from perl:
ap13# perl -e "require Slash::Clout::Vote"
ap13#
So it does appear to be missing from the mach directory ... how do we fix?
>
> - Cliff
>
> On Fri, Feb 11, 2011 at 4:33 PM, Marc G. Fournier <sc...@hu...> wrote:
>
> Okay, someone better at tracing then me needs to jump in here
> ...
>
> The errors I'm getting all over the place (slashd / httpd) are:
>
> no obj for 'Slash::Clout::Describe' at
> /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash/DB/MySQL.pm
> line 11341.
> no obj for 'Slash::Clout::Moderate' at
> /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash/DB/MySQL.pm
> line 11341.
> no obj for 'Slash::Clout::Vote' at
> /usr/local/lib/perl5/site_perl/5.10.1/mach/Slash/DB/MySQL.pm
> line 11341.
>
>
> Now, on line 11341:
>
> my $clout_obj = getObject($this_info->{class}, { db_type =>
> 'reader' }); warn "no obj for '$this_info->{class}'" unless
> $clout_obj;
>
> getObject() is defined in:
>
> vi ./Slash/Utility/Environment/Environment.pm
>
> Now, when I try and debug the getObject() function, it appears
> that the error is being generated around line 2431 of
> Environment.pm:
>
> $vuser = ($db_type &&
> $user->{state}{dbs}{$db_type})
> || ($fallback &&
> $user->{state}{dbs}{$fallback});
> use Data::Dumper;
> errorLog("\n\n$db_type : ". Dumper($user) ."\n");
> return undef if $db_type && $fallback &&
> !$vuser;
> }
>
>
> so undef is being returned, which the above is taking as 'no obj
> for...' ...
>
> But, the Dumper statement above is returning:
>
> reader : $VAR1 = {
> 'state' => {
> 'dbs' => {}
> }
> };
>
> which to me reads as there is no values under dbs, reader or
> otherwise ... ?
>
> Anyone else a bit stronger in perl that can / has looked at
> this?
>
>
>
> ----
> Marc G. Fournier Hub.Org Hosting
> Solutions S.A.
> sc...@hu...
> http://www.hub.org
>
> Yahoo:yscrappy Skype: hub.org ICQ:7615664
> MSN:sc...@hu...
>
>
>
>
----
Marc G. Fournier Hub.Org Hosting Solutions S.A.
sc...@hu... http://www.hub.org
Yahoo:yscrappy Skype: hub.org ICQ:7615664 MSN:sc...@hu...
|