diff options
Diffstat (limited to 'lib/Travelynx')
| -rw-r--r-- | lib/Travelynx/Command/account.pm | 8 | ||||
| -rw-r--r-- | lib/Travelynx/Controller/Account.pm | 2 | ||||
| -rw-r--r-- | lib/Travelynx/Model/Users.pm | 4 |
3 files changed, 7 insertions, 7 deletions
diff --git a/lib/Travelynx/Command/account.pm b/lib/Travelynx/Command/account.pm index 6cd3498..1cd58bd 100644 --- a/lib/Travelynx/Command/account.pm +++ b/lib/Travelynx/Command/account.pm @@ -5,7 +5,7 @@ package Travelynx::Command::account; # SPDX-License-Identifier: AGPL-3.0-or-later use Mojo::Base 'Mojolicious::Command'; use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64); -use UUID::Tiny qw(:std); +use UUID::Tiny qw(:std); has description => 'Add or remove user accounts'; @@ -34,7 +34,7 @@ sub add_user { my $password_hash = hash_password($password); my $tx = $db->begin; - my $user_id = $self->app->users->add_user( + my $user_id = $self->app->users->add( db => $db, name => $name, email => $email, @@ -58,7 +58,7 @@ sub add_user { sub delete_user { my ( $self, $uid ) = @_; - my $user_data = $self->app->users->get_data( uid => $uid ); + my $user_data = $self->app->users->get( uid => $uid ); if ( not $user_data ) { say "UID $uid does not exist."; @@ -73,7 +73,7 @@ sub delete_user { sub really_delete_user { my ( $self, $uid, $name ) = @_; - my $user_data = $self->app->users->get_data( uid => $uid ); + my $user_data = $self->app->users->get( uid => $uid ); if ( $user_data->{name} ne $name ) { say diff --git a/lib/Travelynx/Controller/Account.pm b/lib/Travelynx/Controller/Account.pm index 2d9a1ce..755ac7d 100644 --- a/lib/Travelynx/Controller/Account.pm +++ b/lib/Travelynx/Controller/Account.pm @@ -337,7 +337,7 @@ sub register { my $pw_hash = hash_password($password); my $db = $self->pg->db; my $tx = $db->begin; - my $user_id = $self->users->add_user( + my $user_id = $self->users->add( db => $db, name => $user, email => $email, diff --git a/lib/Travelynx/Model/Users.pm b/lib/Travelynx/Model/Users.pm index 46ffbdd..c162f30 100644 --- a/lib/Travelynx/Model/Users.pm +++ b/lib/Travelynx/Model/Users.pm @@ -318,7 +318,7 @@ sub remove_password_token { ); } -sub get_data { +sub get { my ( $self, %opt ) = @_; my $db = $opt{db} // $self->{pg}->db; my $uid = $opt{uid}; @@ -377,7 +377,7 @@ sub get_login_data { return $res_h; } -sub add_user { +sub add { my ( $self, %opt ) = @_; my $db = $opt{db} // $self->{pg}->db; my $user_name = $opt{name}; |