From f115283cb82c49841dec2c154089600cc19a0e07 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 22 Jan 2023 13:07:59 +0100
Subject: account: implement immediate deletion

---
 lib/Travelynx/Command/account.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib/Travelynx/Command')

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;
 }
 
-- 
cgit v1.2.3