From 105fc8a4a1a55c6dea61273c2ca3e0b10db19b86 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 10 Jul 2022 10:42:05 +0200
Subject: maintenance: show details when about to delete a large amount of UIDs

---
 lib/Travelynx/Command/maintenance.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lib/Travelynx/Command/maintenance.pm b/lib/Travelynx/Command/maintenance.pm
index 35264e4..be929ac 100644
--- a/lib/Travelynx/Command/maintenance.pm
+++ b/lib/Travelynx/Command/maintenance.pm
@@ -126,6 +126,17 @@ sub run {
 			"About to delete %d accounts, which is quite a lot.\n",
 			scalar @uids_to_delete
 		);
+		for my $uid (@uids_to_delete) {
+			my $journeys_res = $db->select(
+				'journeys',
+				'count(*) as count',
+				{ user_id => $uid }
+			)->hash;
+			printf STDERR (
+				" - UID %5d (%4d journeys)\n",
+				$uid, $journeys_res->{count}
+			);
+		}
 		say STDERR 'Aborting maintenance. Please investigate.';
 		exit(1);
 	}
-- 
cgit v1.2.3