mirror of
https://github.com/derf/travelynx
synced 2024-12-05 10:49:13 +00:00
126 lines
2.9 KiB
Perl
126 lines
2.9 KiB
Perl
|
package Travelynx::Command::account;
|
||
|
|
||
|
# Copyright (C) 2021 Daniel Friesel
|
||
|
#
|
||
|
# 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);
|
||
|
|
||
|
has description => 'Add or remove user accounts';
|
||
|
|
||
|
has usage => sub { shift->extract_usage };
|
||
|
|
||
|
sub hash_password {
|
||
|
my ($password) = @_;
|
||
|
my @salt_bytes = map { int( rand(255) ) + 1 } ( 1 .. 16 );
|
||
|
my $salt = en_base64( pack( 'C[16]', @salt_bytes ) );
|
||
|
|
||
|
return bcrypt( $password, '$2a$12$' . $salt );
|
||
|
}
|
||
|
|
||
|
sub add_user {
|
||
|
my ( $self, $name, $email ) = @_;
|
||
|
|
||
|
my $db = $self->app->pg->db;
|
||
|
|
||
|
if ( my $error = $self->app->users->is_name_invalid( name => $name ) ) {
|
||
|
say "Cannot add account '$name': $error";
|
||
|
die;
|
||
|
}
|
||
|
|
||
|
my $token = "tmp";
|
||
|
my $password = substr( create_uuid_as_string(UUID_V4), 0, 18 );
|
||
|
my $password_hash = hash_password($password);
|
||
|
|
||
|
my $tx = $db->begin;
|
||
|
my $user_id = $self->app->users->add_user(
|
||
|
db => $db,
|
||
|
name => $name,
|
||
|
email => $email,
|
||
|
token => $token,
|
||
|
password_hash => $password_hash,
|
||
|
);
|
||
|
my $success = $self->app->users->verify_registration_token(
|
||
|
db => $db,
|
||
|
uid => $user_id,
|
||
|
token => $token,
|
||
|
in_transaction => 1,
|
||
|
);
|
||
|
|
||
|
if ($success) {
|
||
|
$tx->commit;
|
||
|
say "Added user $name ($email) with UID $user_id";
|
||
|
say "Temporary password for login: $password";
|
||
|
}
|
||
|
}
|
||
|
|
||
|
sub delete_user {
|
||
|
my ( $self, $uid ) = @_;
|
||
|
|
||
|
my $user_data = $self->app->users->get_data( uid => $uid );
|
||
|
|
||
|
if ( not $user_data ) {
|
||
|
say "UID $uid does not exist.";
|
||
|
return;
|
||
|
}
|
||
|
|
||
|
$self->app->users->flag_deletion( uid => $uid );
|
||
|
|
||
|
say "User $user_data->{name} (UID $uid) has been flagged for deletion.";
|
||
|
}
|
||
|
|
||
|
sub really_delete_user {
|
||
|
my ( $self, $uid, $name ) = @_;
|
||
|
|
||
|
my $user_data = $self->app->users->get_data( uid => $uid );
|
||
|
|
||
|
if ( $user_data->{name} ne $name ) {
|
||
|
say
|
||
|
"User name $name does not match UID $uid. Account deletion aborted.";
|
||
|
return;
|
||
|
}
|
||
|
|
||
|
say "Immediate deletion is not implemented yet.";
|
||
|
return;
|
||
|
}
|
||
|
|
||
|
sub run {
|
||
|
my ( $self, $command, @args ) = @_;
|
||
|
|
||
|
if ( $command eq 'add' ) {
|
||
|
$self->add_user(@args);
|
||
|
}
|
||
|
elsif ( $command eq 'delete' ) {
|
||
|
$self->delete_user(@args);
|
||
|
}
|
||
|
elsif ( $command eq 'DELETE' ) {
|
||
|
$self->really_delete_user(@args);
|
||
|
}
|
||
|
else {
|
||
|
$self->help;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
__END__
|
||
|
|
||
|
=head1 SYNOPSIS
|
||
|
|
||
|
Usage: index.pl account add [name] [email]
|
||
|
|
||
|
Adds user [name] with a temporary password, which is shown on stdout.
|
||
|
Users can change the password once logged in.
|
||
|
|
||
|
Usage: index.pl account delete [uid]
|
||
|
|
||
|
Request deletion of user [uid]. This has the same effect as using the
|
||
|
account deletion button. The user account and all corresponding data will
|
||
|
be deleted by a maintenance run after three days.
|
||
|
|
||
|
Usage: index.pl account DELETE [uid] [name]
|
||
|
|
||
|
Immediately delete user [uid]/[name] and all associated data. Deletion is
|
||
|
irrevocable. Deletion is only performed if [name] matches the name of [uid].
|