[#279] Web sessions use cookies instead of files on disk (M. Johnson)

Netdisco/bin/netdisco-deploy

@@ -125,6 +125,7 @@ sub _make_password {
   }
 }
 
+# set up initial admin user
 my $users = schema('netdisco')->resultset('User');
 if ($users->search({-bool => 'admin'})->count == 0) {
     say '';
@@ -149,6 +150,12 @@ if ($users->search({-bool => 'admin'})->count == 0) {
     print color 'reset';
 }
 
+# set initial dancer web session cookie key
+schema('netdisco')->resultset('Session')->find_or_create(
+  {id => 'dancer_session_cookie_key', a_session => \'md5(random()::text)'},
+  {key => 'primary'},
+);
+
 say '';
 $bool = $term->ask_yn(
   prompt => 'Download and update vendor MAC prefixes (OUI data)?', default => 'n',

Netdisco/bin/netdisco-web

@@ -70,6 +70,10 @@ foreach my $file ($pid_file, $log_file) {
     chown $uid, $gid, $file;
 }
 
+# clean old web sessions
+my $sdir = dir($home, 'netdisco-web-sessions')->stringify;
+unlink glob file($sdir, '*');
+
 Daemon::Control->new({
   name => 'Netdisco Web',
   program  => \&restarter,

Netdisco/bin/netdisco-web-fg

@@ -27,9 +27,6 @@ use App::Netdisco;
 use Dancer;
 warning sprintf "App::Netdisco %s web", ($App::Netdisco::VERSION || 'HEAD');
 
-my $home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
-set(session_dir => dir($home, 'netdisco-web-sessions')->stringify);
-
 set plack_middlewares => [
   ['Plack::Middleware::ReverseProxy'],
   [ Expires => (