sub db { $env->{'gruntmaster.dbic'} }
sub remote_user {
- my $user = $env->{REMOTE_USER};
- $user &&= db->user_entry($user);
- $user
+ unless ($env->{'gruntmaster.user'}) {
+ my $user = $env->{REMOTE_USER};
+ $user &&= db->user_entry($user);
+ $env->{'gruntmaster.user'} = $user;
+ }
+ $env->{'gruntmaster.user'}
}
sub admin { remote_user && remote_user->{admin} }