Basic usable login-auth using KiokuDB

[scpubgit/stemmatology.git] / lib / Text / Tradition / UserStore.pm

diff --git a/lib/Text/Tradition/UserStore.pm b/lib/Text/Tradition/UserStore.pm
index 6a10e88..4475986 100644 (file)
--- a/lib/Text/Tradition/UserStore.pm
+++ b/lib/Text/Tradition/UserStore.pm
@@ -6,10 +6,15 @@ use warnings;
 use Moose;
 use KiokuX::User::Util qw(crypt_password);
 
+extends 'KiokuX::Model';
+
 use Text::Tradition::User;
-use Text::Tradition::Directory;
 
-has 'directory' => ( is => 'rw', isa => 'KiokuX::Model');
+# has 'directory' => ( 
+#     is => 'rw', 
+#     isa => 'KiokuX::Model',
+#     handles => []
+#     );
 
 sub add_user {
     my ($self, $username, $password) = @_;
@@ -19,16 +24,17 @@ sub add_user {
         password => crypt_password($password),
     );
 
-    my $scope = $self->directory->new_scope;
-    $self->directory->store($user->kiokudb_object_id, $user);
+    my $scope = $self->new_scope;
+    $self->store($user->kiokudb_object_id, $user);
 
     return $user;
 }
 
 sub find_user {
-    my ($self, $username) = @_;
+    my ($self, $userinfo) = @_;
+    my $username = $userinfo->{username};
 
-    return $self->directory->lookup($self->user_prefix . $username);
+    return $self->lookup(Text::Tradition::User->id_for_user($username));
     
 }