diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-05-04 12:08:32 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-05-04 12:08:32 -0400 |
commit | f3b48d0678fe23c8ff4aed8bfdc370b3b8197b9f (patch) | |
tree | bf547f3a6838bb5079c2e5d22fc58310f4c1155d /captain/db.f90 | |
parent | d26549e79053413bf82c510c6fb192289fe7448a (diff) | |
download | levitating-f3b48d0678fe23c8ff4aed8bfdc370b3b8197b9f.tar.gz levitating-f3b48d0678fe23c8ff4aed8bfdc370b3b8197b9f.zip |
Auth levels are now read from a special config file. Both display and operations are now checked for auth level.
Diffstat (limited to 'captain/db.f90')
-rw-r--r-- | captain/db.f90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/captain/db.f90 b/captain/db.f90 index 97c397a..44bc473 100644 --- a/captain/db.f90 +++ b/captain/db.f90 @@ -1541,6 +1541,7 @@ contains end function get_user_auth_db function get_session_auth_db(session) + use auth_levels, only: AUTH_NONE implicit none character(len=*), intent(in)::session @@ -1548,7 +1549,7 @@ contains type(sqlite3_stmt)::stmt - get_session_auth_db = -1 + get_session_auth_db = AUTH_NONE if(stmt%prepare(db, "SELECT level FROM session_auth WHERE session=? LIMIT 1") == SQLITE_OK) then if(stmt%bind_text(1, session) == SQLITE_OK) then |