tjhintz/farm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Creating db in executable.

Browse Source
This commit is contained in:
Thomas Hintz
2023-12-20 17:55:29 -08:00
parent a4c41785ce
commit c764b63d10
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Dockerfile
View File

@@ -52,7 +52,6 @@ RUN cp src/server/farm dist/; \
FROM farm as run FROM farm as run
WORKDIR /farm/dist WORKDIR /farm/dist
RUN touch /farmdb/db
ENTRYPOINT ["./farm"] ENTRYPOINT ["./farm"]
CMD ["-:a50"] CMD ["-:a50"]
# CMD ./farm # CMD ./farm

5
src/server/db.scm
View File

@@ -11,6 +11,11 @@
body ...))))) body ...)))))
(define (create-tables) (define (create-tables)
(when (not (file-exists? *db*))
(call-with-output-file *db*
(lambda (output-port)
;; Empty body, no content to write to the file
)))
(with-db (db) (with-db (db)
(exec (sql db "create table if not exists users(id INTEGER PRIMARY KEY, username TEXT, email TEXT, password TEXT, salt TEXT);")) (exec (sql db "create table if not exists users(id INTEGER PRIMARY KEY, username TEXT, email TEXT, password TEXT, salt TEXT);"))
(exec (sql db "create table if not exists sessions(bindings TEXT, session_id TEXT PRIMARY KEY);")) (exec (sql db "create table if not exists sessions(bindings TEXT, session_id TEXT PRIMARY KEY);"))