Re: Request methods not found

[prev] [thread] [next] [Date index for 2004/11/02]

Hello Geoffrey, 

Thank you for your answer; but I have to ask you for more help 
as I neither use a pre-build version nor work with subclassing.
The handler code is very simple:

package Our::Auth;
use strict;
use Apache;
use Apache::Constants qw(:common);

use mod_perl ();

    sub authen_handler {

        my $r = shift;

        my ($res, $sent_pw) = $r->get_basic_auth_pw;

        return $res if $res != OK;

        my $user = $r->connection->user;
        if (!$user || !$sent_pw) {
                return AUTH_REQUIRED;
                }
        return OK;
    }
  1;

This code works OK in RedHat but cannot find "get_basic_auth_pw" in SGI.
Still, my feeling is that that something simple but imporant is omitted
in the code.

> that's right.  are you rolling your own on SGI or using a pre-compiled
> package?  if the package is pre-compliled you might want to make sure that
> it's mod_perl 1.2X and not mod_perl 1.99_XX, which is the precursor to
> mod_perl 2.0 and a completely different beast.

I didn't use pre-compiled package but built it from source (Apache 1.3.31+
PHP 4.3.8 + mod_perl 1.29). 

Maybe the following can be important: compilation is 32-bit
(with "-o32" flag), otherwise Apache build complains of incompatible
libraries. In fact, I had to configure mod_perl using a Shell-script:

#!/bin/sh
CC="cc -o32" \
perl Makefile.PL PERL_LOG=1 PERL_CHILD_INIT=1 \
PERL_AUTHEN=1 PERL_ACCESS=1 PERL_AUTHZ=1 \
PERL_CLEANUP=1 PERL_STACKED_HANDLERS=1 \
USE_APACI=1 APACI_ARGS='--with-layout=Apache --prefix=/apache
--activate-module=src/modules/php4/libphp4.a'

Still, there were no error messages concerning 32-to-64 incompatibility,
so it may be not relevant. 

> well, that message says that it can't find get_basic_auth_pw() via
> Our::Auth.  it should be looking for it via the Apache class, not
> Our::Auth.  

What checks can I do to see if Apache class is seen by mod_perl?

Thank you,

Marina Markus
mary@xxxxxxx.xxx.xx.xx


On Mon, 1 Nov 2004, Geoffrey Young wrote:

> 
> 
> Marina Markus wrote:
> > Hello,
> >  
> > With Geoffrey Young's generous help I have successfully implemented
> > authentication using my own handler subroutine defined as PerlAuthenHandler.
> 
> :)
> 
> 
> > This works OK in RedHat but not on SGI (IRIX 6.2). Call to the handler fails
> > complaining that it cannot find request object methods, be it "connection"
> > or "get_basic_auth_pw", saying, for example:
> >  
> > [Mon Nov  1 12:54:13 2004] [error] Can't locate object method
> > "get_basic_auth_pw" via package "Our::Auth" at
> > /usr/local/lib/perl5/site_perl/5.005/Our/Auth.pm line 16, <DATA> chunk
> > 225.\n
> 
> well, that message says that it can't find get_basic_auth_pw() via
> Our::Auth.  it should be looking for it via the Apache class, not Our::Auth.
>  if you're looking for it via $r blessed into Our::Auth you need to make
> sure that you're doing subclassing properly for mod_perl (which is a bit
> different than normal perl subclasses).  see
> 
>   http://www.modperlcookbook.org/code/ch10/Cookbook/Apache.pm
> 
> for an example.
> 
> if you're not trying any subclassing tricks then something is definitely
> amuck - $r should be an 'Apache' object (or 'Apache::RequestRec' in mp2)
> when you call $r->note_basio_auth_pw.
> 
> >  
> > These methods should come with the installation of mod_perl, shouldn't they?
> 
> yes.
> 
> > A bare installation of Apache 1.3.31+mod_perl 1.29 on a RedHat works OK
> > without demanding any addition Perl modules to be installed. 
> 
> that's right.  are you rolling your own on SGI or using a pre-compiled
> package?  if the package is pre-compliled you might want to make sure that
> it's mod_perl 1.2X and not mod_perl 1.99_XX, which is the precursor to
> mod_perl 2.0 and a completely different beast.
> 
> >  
> > Maybe the ancient Perl version (5.005) is to blame?
> 
> nope.
> 
> as I said, based on the message above something is amuck that looks to have
> nothing to do with mod_perl, but rather the way that get_basic_auth_pw() is
> being invoked.
> 
> HTH
> 
> --Geoff
> 
> -- 
> Report problems: http://perl.apache.org/bugs/
> Mail list info: http://perl.apache.org/maillist/modperl.html
> List etiquette: http://perl.apache.org/maillist/email-etiquette.html
> 
> 


        -- 
        Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html