From 392f55a791faa1c33e4a525f7b9c38aaa020d671 Mon Sep 17 00:00:00 2001
From: swaggboi <swaggboi@slackware.uk>
Date: Mon, 29 Mar 2021 13:51:37 -0400
Subject: [PATCH] Set session to expiration to 1 week and kill plain-text
 cookie once set

---
 www-swagg.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/www-swagg.pl b/www-swagg.pl
index 9e44e29..d05296a 100755
--- a/www-swagg.pl
+++ b/www-swagg.pl
@@ -19,7 +19,10 @@ under sub {
     my ($c) = @_;
 
     if ($c->cookie('banner') eq 'seen') {
-        $c->session->{banner} //= 'seen'
+        # Set session for a week
+        $c->session(expiration => 604800)->{banner} //= 'seen';
+        # Kill plain-text cookie
+        $c->cookie(banner => 'seen', {expires => 1});
     }
 
     1;