From e5a2850b6bb9887b241316be24b3f7047cef6ea3 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Wed, 27 Apr 2022 09:52:34 -0400
Subject: Added command line args to create an admin user.  Fixed a few db
 bugs.

---
 captain/db.f90 | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'captain/db.f90')

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
     
-- 
cgit v1.2.3