-tie my %auth, 'Tie::Hash::Expire', {expire_seconds => AUTH_TIMEOUT};
-
-sub authenticate {
- my ($user, $pass, $env) = @_;
- my $key = sha256 "$user:$pass";
- $env->{'gruntmaster.user'} = $user;
- return 1 if exists $auth{$key};
- return unless $db->user($user) && $db->user($user)->check_passphrase($pass);
- $auth{key} = 1;
+sub add_database {
+ my $app = $_[0];
+ sub {
+ my ($env) = @_;
+ $db //= Gruntmaster::Data->connect($ENV{GRUNTMASTER_DSN} // 'dbi:Pg:');
+ $env->{'gruntmaster.dbic'} = $db;
+ $app->($env)
+ }