From faf8952b8732d6314e3d3429f5cc761564565e44 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 14 Feb 2022 21:58:30 +0100
Subject: Send inactivity notification prior to account deletion

---
 lib/Travelynx/Command/database.pm    | 14 ++++++++++++++
 lib/Travelynx/Command/maintenance.pm | 32 ++++++++++++++++++++++++++++++--
 2 files changed, 44 insertions(+), 2 deletions(-)

(limited to 'lib/Travelynx/Command')

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 {
diff --git a/lib/Travelynx/Command/maintenance.pm b/lib/Travelynx/Command/maintenance.pm
index 5f609cb..58189ff 100644
--- a/lib/Travelynx/Command/maintenance.pm
+++ b/lib/Travelynx/Command/maintenance.pm
@@ -18,6 +18,7 @@ sub run {
 	my $verification_deadline = $now->clone->subtract( hours => 48 );
 	my $deletion_deadline     = $now->clone->subtract( hours => 72 );
 	my $old_deadline          = $now->clone->subtract( years => 1 );
+	my $old_notification_deadline = $now->clone->subtract( weeks => 4 );
 
 	my $db = $self->app->pg->db;
 	my $tx = $db->begin;
@@ -82,12 +83,39 @@ sub run {
 		printf( "Pruned %d pending mail change(s)\n", $rows );
 	}
 
+	my $to_notify = $db->select(
+		'users',
+		[ 'id', 'name', 'email', 'last_seen' ],
+		{
+			last_seen         => { '<', $old_deadline },
+			deletion_notified => undef
+		}
+	);
+
+	for my $user ( $to_notify->hashes->each ) {
+		$self->app->sendmail->age_deletion_notification(
+			name        => $user->{name},
+			email       => $user->{email},
+			last_seen   => $user->{last_seen},
+			login_url   => $self->app->base_url_for('login')->to_abs,
+			account_url => $self->app->base_url_for('account')->to_abs,
+			imprint_url => $self->app->base_url_for('impressum')->to_abs,
+		);
+		$self->app->users->mark_deletion_notified( uid => $user->{id} );
+	}
+
 	my $to_delete = $db->select( 'users', ['id'],
 		{ deletion_requested => { '<', $deletion_deadline } } );
 	my @uids_to_delete = $to_delete->arrays->map( sub { shift->[0] } )->each;
 
-	$to_delete
-	  = $db->select( 'users', ['id'], { last_seen => { '<', $old_deadline } } );
+	$to_delete = $db->select(
+		'users',
+		['id'],
+		{
+			last_seen         => { '<', $old_deadline },
+			deletion_notified => { '<', $old_notification_deadline }
+		}
+	);
 
 	push( @uids_to_delete,
 		$to_delete->arrays->map( sub { shift->[0] } )->each );
-- 
cgit v1.2.3