From 18ae691429af89d9949d6e30650d70e3ab4239cb Mon Sep 17 00:00:00 2001
From: dan <me@danrh.co.uk>
Date: Sun, 28 Apr 2024 12:12:03 -0400
Subject: feat: users are stored in db

---
 add-user.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 add-user.scm

(limited to 'add-user.scm')

diff --git a/add-user.scm b/add-user.scm
new file mode 100644
index 0000000..9799bf5
--- /dev/null
+++ b/add-user.scm
@@ -0,0 +1,28 @@
+(import
+  scheme (chicken base)
+  (chicken process-context)
+  sqlite3
+  crypt
+  srfi-1
+)
+
+(define params (argv))
+(define username (second params))
+(define password (third params))
+(define password-hash (crypt password))
+
+(define db (open-database (or (get-environment-variable "DB_FILE") "/tmp/54itter.db")))
+
+(execute db "CREATE TABLE IF NOT EXISTS users (
+                user_id TEXT PRIMARY KEY,
+                pw_hash TEXT,
+                created_at DATETIME default current_timestamp
+            )")
+
+(execute db "INSERT INTO users
+                    (user_id, pw_hash)
+                    VALUES (?, ?)"
+                username password-hash)
+(finalize! db)
+
+(print "Created user " username)
-- 
cgit v1.2.3