diff options
Diffstat (limited to 'captain/db.f90')
-rw-r--r-- | captain/db.f90 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/captain/db.f90 b/captain/db.f90 index 00ec00e..77e12ed 100644 --- a/captain/db.f90 +++ b/captain/db.f90 @@ -1438,6 +1438,17 @@ contains end function new_user_db + function new_admin_db(username, password) + use AUTH_LEVELS, only: AUTH_ADMIN_USER + implicit none + + character(len=*), intent(in)::username, password + logical::new_admin_db + + new_admin_db = new_user_db(username, password, trim(username)//"@localhost", AUTH_ADMIN_USER) + + end function new_admin_db + function get_password_hash_pointer_db(username) result(password) implicit none |