--- /Library/Perl/5.18/Dancer2/Plugin/Auth/Extensible/Provider/Database.pm 2016-11-04 20:50:52.000000000 +1100
+++ Database.pm 2017-11-23 22:37:21.000000000 +1100
@@ -375,7 +375,8 @@
unless defined $username;
# Get our database handle and find out the table and column names:
- my $database = $self->database;
+ #my $database = $self->database;
# Look up the user,
my $user = $database->quick_select(
@@ -389,6 +390,28 @@
}
}
+sub get_user_by_code {
+ my ($self, $code) = @_;
+ croak "code must be defined"
+ unless defined $code;
+
+ # Get our database handle and find out the table and column names:
+ #my $database = $self->database;
+
+ # Get just the username of the user with the matching pw_reset_code
+ my $user = $database->quick_lookup(
+ $self->users_table, { 'pw_reset_code' => $code }, 'email'
+ );
+
+ if (!$user) {
+ $self->plugin->app->log("debug", "No such code $code");
+ return;
+ } else {
+ return $user;
+ }
+}
+
=head2 get_user_roles $username
=cut
@@ -396,7 +419,8 @@
sub get_user_roles {
my ($self, $username) = @_;
- my $database = $self->database;
+ #my $database = $self->database;
# Get details of the user first; both to check they exist, and so we have
# their ID to use.
cheers,
Nathan