diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-04-27 09:52:34 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-04-27 09:52:34 -0400 |
commit | e5a2850b6bb9887b241316be24b3f7047cef6ea3 (patch) | |
tree | b4b2f8b73200d24d1247a44fe522f832e6be103e /captain/db.f90 | |
parent | 6cf8d2b298b0770b46753a902b4c5622b5b1ddd2 (diff) | |
download | levitating-e5a2850b6bb9887b241316be24b3f7047cef6ea3.tar.gz levitating-e5a2850b6bb9887b241316be24b3f7047cef6ea3.zip |
Added command line args to create an admin user. Fixed a few db bugs.
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 |