diff options
| -rw-r--r-- | captain/response.f90 | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/captain/response.f90 b/captain/response.f90 index 03d420e..02ed6dd 100644 --- a/captain/response.f90 +++ b/captain/response.f90 @@ -461,6 +461,7 @@ contains end function request_has_query subroutine request_set_token(self, token) + use captain_db implicit none class(request), intent(inout)::self @@ -468,6 +469,7 @@ contains allocate(character(len=len_trim(token)) :: self%token) self%token = token + self%auth_level = get_session_auth_db(self%token) end subroutine request_set_token @@ -484,11 +486,12 @@ contains if(safe_to_deallocate) then deallocate(self%token) end if - - self%token => null() end if + self%token => null() + self%auth_level = 0 + end subroutine request_clear_token ! This routine is needed if we're stripping session identifiers |