From 1c63574245bd309c879c8f2914dfec9d67a48486 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 22 Jan 2023 12:44:19 +0100 Subject: users: rename "add_user" to "add" and "get_data" to "get" --- lib/Travelynx/Command/account.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/Travelynx/Command/account.pm') 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 -- cgit v1.2.3