X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FUserStore.pm;h=4927611267b0b4039219d4bbf68ba432df0e59bc;hb=fefeeedaa6092a3c13a221130fa75561124c7a1a;hp=5493d8234717605da5ef8e353a1a20d11dac2bf8;hpb=031a15f48238c07d47fbbe16b0f46ce424c2e2b9;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/UserStore.pm b/lib/Text/Tradition/UserStore.pm
index 5493d82..4927611 100644
--- a/lib/Text/Tradition/UserStore.pm
+++ b/lib/Text/Tradition/UserStore.pm
@@ -6,10 +6,10 @@ use warnings;
 use Moose;
 use KiokuX::User::Util qw(crypt_password);
 
-extends 'KiokuX::Model';
+extends 'Text::Tradition::Directory';
+# extends 'KiokuX::Model';
 
 use Text::Tradition::User;
-# use Text::Tradition::Directory;
 
 =head1 NAME
 
@@ -79,14 +79,15 @@ Create a new user object, store in the KiokuDB backend, and return it.
 
 sub add_user {
     my ($self, $userinfo) = @_;
-    my $username = $userinfo->{username};
+    my $username = $userinfo->{url} || $userinfo->{username};
     my $password = $userinfo->{password};
 
-    return unless $username && $self->validate_password($password);
+    return unless ($username =~ /^https?:/ 
+                   || ($username && $self->validate_password($password))) ;
 
     my $user = Text::Tradition::User->new(
         id => $username,
-        password => crypt_password($password),
+        password => ($password ? crypt_password($password) : ''),
     );
 
     my $scope = $self->new_scope;
@@ -95,6 +96,11 @@ sub add_user {
     return $user;
 }
 
+sub create_user {
+    my $self = shift;
+    return $self->add_user(@_);
+}
+
 =head3 find_user
 
 Takes a hashref of C<username>, optionally C<openid_identifier>.