Fwd: [Catalyst] Re: Using htpasswd file : New Issue

On 7 May 2011, at 14:29, Rohan M wrote:

Yes. Now the Authentication part is working.

I'm running into one more issue. Now, I'm able to get username from
the htpasswd file. But my user information like Name, Address is
stored in the database.

Can I add this information (name, address coming from db) in the
user object generated from Catalyst::Authentication::Store::Htpasswd ?

Does anyone has idea how to go about this?

On Sat, May 7, 2011 at 9:00 PM, Tomas Doran wrote:


On 7 May 2011, at 14:29, Rohan M wrote:

Yes. Now the Authentication part is working.


http://search.cpan.org/~bobtfish/Catalyst-Authentication-Store-Htpasswd-1.003/lib/Catalyst/Authentication/Store/Htpasswd.pm#user_class

I.e. subclass Catalyst::Authentication::Store::Htpasswd::User as
MyApp::User, change that config setting, and you can now put extra code into
your user class...

This gets your part way, but you don't have $c here, so your user class
can't lookup the extra info in the app..

The solution to that is to also subclass the Store itself, and wrap / use
an around method modifier on the 'find_user' method - something like (in
pseudocode):

around find_user => sub {
my ($orig, $self, $authinfo, $c, @args) = @_;
my $user = $self->$orig($authinfo, $c, @args);
$user->extra_field($c->model('DB::User')->find({ username => $user->id
})->first->extra_field;
return $user;
};

Sane error handling (e.g. user does not exist, or user in the htpasswd
file, but not the DB) is left as an exercise for the reader.


Cheers
t0m


_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive:
http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

On May 30, 2011, at 11:27 AM, Rohan M wrote:
I got carried away with the other work for the same app. Now I'm back to this point again.

I created a file called User.pm and put it under Model directory.
After putting, use base "Catalyst::Authentication::Store::Htpasswd::User"; I am trying to use around find_user or any method that is present in the base class but I ended up getting following error.

"Couldn't load class (MyApp) because: The method 'check_password' was not found in the inheritance hierarchy."

I'm sorry to ask you again but I'm not sure how the following subclassing can be done.

Could you send few more details ( example) ?

====
package MyApp::Model::User;
use Moose;
use namespace::autoclean;
use Switch;
use base "Catalyst::Authentication::Store::Htpasswd::User";
extends 'Catalyst::Model';


around check_password => sub {
my ($orig, $self, $authinfo, $c, @args) = @_;
my $user = $self->$orig($authinfo, $c, @args);
return $user;
};

OR

around find_user => sub {
my ($orig, $self, $authinfo, $c, @args) = @_;
my $user = $self->$orig($authinfo, $c, @args);
$user->extra_field($c->model('DB::User')->find({ username => $user->id })->first->extra_field;
return $user;
};

On Tue, May 31, 2011 at 7:02 AM, John Romkey wrote:

On May 30, 2011, at 11:27 AM, Rohan M wrote:

I got carried away with the other work for the same app. Now I'm back to
this point again.

I created a file called User.pm and put it under Model directory.
After putting, use base
"Catalyst::Authentication::Store::Htpasswd::User"; I am trying to use
around find_user or any method that is present in the base class but I ended
up getting following error.

"Couldn't load class (MyApp) because: The method 'check_password' was not
found in the inheritance hierarchy."

I'm sorry to ask you again but I'm not sure how the following subclassing
can be done.

Could you send few more details ( example) ?

====
package MyApp::Model::User;
use Moose;
use namespace::autoclean;
use Switch;
use base "Catalyst::Authentication::Store::Htpasswd::User";
extends 'Catalyst::Model';


around check_password => sub {
my ($orig, $self, $authinfo, $c, @args) = @_;
my $user = $self->$orig($authinfo, $c, @args);
return $user;
};

OR

around find_user => sub {
my ($orig, $self, $authinfo, $c, @args) = @_;
my $user = $self->$orig($authinfo, $c, @args);
$user->extra_field($c->model('DB::User')->find({ username => $user->id
})->first->extra_field;
return $user;
};


Rohan,

I haven't verified this but I think that what you want to do is make it be
a regular class, not a Catalyst component. Then in your configuration where
you specify your user_class for your store use MyApp::User rather than
Catalyst::Authentication::Store::Htpasswd::User

package MyApp::User;
use Moose;
use namespace::autoclean;
extends 'Catalyst::Authentication::Store::Htpasswd::User';

around check_password => sub {
my ($orig, $self, $authinfo, $c, @args) = @_;
my $user = $self->$orig($authinfo, $c, @args);
return $user;
};

around find_user => sub {
my ($orig, $self, $authinfo, $c, @args) = @_;
my $user = $self->$orig($authinfo, $c, @args);
$user->extra_field($c->model('DB::User')->find({ username => $user->id
})->first->extra_field;
return $user;
};


- john romkey
http://www.romkey.com/



_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive:
http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/