aboutsummaryrefslogtreecommitdiff
path: root/captain/db.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2023-09-20 08:49:58 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2023-09-20 08:49:58 -0400
commit8217283bed26f052ea0d29afec18b224d63d4fb2 (patch)
tree5e112f6952d6e40ffa5a4e0f8961249f1737ee75 /captain/db.f90
parent10547ba1064ca5a1dd04e782b0df99a22b60de3f (diff)
downloadlevitating-8217283bed26f052ea0d29afec18b224d63d4fb2.tar.gz
levitating-8217283bed26f052ea0d29afec18b224d63d4fb2.zip
Transfer buffers for gemini file transfers extended from 64 bytes to 4K to fix client download issues. Minor fixes to the crypt routines to use c_char arrays rather than strings.
Diffstat (limited to 'captain/db.f90')
-rw-r--r--captain/db.f903
1 files changed, 3 insertions, 0 deletions
diff --git a/captain/db.f90 b/captain/db.f90
index c3f30c4..34ee16c 100644
--- a/captain/db.f90
+++ b/captain/db.f90
@@ -1492,6 +1492,9 @@ contains
character(len=*), intent(in)::username, password
logical::new_admin_db
+ ! Dangerous debug line....
+ ! Print *, trim(username)//":"//trim(password)
+
new_admin_db = new_user_db(username, password, trim(username)//"@localhost", AUTH_ADMIN_USER)
end function new_admin_db