diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2023-01-22 13:07:59 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2023-01-22 13:07:59 +0100 |
| commit | f115283cb82c49841dec2c154089600cc19a0e07 (patch) | |
| tree | f59597b8f06a3f32aaf3d10a27e6b5017ed0ba04 /lib/Travelynx/Command/account.pm | |
| parent | 3499311154962e667c7c7a8c6973d00241830d7f (diff) | |
account: implement immediate deletion1.29.16
Diffstat (limited to 'lib/Travelynx/Command/account.pm')
| -rw-r--r-- | lib/Travelynx/Command/account.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Travelynx/Command/account.pm b/lib/Travelynx/Command/account.pm index 1cd58bd..a70e6b5 100644 --- a/lib/Travelynx/Command/account.pm +++ b/lib/Travelynx/Command/account.pm @@ -81,7 +81,11 @@ sub really_delete_user { return; } - say "Immediate deletion is not implemented yet."; + my $count = $self->app->users->delete( uid => $uid ); + + printf( "Deleted %s -- %d tokens, %d monthly stats, %d journeys\n", + $name, $count->{tokens}, $count->{stats}, $count->{journeys} ); + return; } |