summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2023-01-22 13:07:59 +0100
committerDaniel Friesel <derf@finalrewind.org>2023-01-22 13:07:59 +0100
commitf115283cb82c49841dec2c154089600cc19a0e07 (patch)
treef59597b8f06a3f32aaf3d10a27e6b5017ed0ba04 /lib
parent3499311154962e667c7c7a8c6973d00241830d7f (diff)
account: implement immediate deletion1.29.16
Diffstat (limited to 'lib')
-rw-r--r--lib/Travelynx/Command/account.pm6
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;
}