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

case-fold username in servlet when needed

Browse Source 
svn: r17591
This commit is contained in:
Eli Barzilay 2010-01-10 04:12:48 +00:00
parent 58e6d2426a
commit b33455dc8e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/handin-server/web-status-server.ss
View File

@ -230,6 +230,8 @@
[user (aget bindings 'user)] [user (aget bindings 'user)]
[passwd (aget bindings 'passwd)] [passwd (aget bindings 'passwd)]
[user (and user (clean-str user))] [user (and user (clean-str user))]
[user (and user (if (get-conf 'username-case-sensitive)
user (string-foldcase user)))]
[user-data (get-user-data user)]) [user-data (get-user-data user)])
(cond [(and user-data (cond [(and user-data
(string? passwd) (string? passwd)