25 lines
455 B
Racket
25 lines
455 B
Racket
#lang racket/base
|
|
|
|
(require "users.rkt"
|
|
simple-ini/class)
|
|
|
|
(provide set-user)
|
|
|
|
(define (set-user)
|
|
(displayln "Using rkt-web-player.ini as configuration file")
|
|
(newline)
|
|
(display "Give username: >")
|
|
(define user (read-line))
|
|
(display "Give password: >")
|
|
(define pwd (read-line))
|
|
|
|
(let ((hash (make-password-hash pwd)))
|
|
(define ini (new ini% [file "rkt-web-player.ini"]))
|
|
(send ini set! 'users (string->symbol user) hash)
|
|
)
|
|
)
|
|
|
|
|
|
|
|
|