From c7e26c754fc09d8837b5801bce4046c2493cf8a9 Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Sat, 6 Oct 2018 09:46:58 +0200
Subject: [PATCH] Possible to clear email address

---
 lib/NDWeb/Controller/Settings.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lib/NDWeb/Controller/Settings.pm b/lib/NDWeb/Controller/Settings.pm
index 717b909..f95a979 100644
--- a/lib/NDWeb/Controller/Settings.pm
+++ b/lib/NDWeb/Controller/Settings.pm
@@ -132,6 +132,16 @@ sub changeEmail : Local {
 
 	my $email = $c->req->param('email');
 
+	if ($email =~ /^s?$/) {
+		my $update = $dbh->prepare(q{
+UPDATE users SET email = NULL WHERE uid = $1;
+			});
+		$update->execute($c->user->id);
+		$c->flash(error => 'email cleared');
+		$c->res->redirect($c->uri_for(''));
+		return,
+	}
+
 	unless (Email::Valid->address($email)){
 		$c->flash(email => $email);
 		$c->flash(error => 'Invalid email address');
-- 
2.39.2