Send inactivity notification prior to account deletion

1 files changed, 14 insertions, 0 deletions

diff --git a/lib/Travelynx/Command/database.pm b/lib/Travelynx/Command/database.pm
index 4f7c792..eb2443c 100644
--- a/lib/Travelynx/Command/database.pm
+++ b/lib/Travelynx/Command/database.pm
@@ -1,4 +1,5 @@
 package Travelynx::Command::database;
+
 # Copyright (C) 2020 Daniel Friesel
 #
 # SPDX-License-Identifier: AGPL-3.0-or-later
@@ -1055,6 +1056,19 @@ my @migrations = (
 			}
 		);
 	},
+
+	# v23 -> v24
+	# travelynx 1.22 warns about upcoming account deletion due to inactivity
+	sub {
+		my ($db) = @_;
+		$db->query(
+			qq{
+				alter table users add column deletion_notified timestamptz;
+				comment on column users.deletion_notified is 'Time at which warning about upcoming account deletion due to inactivity was sent';
+				update schema_version set version = 24;
+			}
+		);
+	},
 );
 
 sub setup_db {