32 lines
662 B
Racket
32 lines
662 B
Racket
#lang racket/base
|
|
|
|
; Add a new user to the database
|
|
|
|
(require
|
|
"src/notepad/user.rkt"
|
|
"src/pages/notepad.rkt" ; To open the database
|
|
)
|
|
|
|
(displayln "Adding a new user.")
|
|
; Ask for user name
|
|
(displayln "Enter the user name:")
|
|
(define name (read-line))
|
|
(when (eof-object? name)
|
|
(exit 1))
|
|
|
|
; Check if user already exists
|
|
(when (get-user-by-name name)
|
|
(displayln (string-append "User " name " already exists!"))
|
|
(exit 2))
|
|
|
|
; Ask for user password
|
|
(displayln "Enter the user password:")
|
|
(define password (read-line))
|
|
(when (eof-object? name)
|
|
(exit 1))
|
|
|
|
; Add user to db
|
|
(void
|
|
(new-user name password))
|
|
(displayln (string-append "User " name " added."))
|