suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix handin server error on bad password

Browse Source
This commit is contained in:
Robby Findler 2013-01-01 10:57:35 -06:00
parent c70f7d2ed2
commit 0f64a0ae0d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/handin-server/main.rkt
View File

@ -526,8 +526,9 @@
(not (has-password?
(a-ref data 'raw-password)
(a-ref data 'password)
(cons (get-conf 'master-password)
(map car user-datas)))))
(let ([mp (get-conf 'master-password)]
[up (map car user-datas)])
(if mp (cons mp up) up)))))
(log-line "failed login: ~a" (a-ref data 'username/s))
(error* "bad username or password for ~a"
(a-ref data 'username/s)))