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;